- = se . . - aco $ eee , x ~ > * ce oe 5 
. - r ee C S27 39 . 2 = 
4 7 - oa dy. emt 
= woe > oye = ~ 


ee a 
: 
oS 
' ~ 
- 2 
= 3 : * 
- - - ms Mis + i 
= . ee 8 \ : 
x ' 
As - - _ t 
be% 2 Pye b 
! - . 
= > = s cS ' 
PY sagen cos Tah 4 . . : rr 
-- - - : 
- -_ - ie * 1 
ps = Ass = aa . 
7 woe ok 
= _— - { - i 
‘ : 
bare - = -- «s 
- acl _ i rE - its . o 
- . 3) i - . = es es 
. “ 2 
_ = _ oo oe > 
oa a 


Data Documents/Inc. 


@ @ 
@ BURROUGHS B-5700 ESPUL COMPILER MARK XVe3e00 MONDAYs® Q4/O07/7?550 22,48 PM. ® 
1 
2 
ad 3 
4 
6 5 
i 
rf $SET LIST 4 - OOCOTO © 
8 COMMEKT #4840 4/7/75 Td Pp weeny c 0000%0 
10) 
er $SET TAPE SINGLE LIT ce 000080 
12) 
o He Oasor774 “ouaI0e Tt 
e' on De Sees ooooz000 T. 
6 COMMENT?» TET! K "mM RELEASE ~ * 00002 
6 » FILE IDS SYMBUL/HCP “TAPED To “SYMBOL L/FELEDOO * poubeca T 
eo” * THIS MATERTAL IS PROPRIETARY To BURROUGHS CORPORATION * Q00020l12 T 
8 * AND 15 NOT TO BE REPRUDUCEDs USED» UR DISCLOSED . 00002013 1 
9 * EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * Q0002014 T O000TNO 
ee”: * WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF * O0002015 + 000030 
1 * BURROUGHS CORPORATIUN» DETROIT» MICHIGAN i O0002016 000030 
p2 * COPYRIGHT (C) 19455 19715 1972s 1973 * 00002017 T daa00!n 
@: * BURROUGNS CORPORATION * ; QO0V02Z018 T YaQd0%O 
P *  AA759915 —-AA320206 AA39 3180 a3 00002019 T O000tO 
ae $ SET OMIT = NOT SOEBUGG Tt a) p< ms ; 00002100 T 000dto 
@ BEGIN: \ Pe Pie 2 00003000 T  O0000tO 
aT DEFINE MIXMAX= 943” COMMENTS _MIXMAX: MAY. NOT BE LARGER THAN 293. 00004000 T On0GtA . 
pe DEFINE JOB ora — CUMMENTE = JUBNUMAX SHOULD gE agduT Ooocscuc T OC00%0O 
@r ore 7 2xMIXMAX+303 -. 06005001 7 O000t0 
DEFINE aRKEVEL® % MARK bevel iN LAE A ___00005010 T overs 
@ % PATER RELEASE LEVEL IN ALPHA 8 Peg 
Re LOCALEV tz ce = LEVE L i ALPHA Oobo5c50 T OCOOtO 
e ce a ; : Ogoo5060 T 000030 
: zd : : - =o You05070 T 00080 
p VER IRE MORI ER rR SR rr es ee a ‘ - "00005700 T O00dTO 
@ me DCINTYPE 0 Om OBHR OY oo Swe """ 90005120 FT 000040 
9 TSSINTYRE = 61M fs 00005140 tT. d000%0 
COMMENT THE ESPOL COMPILER APPROPRIATELY TYPES: THE GP "7 00005160 7 d000%0 
@ INTRINSICS FILE HEADERS SU THAT A VALIDITY CHECK MAY BE MADE 00005380 T O000tO 
CURING INITIALIZATION AnD AT CI AND CM TIME, HEADERC4I,[36%6 00005385 T 0000%0 
“Ys THE FIELO USED To" CONTAIN THE TYPES: eae ee eae 00005190 T O000t0 ~ 
@ DEFINE ESAO 8 CLFiS]#, cela : ocges gas T 0G00%0 — 
UNUM ® C16¢S)]#, 00. oo Ia : 00005210 4% d0001t0 
BYBY(BYBY1»BYBY2) = 00005220 1 0000#0 
e@ BEGIN STREAMCA!S=SPACE(10)3 93 00005230 Tt 0d000!%0 
BEGIN D1ee A; peisBY eve aa BYBYI5 END} 00005240 T 00080 
fo | ee UNTO rr or 3 00005450 y OG00to 
er. dey ENDG a en eee : oe a ee By we 00005260 7 OD0GIO ©. 
oy DEFINE RESERVEDISK Ce ee ce 09008300 T O000fo 
5 OMMENT TRACES OF TF ORE AREA USED 0 STOR E “TRACE 00005500 T 000080 
@ INFORMATION BEFORE IT IS WRITTEN ON DISKe 00005600 T O000t0 
“TRACAREASTART IS TRE. are DISK ADDRESS OF THE TRACE 00005700 T O0000%0 
BY A OG) aoe Praga o0005a00 Tt Gov a0 
ore : | ! E WENTS?: oF THE TRACE 00009900 aps 
: DT ‘ ‘ QNOCSORD. 7. be 
e DEFINE TRACESI 2E=308 P TRAC RAE ASTARTSTOOO0I T THACAREASTZES4801 F 00000000 T 
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@ @ 
e DEFINE HANG=D0 UNTIL FALSESS 00006400 Tf e 
DEFINE LEFTARRUW 5 "ens; eee eer ee es 006150 7 
—  § SET OMET = NOTCSAVERESULTS) ae onan eo 00006200 T 0% ; 
e REAL F pone < i | ac007000 7 dont Be Gee ell 
34 8+ %& MAX NO OF PSEUD=RORS o"ORTGIN --00007050. 1 (00000 oo: ee 
PSEUDUMAX1 = 32 #, % MAX NO OF PSEUD*RORS 1*URIGIN 00007055 T 0000t0 4 
e PSEUDUMAXT = 63 #3 % # ENTRIES IN TINY TABLE "2 Voodsued 000010 |@ 
COMME h ‘T_TQ REDEFINE MAX NOs OF PSEUDO RDRS»SIZE AND INITIALIZATION ™ 0000706 is 
OF TINUC#) AT 00241900 MUST ALSO BE MODIFIED ACCORDINGLYS 00007062 ? 
r COMMENT !°PSEUDOMAX MUST BE 20 AND $ 31 00007065. (pl 
__ PSEUDGMAXL MUST.BE 2 9 AND $ 32, 00007070 oodotan iC 
PSEUDGMAXT MUST BE 2 31 AND < 6333 00007075 T 0000%0 
] COMMENT TO ADJUST THE PRIGRITYs CORE ESTIMATE» AND STACK SIZE 00007200 7 0000380 ; /@ 
OF LIBMAIN/GISK» See SEQUENCE NUMBER 45075470} 00007210 T 000080 
y : TERROR ; XTE ’ ~ O0008000 » O000T6 ae eon 
eh TURNG | MIN To MEMORY AR Ty wr ~~ 90009000 FT - to Ral |@ 
: ~DEFING GETUSERUISK(GETUSE DISK LDBPETUSEADISKCGETUSERDISK1;0)97% 00012001 6 
e $ SET OMIT = NOTCOUMP OR DEBUGGING) 00012159 @ 
R_RRRMECH=¢ be = 00013000 13 
3 ACECSPACEL) =CGETSPACECSPACE1 +020) + 2783 ~ 000139500 T. 08 hi 
or | &P LEDGED USERCODE STORED IN Mr1] 00013600 7 000010 bg @ 
We te 000139700. 7. Ont : 2q 
00013710 2 
@, 00013720 3@ 
2 24 
00013740 i 
@| 00013750 2 @ 
r O90019760 2 
: 00013770 0000!0 aa 
@ |: 00013780 7 000080 9 @ 
; 00013790 T 000080 20 
00013800 T OO00TO a 
@ | 08013810 T 000010 bl ®@ 
00013820 T 0000!0 
00013830 00000 
@ |: 00013850 T 0000!0 2 @ 
6 AUX ME 00913860 0000!0 6 
- tae mS | Co01se70 Tt j | | 37 
ee ane 3 NOT PAE): . “ 00013880. T .00 en Mate a @ 
: SAVE INTEGER PROCEDURE GETSPACE (SIZE + TYPE, SAVEF 3% x 90014000 T Oc | 3 
SS = 90000 s 
@ VALUE SIZE* TYPEsSAVEF 3% 00015000 T 00000 «/@ 
é INTEGER see ee 00016000 ry. 
: : Z each ‘ 
@ SAVE REAL PROCEDURE WALTIOC TOD» MASK +34 00018000 7 000010 4@ 
| ee oo START QF SAVE SEaMENT? BASE ADDRESS = 90000 “3 
VALUE 10D? MASK*US REAL 100? MASKsUS FORWARDS® 00019000 r 
@ | SAVE PROCEDURE DISKWAITCCOREsSIZEs DISK); 00019100 T 000080 oO 
bi START UF SAVE SEeMENTS BASE ADDRESS = 00000 
meg VALUE CORESSIZE,DISK? 00019200 7 000010 ; 
Or. REAL CORE*SIZE0OISKF ae een te - 00049300 7 090040 «4 @ 
A yr oeene 7 es ite - nae 4 *  0000%O. 51 
PROCEDURE ERRORFIXERCTYPED3 VALUE TYPE REAL TYPE? FORWARDS 00019500 T 000010 5 
@} START OF REL SEqMENT3 DISK ADDRESS = 00002 “| @ 
SAVE PROCEDURE SNOOLE(PRYR+ADURESS»NASK)$ VALUE PRYR»ADDRE SS, MASKS 09020000 T 0900t0 : 
@ i. 3 FORWAROJ co @ 
ef EE : See naraus -EP283 9021: gocto 
YORC#): 00021600 7 000010 
e @ °® 


REAL PIMIX»P2MIX3 
ARRAY SLATEL*]> re 


4 SEE 00105000 0000%0 


00021700 
2 


1 00023000 7. O0000'0 ; 

2 : ones) 04 t oOBH Hae 1@ 
3l is Ale NTL : oe 62 as 4 Ba 0 () : Gol On. : 

4 COMMEAT NTI THRU a} ARE USED BY THE ra FOR TEMPORARY STORAGE. 00024010 

5 ALL PROCESSES THAT USE THESE VaRIaBLeS aSSUME THAT IF CONTROL 00024020 |@ 
6 rer Trek CONTENT. VAY HAVE BEEN CHANGED) BY THE TIME 00024030 

7 ee 

8}. 

c) NT a 

10 REAL MCPBASE3 00024400 

nu COMMENT MCPBASE CONTAINS THE DISK ADDRESS CUCTAL) OF THE BEGINNING 0002 4200 © 

N2 MCP TaN Is Ce rey IN USE» THIS AQDRESS is PASSEL TO 

8 AN WGP SEGMENTs IT AD ASE: - 00024240 y O00Oto 

§ IS CONTAINED IN THE PRT CELL FOR THAT SEGMENT. 00024250 000080. 

? END COMMENTS 09024260 oo000to 

a LABEL NOTHINGTODG, RULE OMA et aes 09024270 0000t0 

9 


$ SET OM1T = NOTCAUXMEM OR MONITOR) 


00024299 
DEFINE MCPNAMESEG = CDIRECTORYTOPR=7)#3 0 . 00024910 
_ COMMENT MCPNAMESEG CURRENTLY CONTAINS THE. FOLLOWING? : 06024920 
WOROC OJ=wORDC15] = FILE IOS OF TRE AUXDATA FILES FUR MCP & INTRINCSe 00024930 
paler wORD(19) = CONTAIN THE WORD "AUXMEM " AS A MARKER, 00024940 
WORDC 20 J"WORDC27) = FILE 10S OF THE MCPYS AT HALT/LOADs 060; 49 30 
WORBE 26) - USED BY DISKSQUASH FOR COMM. BETWEEN SHAREDL SR: SYSTEMS, ‘O 


RY 


000080 
000010 
0000%0 
oocoto 
000080 


T 
T 
T 
T O000%0 
7 
T 
T 


S$ SET OM = NO’ “NE WLOGGING 
$ SET OMIT = NEWLOGGING 
DEFINE STARTLOGCSTARTLOGIsSTARTLOGZ2 )= 
| Duro. LOCK 


00025299 
00025300 


000080 
000080 
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tae ine 


ee PRESENCE — ROUTINE hee SEGMENTS 3% Oo0asg06 + Goonts: 


START GF SAVE SEAMENTS BASE ADDRESS = 
INTEGER PRTLOC»s SYLLABLE »LUCs SIZES% 000260060 T 
ORF INE pied onaltbeetnattcl ASR Rae "90027000 T 

Y MYSE MESPOLTL# FER" a “00028000 
REAL RCWZ40,DISKREADS2 a 00029000: : 


ESPBIT; 


SAVE PRUCEDURE 


BEGIN 


Ae Ae ee ee A oe Ae 


LABEL MAKEPRESENT#% 00030000 
$ SET OMIT = NOTCNEWLOGGING) . 00030099 
PRILOL*CRCW INX O)&RCWLIOI10I2I5% 0g031Q 


STREAMCRSL Tel SYLLABLE Js CLePRTLOC)IR ooog32000 rT 01 
BEGIN: SI4CL# SlesI*Qs OLeRSLTI DTeDI 46s DSe2 CHR ENDS 09033000 


 PRILOC * IF SYLLABLE THEN NTGX_ 00034000 
ELSE SYLLABLE e«(36210)3% 00035000 
IF MEMURYCPRTLOC]»-MAYBEWORKEDON THEN 00036000 


00037000 J 
00036000 7 
; es 
= geoaeeboe 


MAKEPRESENT$ BEGIN MEMORY (PATLGG) .MAYB BORK GOIN SE AUSET 
ne ae " ‘eME : j AP A FE 4073 y : 2 


DISKREADSCLUC+! )ESTZET HI Sat O eel aol saetel iE PCLT 

QC (S1ZE#29) DIV 3002724206] 5% 00041000 

SURE Ee COE AN EMT Voss CAB se2 1 eer BASE? O15025 00042000 
Ne cy NAS! ; 


___$ SET ony © XC 


MENGRYTCOCI@MENOAY TLUCTEOLaTA ASSTOCILLESE % BooanGoE T 
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‘ . * . rs a - n a a 5 Th - . ms 53 . 
io & a So & : a ix 


MEMORYCLOC+IIePRTILOCOSIZEC(1I823321515% OO0046000 FT 0033%4 © 
iC Je EMORY PR Oc &1 Tea? ] 06047900 
C eed 0% 


a ser: 


“HEGIN LEEPCEMEMURYCPRTILOC) J»>0R810734721))5% 00050000 T 4 
IF CMEMORYCPRTLOC) INX O)SCMYSELF INX OU) THENY 00051000 T O0043%2 |@ 
GO 10 MAREPRESENTIS th Soe oke, : 0005200C T 8 
a eheee 00053000 T : 
s ‘ser oma a NOTCNENLOGGING? sk 06053099. T ! 1@ 
oo POLIS aQe XI He FC ‘Xe STS. re ae Pe sn ses _ _ 000540001 46 en 8 
Go TO POLISH(MEMORYCPRTLOCI) 34 00055000 T 10 
GO TO STARTS 4 PLACE DESC,]N PRT FOR MCP TO AUXMEM TRANSFER ' 90055400 T 1@ 


090056000 


e e 
REAL ESuULT3e14 ,RESULT4si5 3 a 8000 tT 00000: d 
DEFINE SIZE=CAT1O] 4» ie iLTERERE TOLER TE 00060000 T 000080 16 
OIMENSIONSSC325)4,ULKCWTReL8210)#,MOMSC 16215 )#,CURBLKCNTREL6O# eo 00061009 7 o0nntO @ 
TSX=2 ts SFINTX=278>5 NTRPT AB 2082 00061100 T 000070 by 
“ALTNOXe68ePB1 har deienies 00062000 T d000!'O 19 
DEF INE FRE16I,9H22 00063000 Tt O000t0 . Lol @ 
MSFF a Ci6t1)#> 00063100 T O000'0 .. 24 
CF333°49ho4 . 00064000 T Oo00ddto 2 
cT R= leta3t jawed | 00065000 T 000080 4 @ 
FIFSie:1atir#,s 66 : ie 
ches 3gt3gt Sess. OMe 0@067000 7 O000%0 29 
PRGUSSIOTISE, Oe | 4PH 00067400 7 d000t0 {@ 
TASLLE7% aoe on ] ee On0Ks8000 elelenme 2 
NTEGER AVAILZ& 00069000 T a000!9 
eer LEA MMENT AVAL CONTAINS THE ADDRESS OF THE sTUPPER& saya T Sebbke py @ 
£OR -AVATL AB E_STORAGE LINKS 175 Valve IS% 00071000 T 0000t0 0 
Te FHE:  AVAILAB (D oT O000fd . ee silt 
“INTEGER MSTARTAE sgh ge os OT 000080 ke 1@ 
COMMENT ace coke tT DDRESS” OF THES - 900080 
FIRST AREA OF STORAGE AFTER END UF 00075000 T Occ0to 
ESP PROGRAMS% 00076000 t 0000t0 a @ 


090077900 0000%O 


INTEGER MEND3% | 
00078000 T d000t0 


COMMENT THIS POINTS To LAST STORAGE LINK IN& 


" MEMORYIR --- Q9079000 T CO00!O ® 
ARRAY TARL#]3 %CBNTAINS TOGLE BITS. SET BY EACH Pi): ee : 00079400 Tt. 000080 
DEFINE LOCKTOGCLOCKTUG1)= BEGIN TOGLE:=TOGLE AND NOT LOCKTUGL 00079200 0000%0 40 
TARCPIMIX]#=TARLPLMIX] OR LUCKTOG13; END#S 00079300 0000!0 .|@ 
DEFINE ee ae BEGIN TOGLE t= TOGLE OR UNLOCK TOGLS 00079400 00000 42 
ce ern TARUP IM, gots, wa ND NU ON ; ~ 06079500 T 9000080 4 
REAL TOGLEs ag ae ; OooBc000 7 000080 4@ 
DEFINE tuk a : 00080100 000010 45 
BI rogLE. Tae? oF K 00080700 000010 ‘6 
Pouce SPREE TOGLE, Castilae SHEE TMASK 00080300 000080 1 @ 
zane TOGLE 441 iH, ST ACKMASK 00080400 0000%0 18 
: SOLE. tWaiL Ie. STORENESK” oecg0sc0 T G00 4g 
00080800 T O0g0! 4@ 
sHOLOPREE Et Lj]#* HOLDMASK - oo080700 T roa 51 
aNSECONDREADY = TOGLE«C40%1]#» NSECONOMASK 00080800 5 
»ABORTABLE = TOGLE. Bees ABORTMASK =e @4Q0e 00080900 0000t0 s1@ 
ej ‘ 


»BUMPTUTIME 00080950 
KE YSOARDREAD ARDWASK : : 
LA KHASKEeG0008 


00081 300 


“S200008 


oh 
GCGLE»CI4tij]#s» FREEMA 


sINTFREE 


e 
» SPOEONULLOG = {OGLE E3381 00081400 tT 0000!0 @ 
ES RE Fase ASk = 6 008 200010 
| 3 3 00081600 t 
s 3 oer tt ye : 00081610 7 
ENNOTREADINGSTOGLEs x OH081620 T 
28:1] 4%» SHS STOPPE RARER ee pees 00081630 T 
DOHATTING=TUeLE. C27tile - 00081640 T 


»DCQPTSTUPPEDSTOGLEs Ceosiie 00081650 


oon @ Om F WH = 


ho + SCRATCHDIRECTORYREADY = FOGLE eELESLA 00081680 0 
SCRATCHD]RECTORYMASK = @, 000000008 00081690 T Ocd0%0 


To PROTECT ThE PG RATEROIRECTORY 00081695 0000380 
5 eT OP y x : 2 
8 TIME, 00081707 FT 9d0000%0 
7 *COFREE=TUGLEs [2111 #»COMASK=@4000000008 7 00081710 T dn00!0 
2 a) TR HEN CONTRO K , 000813 Kelle 
He pNOMEMBTOGLE sLA526]4 SGETSPACES. HANGING 0@081950 fF. 00 
ee sBREAKTOG#TOGLEsCigtija SBREAKOUT TOq 00081960 T 000 
: : & AKMASKs@ 1000000000003 ‘ an : : NADATOFO Ont 
eSEPTICTANKING = TOGLE,C13%1]# 00081972 T Q000%0 
T 


Ps *DIRECTORYTOG = TOGLEsti12!1J¢ 
“f a ee @ panaoeneen 


00061974 


00081999 

09082900 

: ee AL i Ss 7 Tb. i : a 4 fo eee Cee 

COMMENT “WELL MOVE Q tO 4095 WORDS? ® 00084000 
BEGIN LOCAL NpIV64ss . 00093000 

QF SAVE SEpMeE 

OSe1 CHR; ee E OOE 


SB 
3.3 


eo eee? ?0e0 060060 (@ 
S > 
= 
Ls) 
cad 
~4 
~~ 
z 
m 


a 
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GOT BT eStees psd T4735, 


00088000. 
00089000 T 

SIZE= 0004 
OC 


} DSe32 WOS)3 OSeN WOSs 


__ PROCEDURE ula ee Bs 


BOOLEAN Bs FORWARD; 
eee en at START OF REL SEAMENT? 

LABEL. DIFFCOMS. aris ae ae Lee 00089200 

SAVE PROCEDI 1E F ETSPACECLOCIIR 0. 1 


a) 


START CF SAVE SEqMENTS ae ADDRESS F 
VALUE LOC#s& ae eee rT 000080 
_ ROCs. 3 | 


~ FORWARDIS TiC Ie 


ARRAY, BEOLe); eae _ | %  GMIXMAXed 00094000 - 
"OMMENT ENTRIES. 1N THE BED HAVE: TWO WORDS, : ee 00095000 
THE FIRST WORD HAS THE FOLLOWING FORMATIR 00096000 


Q= 2 a 5% 


09097000 
Jo 7 = MIXINDEXS _ 


GOG28000 


‘OF FW at Se erste x 
THE SECOND Wa IS A MASK aL BIT 0 IS OFF, 

THE SECOND WORD 1 AN ACCIDENTAL ENTRY HESCRIPTOR IF BIT o 
IS ONSS 


00%0 
000080 
+0 


EX FO) ING UAC 
ANS N 8 1s CURRENTLY BEINGS | 
THE MIX INDEX FOR THE JOG BEING! 


00108000 
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5 g a cy shy Ry mS ~. 3 > 
> oO > & ss 5S 8 


el: 


$ SeT OMIT = NOT CHORKS Aye 


CURRENTLY PROCESSEY ON PROCESSOR 2, JF PROCESSOR Is IDLE 
we HEN REMIX = Oy IF THERE JS NO PROCESSOR 2 THEN PaMIxej; 
REAL DATESO UOT nase 1 Tee ery ee 


REAL XCLOCK= @1743 
COMMENT CLOCK CONTAINS THE NUMBER OF TIME INTERVAL INTERRUPTS 
PROCESSED SINCE HALT*LOAD IN Q-ajs% 
REAL READYS@1723 0. ae es oe 
oe COMMENT READY ‘CONTAINS THE CONTENTS OF THE READY REGISTER ONS 
AD a : 
COMMENT  STATUSBIT 1s FALSE IF THE STATUS ROUTINE ITS RUNNING AND 
TRUE OTHERWISE, THIS PREVENTS TWO COPIES Of STATUS FROMS 


Z pre AINTING RT FOR, x 1d! 
ARRAY PaTaaNe TEED & NIXWAKS 43 
COMMENT PRTROW IS DUPE VECTORS FOR PRT3% 
ARRAY YARC *s #)3 % 
‘WAR HOLDS INFO OF gOBS. IN PRUCESS® 


ARRAY _INTRNSCE#)3 REAL TSLZE3% _RE*ENTRANT INTRINSICS On uSER DISK 
ARRAY INTABLEL*s* J» INTABLEROWS [NTABLE[ #133 
$ SET OMIT s NOTCAUXMEM) 


ARRAY SHEE TE» & 5% 


ARRAY JARROWEJARC#]2. | | “% MIXMAX44S 


DEF ENE TABCNTCTABCNTI) = “JARROWETABCNTLIs CRF a3 
‘COMMENT TABCNT IS THE NUMpeR OF pROCESSES WHICH HAVE CHECKED 
JARROW AND ARE CURRENTLY ACCESSING MIx TABLESe IT ASSLRES 
THAT THE TABLES pate VANISH BENEATH A teee PapeES tes) 
THE HA 


SECOND “RORD oF “AN ENI R 
ROUTINE.% 
Eta AND LSLATE ARE POINTERS TO THE Seares a 
“NSLATE POINTS AT LAST ENTRY WHICH WAS STARTED,S 
RSE ATE POINTS. AY bast ENTRY PLACED IN THE SLATES 
REAL JoBNuMs® ie “ ee eee 
CUMMENT JOBNUM PUIN A EN RY IN BEDs% 
CUMMENT STACKUSE IS TRUE IF THE INDEPEDENT STAck IS yoTt IN USE, 
OTHERWISE FALSEs % 
BGOLEAN NOPROCESSTOG 
COMMENT : NOPROCE S§TOG Te ate: .F NORMAL STATE PROCESSING Tsx 
ALLONED? OTHERWISE IT-IS FALSE, IT 1S USED BY OVERLAY AND 


OTH V 
Real SOFTI; % NiWeEs OF JOBS IN MIX HaVING SOFTWARE INTERRUPTS DECLARED 
REAL wITCHINGHOURs WORDOFEASES 


& SQ EVERYONE ‘eouLD. USE. THEM, THEY CONTAINS 
: WGHOUR 3184000 _ 
“WORDOFEASE 85525 259505252535 


3 
DEFIKE NDX=383 
TRRAVORFOLE 


* NUMBER OF ENTRIES PER JOB IN NFO ARRAY 
: i AXXNDX 
CTIVE MIX INpE + 


WE DESCRIPTOR 


00150000 


TW THE OUTER BLOCK BUT WERE 


00158100 
OR, 


BLOCK DATA ‘DESCRERTOR _ 


00109000 


00110000 


- “O0tit000 


00114000 T 


ero. 


oorsiead. 
heehee 

230007 
00125000 . 
00126000 


00 j one 


001300 


00131000 
00132qQ00 
00133000 


00134006. 


00134100 | 
001435000 


00135100 T 
00135199 T 


00138000 


Ool3 e100 


00138120 
00138130 


COL aeOOC 
00145000 
90146000 


00152000 
00153000 
00154000 
00155000 
00156000 
0015700 
00157100 
00157500 


00157900 
00158000 


optarooo. 
00142000 


aa ee ee ae aah aH 


QOE8 r6Q0. | e 
00157700. 
00157800” 


a4 ae 


0000!0 
0000%0 


000080 


000030 
0Qg00!o 


060070 - 
- 00080: 
000070 


0000%0 
0000%0 


000080 
000080 


0000%0 
0000tO 


000080 
090086 
— 000040 


000080 


000010 
DO00TO 
000040 


000080 


0000%0 
000040 
0000%0 


FO00F¢ 


ogo 
900080. 


0000%0 
0000t0 


LAS 


% NFOCCMIX*1)*NDX#2),0CF) = LOCATION OF BOTTOM OF STACK (B=wWORD) 00158600 T 000080 @ 
4 NFACCMIX"*1L)XNOX+2],CFF) = ESTIMATED CORE REQUIREMENTS 00158700 0000:0 
x NFOCCMIX*SIXND X42), ei a8 5 a eo 3 00158800 Tt - ) 

ARRAY TSTACKEO)) ; 00159000 T © 


00161000 
00162000 
00163000 


COMMENT PROCTIMELII CONTAINS PROCESSOR TIME FOR 508 WITHS 
oC INDEX & [3% 

*& MIXMAX4 43%. 0016 10 
wig ery LOTIMECT) CONTAINS. ITa0 TERE FOR JOB WITH MIX INDEX 873. ~ 00465000 7 O1 
OMIT os. NOTCNEWLOGGING) . - Q9165009 1 
EE {OLDER REC 06165800" 


oem nx o8 8 ® WH = 


STORY TORS S Fs 


0000!0 
oo00ta 


00165610 1 
00165820 


~ EUTAPER=,98#» 
DISK AVAIL ABLEMAX® 1304 


5 . TA 3B ‘ v% ry 

. $ POF OMIT 00166007 0000%0 
7 COMMENT NEUPeLCF] CONTAINS THE NUMBER OF EUS ON OKAs 00166010 000080 
. SUPeNEUF CONTAINS ThE TOTAL NUMBER US ON THE SYSTEM : 00166925 000039 
i EulO AND PEUIO CONTAIN THE IO TIME USED BY A GIVEN Ee 001466939 0000%0 
1 


THIS INFORMATION IS USED BY GETUSERDISK IN aN ATTEMPT TO 00166040 T 000080 


NIMIZ ON 00146050 a000%sS 


CEFINE MIXF = C35] 854 00168000 0000%0 
Bs ARRAY CHANIO(¥]3 00169000 000030 
ARRAY CHANNEL[*]3 & % 00170000 0000%0 
COMMENT CHANNEL TI] CONTAINS LoGicay UNIT OF LAST DESCRIPTUR: ; 00171000 T 000% 
SENT OUT ON CHANNEL I3%° | SarTzedo. Sacote 

a. See : . Oa “P000 


ARRAY LOCATQUEL*]3 Setricae 


Data Documents/inc. 


5 . ry * 5 * a a : ARE A 5 Th - TB x > 
g > & oe = oS & Gj G3 


32% 7 oo00to. 
COMMENT JOQUG>FINALQUE® ay LOCATQUE TOGETHER WITH “UNTS FURMS 00175000 tT 000080 
THE Is a GUEVE 00176000 0000!0 


an i= a) REQUEST FOR | : : 
T*0 QUEUE, | 00177000 T 000080 

QUEUE, THEN. TOGUECS) Me 1178000 FT 0000!0 

5 » FINAL GS) # 1*0 DESCRIPTOR 0179000 T O000%o 
SKELETON TO BE USEU AT T-0 COMPLETE TIME TO REBUILDS 00180000 T 000080 
Ie0 DESCRIPTOR» LOCATQUELS] = LUCATION OF I#O DESCRIPTORS 00181000 T Q000%0 
AT TIME OF REQUEST. LOCATQUELS) CONTAINS SOME a0 bry yNar 00182000 tT 000080 
TN 8 we ‘TION, IN PARTICUL At Lig 00183000 T d000to 


3° 7 = MIX INDEX. OF REQUESTERS 00165¢000.. 000030 
® [70 15 READ LOCK WHICH HAD ERROR CSHAREDISK). 00185400 T O000%0 
= OLAY 1/70 CIOFINISH PLACES RESULT ON ERROR), 00185500 T 000080 
= \O MEM MESSAGE, 00186000 T O000%0 
: 11 = ERROR RECOVERY IN PROCESS ON THIS I-06 . 00186400 T G000%O 
pe-47+5 LOGICAL UNIT NUMBERS 00187000 T. 000040 
18732 5 INDEX OF NEXT REQUEST TO BE DONE ON THIS UNIT 00188000 Tt O000'0 
UR @77777 iF NO NEXT REQUESTS 00189000 T Od000tO 
33°47 = GRIGINAL LOCATION OF I*O0 DESCRIPTOR, 00190000 ~T 0000%0 


unt CONTAINS INFORMATION ABOUT LOGICAL UNIT Wed 00191000 
ie @ em TYPE OF 340 pPEVICES 00192000 
t LO GF LAST. 1/0 DONE ‘ON THIS UnITs . 00193000 

(IT ADY BITS = OOL94C00 
ERROR BIT CON IF ERRURD® 00195000 
WAIT BIT CON IF UNIT IS WAITING FOR A CHANNEL 00196000 
PROCESS BITS (USUALLY BOTH ON IF UNIT ys IN% 00197000 

ROCESS | Tt) Fe -WETH NTERS T 00 


er 


00C0t0 


aa 


000080 


00201000 T 


REQUEST FOR WHICH SERVICE 


9 
INDEX OF FIP ST 1*0 


Data Documents/inc. 


@ q 
e 1S NOT COMPLETES 00202000 1 000080 q 
33°47 = JNDEX CF LaST UNSERV D [=O R -ST,% 00203000 000039 
“THE SPACES NOT USED IN THE I= QUEUE ARE cINRED TOGETHER 00204000 7 O00010 ' 
@ _ THROUGH 10QUE, . THe FURST. AVAL AGE 18 IN TOQUEAVAILIS 00205000 T Oo00to  pl@ 
AL NQUESLOTS « OQUF AWAIT OO205800. O000tn 3 
ARRAY LOQUEL*)3 00206000 T Q000to i 
@ DEFINE RETUBNIUS PACE CRETURNIOSPACE1 } = 00206500 T oOGooto /@ 
GIN IQQ LOTS 3= ; ae a 00207000 N000%O_ 8 
Toave tRETURNIGSPAGE TIT fOQUEAVATLT 00207500. Tt OoO00%0 . J 
@ OME AVA Ue sRETUANEGSPACE LS o0208000 T O0000%0 . |@ 
: - -ENDSS , Oe208s600 © ofolelee ome 
ARRAY UNITL*]3) 00209000 T 0000t0 
@ COMMENT UNIT NOW FILLEL IN INITIALIZE; 00210000 T 00089 @ 
ARRA \ «3 % 00 Ond0tn 12 
oe 7 ~ED ae NE eed BP as CBSaLGdey Cunaete Pe 3 
@ | AY WAITOUEL@])) : oe ee eT 0276000 r Oooto @ 
REAL. JEXTWALTsFIRSTWAL Tk. ae ___ 00279000 _0000%o 
COMMENT WAITQUE IS A QUEUE OF UNITS FOR WHICH THERE ARE® 00280000 T 000010 
@ RE@YESTS BUT NO CHANNEL IS AVAILABLEe NEXTWAIT ANDS 00281000 T v000%0 |@ 
FIRSTWAIT ARE POINTERS AT THE WAIT QUE NEXTWAIT JS THE? 00282000 0000%0 18 
NEXT AVAILABLE SLOT IN WATTQUE AND FIRSTWALT POINTS ATS 00283000 t d000%0 "9 
Or : : NEXT UNIT TG. BE USED WHEN A CHANNEL IS aAVAILABLES% 00284000 T O000I0. Ld @ 
ARRAY LABELTABLEL *#)3 % 32% 00285000 + 00080 21 
: ARRAY MULTITABLE[*]3 & 32% 00286000 T 000080 23 
@: ARRAY RDCTABLEL*)3 | % 32% 00287000 T c000t0 1 @ 
ARRAY PRNTABLE[*)3% =o ae 00288000 T 090089. 2 
: ARRAY REPLYC#I3% 002890007 0000 ps 
@r eis LABEL TABLE» Mi TE TAAL Es AND sbcakare: CONTAIN LABEL INFORMATIONS 00290000 T Od00080 | @ 
__ BY LOGICAL UNIT NUMBER AS FoLLqwSss | 00291000 Tt. O000tO 2 
pe LABELTABLELI] CONTAINS THE FILE ID FOR LOGICAL UNIT 1.% 00292000 tT 0000%0 2e 
@ F: MULTITABLELI] CONTAINS THE CORRESPONDING MULTI@FILE IDe%¥ 00293000 tT 0000%0 rs @ 
p _ROCTABLELI) CONTAINS THE CORRESPONDING REE MBER CIN (14%10)) 00294000 0000!0 fe 
“CREATION DATE CIN. Geass TEs: ANE CYCLE CIN Cait?})3%) CO 00295000 T d000!0 eat 
@: g§ SET OMIT. = NOTCSHAREDISAD, 00295999 -T doD0!0 | @ 
REAL OPTIONS %. Sone 00297000 On00tO 3 
REAL ILL» INQCTS 00299000 T 000080 ‘ 
REAL PINGOS 00301000 T do000to of @ 
REAL READQ»RRNCOUNTS DEFINE PUT Eg 00301400 T O00080 6 
 $ SET OMTT s NOTCDATACOM ) i Se = 00301200 T » 00d0%0 a 0 
ARRAY TRANSACTION( J; 3 | 00304000 T 000080 i 4 @ 


DEFINE ETRLNG = 583 ¥ LENGTH OF ENTRY IN Fab BLOCK 00303000 7 Oo00to as 
s VALUE | 00306000 T 0000!0 40 

START UF SAVE SERMENTS BASE ADDRESS = 00055 ®@ 
BEGIN REAL T4113 00307000 T 0000%0 42 
“STREAMCNI ENE ROP one TE SLT Ie 00308000 T O000TD ; : 

BEGIN: SKIP N UBs DSteSETS ENDS” | 00308500 T oo02%y 4 @ 
END TWO3% 00309000 T 000384 | e 


SIZE= 0004 WORDS 16 
REAL SYLLABLE} 00310000 T 0000%n 7] @] 
: SET OMIT = NOT (SHAREDISK) 00310099 T 000030 : 
SET OMYT = HAREDISK © 00 y0719 7 0COdTO re 
Diriee SYSNOSO#s ‘SYSMAXELE; 7 és : 00340200 1 900080 5 @ 
$ POP OMIT. as Bete as, 00310201 T O000!I0 ; 81 
COMMENT ANAL i PLAC E YLLABLE HAT CAUSED THE INTERRUP 00311000 T 000020 5 
IN SYLLABLE, THIS IS USED BY PRESENCE BIT» FLAG BIT» ANO 00312000 T 000080 ~ sa @ 
VARIOUS ERRORS3% 00313000 T 00000 
55) PROCEDURE FORGE TUSEROT SK: FAM, VACUE OMALER AL ASL EFORWARDS& “OOST6000 F Todoto oe 56 
: a Sa ner é START OF REL SEqMENTH pysK ESS = 00002 bel @ 
ey REAL -pROCEOU EP pTIEVAL \E Nat RE ne NaTEEORWARD 3. 00346406 oggo'o JS. 


START OF REL SEAMENT? DISK ADDRESS = TULLE: 


Data VDocumenis/inc. 


5 5 + . * 5 . 5 : o a 55 TS = aS 3 = > = 
ho > & o >  & a g 


NOT DEBUGGING 
NOT DEB [NG 


$ SET UMIT 
_ OMIT 


ARRAY DALOCL*s4), DALOCROWSDALOCC #15 


§ SET OMIT = NOTCBREAKOUT) © 
R EMASK}S 


REAL OLAYMASK?R FOR LUCKING OUT SeTRONEUCETOTSR OT MIX INDEX 
PROCEDURE USERDISKSPECIALCASE(QeNeUyJ)FVALUE Qs JSREAL OpRoui 


ARRAY UL#)]a. FORWARD Re 
DEFINE BASES30ZO08#235 
: HUNKS IZES50083% 
REAL LEFTOFF:; COMMENT POINTER TO CYCLE FOR OLAY;4 
SAVE PROCEDURE DISKRTNC(SEGNO» SIZE) 


dE ircrieccipeerirt a eee 
 SEGNOs SIZES 


PROCEDURE FAnGETESFOTSRISEGQITVALUE SEGPREAL Sit anmagoi 


START OF REL 
SAVE JNTEGER PROCEDURE DISKSPACE(CNWORDS» PIMIX* AUX 3% 
START “OF SAVE 
“VALUE NWORDS*#PIMIXs AUX} 
INTEGER NWORDSsPIMIX3 REAL AUXs 
FORWARDS % 
PROCEDURE STATUS}& 
START OF KE 
FORWARDI2 
PROCEDURE INTERRUPT ( TYPE) VALUE HyPES REAL’ TYPES FORWARD; 
START OF REL 


REAL SROCEDURE F NOOUTPLTCMID> FIO; TyPESFORMS REEL ODATE, CYCLE, KIND)3% 


START OF REL 
VALUE MIDSFIDsT YPE»FCRMS»REEL*C DATE »CYCLEsKINDS% 
<I? URMSsREEL + COATEs CYCLE*KIND 


REAL MIDsF IOs TYPE? | 
REAL PROCEDURE deste die eater shales aT 


ie START OF REL 
: E> CYCLE* COBOLP UL? UF > MOD ? 
MID»FIO, REEL» COATEsCYCLE sCOBOL»eULs»OF sMODEsFNS FORWARDS 


PROCEQURE STARTTMING CNS U}3 VALUE FNeU3 peel oa ee 


SAVE SEE SEVEDBERTITI VALUE as REAL Wi 
START OF SAVE 
BEGIN FILEGPEN(2/A) ENDS 


PROCEDURE NIXPRINTCO)3 VALUE “QR. HEAL Qs FORW ARGS 
START OF RE 
% TYPES 208 SPECIFIERS> FOR EACH ACTIVE MIX INDEX 
PROCEDURE JOBMESS(MIXsQs Ar Bs CoD ISVALUE MIX9Q2 AP Bo Cats 
START OF REL 
REAL. MIX+Q2 Ae Be Ce De FORWARD? . 
0 NOTL 12 PW La VALUE VARWLE aE ai UeRWLs FORWARDS 
Bee CE Pa START Of REL 


00316999 


00333000 
00333099 


TELE 
09336100 


00336110" 
00338000. 


06339000 -t.- 


00341000 
00363000 
N 


goatee 
00363200. 


OO8637900 _ 


00364000 
SEAMENTs DISK 
ae 00345000 
SEGMENTS BASE 

00366000 

00367000 

00368000 

00349000 

NT3_DYSK 

00370000 

00370500 

ENT? DSK 

00371000 
SEgMENTS OY SK 

00372000 


“00373000 T. 


00374000 
SERMENTS DYSK 
00375000 
00376000 
00377000 
SERMENTS OFSK 
00379000 
SEGMENTS DISK 
003791400 
SEGMENTS BASE 
00379200 


00379400 
SEgMENTS O1SK 
00379500 
0037960C 
EqMENTS DISK 
00379700 
00380000 
SEGMENTS DISK 


SEFINE STOBTTWINGSSTARTININGFI 
PROCEQURE FILLBuUFFERS(CURRENT»FINAL»COBUOLeNR)3 
START OF REL 
HBR NTE TRAE oC CBRL NR?” 


ry GETBUFFER: ILLSUFFERS #2 . oo 
~PR OCEDUR E REAL LECLOSECA)3 VALUE As REAL Ay FORWARDS 


00382000 
00385000 
SEAMENTS DISK 


00385500. 
00386000 


003987000 


'$ 0002 , 


90002 


T 0000%0 
O0000%h 
“oo0clo 
- O0C010 - 
OO00In =... 
900010. 
Q000%0 
DRESS = 
- GO008O- 
-9000t0 
OU 8 f 
T Q000%0 
ADDRESS = 
0000%0 
ADORESS « 
T 900080 
' 900020 
T 000080 
T. 0000%0 
ADDR z 
T 000080 
e Rehoie 
ADDRESS «# 
: "000010 
ADDRESS = 
00000 
7 0000380. 
“y 000030... 
ADDRESS = 
T QOO000t0 
T 0000%0 
T 00000 
ADDRESS = 
T Q000%6 
ADDRESS = 
T OQC00!0 
ADDRESS = 
0000%0 
“$1ZEs 0002 
T Q000t0 
ADDRESS «s 
T 0000%0 
T oOcocto 
ADDRESS = 
Jy OO000. 
tT. 00000 
AODRESS » 
T acoote 
T 0000380 
ADDRESS = 
T O000tO 
‘TT. 0900040 
0000!'0 
T Q00080 


00389000 


@ @ 
e | START OF REL SEGMENT DISK ADDRESS = 00002 e 
SAVE PROCEDURE FILECLOSE(A)$ VALUE AS REAL AZ — 0038910 200040 Ee 
See See ee ae Oe a START OF SAVE SEqGMENT# BASE. ESS » 90061 : 
i 0038920 Vee 1@ 
seat ; “uate a EE Rs SNS I at uy ee eam coe Sy 7es WOR es 3 
REAL PROCEQURE DISKADDRESS(MI ps FIipsFPB3sAshse T0)5 % (SHM) 00390000 T 000080 ci 
| START OF REL SEGMENT# DISK ADDRESS = 00002 |@ 
2 VE M De F pD»FPB pAshes ; 00390100 Tr O00! ; 6 
JeFIDSFPBSeAs TOs. ARRAY HE]; 00390200 T O000!o 7 
: ee Oe ee 00391000 if eo00to |@ 
PRO! ESURE B rac VALUE U3 REAL Us FORWARDI® 00392000 rt. O000!I0. .. |e 


START 


SEGMENTS DISK 
00393000 


— START 4 
puna riptE er Nes % : pa 
ee Je 
PROCEDURE PURGEIT(U)s VALUE U$ INTEGER US FORWARDSS “00397000 T 000080 
| START OF REL SEGMENT DISK ADDRESS = g0002 j@ 
REAL por TAGrE pepe Ny 00399000 tT 0000%9 bee 
oo 00400500 T O000tO : 
00401000 T d000%0 | 2 @ 
: ADDRES 004011400 000080 4 
REAL MESS AGEROL DER? 00402000 T 0000%0 a 
DEFINE USEDRA = UPTION.L47#1I# og GoNos000 T Co00r> 41@ 
US! ORE. OPT ONeL4otyl#ee% a Ree eee in ie ee 00404000 000080 24 
O “BOPTION,LGSt1) 808 00405000 0000%0 le 
6} 


Get Oh Serra ae 00406000 T d000%0 
: = ae : oy 00407000 
00408900 
00409000 
ry 4 


Ooat10007 
00442000 
904343000 


TERMGO SUP TION. were 


000080 
~GIVEOATE = OPTION. CaLtijees 
C % 


ee 


ECGE aaa 31 
000030 : | @ 
000080 


Data Documents/Inc. 


a a * a gy * y a n 7 5 Th . Ts > ~, 


NOTIFYOP= OPTION, SLIESEIE; 


00414000 
DISCONUC = OPTION, C36I1)#> 00414100 7 000080 2 @ 
COPNUESS ZOPTIONs [3531 j#>% 00415000 0000%0 4 
CLOSEM | TONS C IMR) 89% ~~ 00446000. 3 
ERRORMSGSOPT LON, L33 She : 00416050 


RETMSGSOPTIONs T3201) 89. é oe 00416100 

TBMSGSOPTION C31 00416200 
SCHEOMSGSOPTIUN,C308114> 00416300 
SECMSGFOPTION,C29%1) 85 00416400 
DSKTOGSOPTION. C2881 3%, 00416500— 


C000TO ‘ 
000080 «l@ 
000080 
dO00tO p 


po eS eee em os re ee 44 


RELTOGSOPTION ,cCa7tiles 00416520 o000t0 1@ 
PBORELSOPTIUN. C2681 14> 00416550 000080 49 
CHECKLINK = OPTIONeC aS? 1T8 00416560 0000%0 

DISKMSGZOPTION,C24%ile> 00416570 000080 1 @ 
USEPBDSOPTION. C2131] 4,% 00416600 : 
“SvPaT SOPTION, CROs 145 , a 08416610 Tt 0000 ‘9 

OGsOPTY eS | / Go41s620 Tr G0OaK ; 1@ 
ANALLEGPTION. Li7tiié, TEE 5 

COBEGLAYSOPTION,CiOtije> 00416730 T O000tO0 :@ 

COREST=OPTLUN Cistijs, 00416740 

A PTIONeL * : 0-4 E 


00416770 T D0008G 


PUNCHLCKSOPTION, (C7? 1 


Data Documents/inc. 


i a a cy Tk . Th x. 3 > 
> Of & 5 & A 3 G oF HD > 


a a 


CDONLYSUPTION. L621 J4#> 
PKTONLYSOPTION.(S'i) 8, 
SERARATESOPTIONS A Mceae 
MODSTOSEOPTION,C2ti Jer oe 
“AUTOMESS @ 0P. iva es 
XXXXXX# OPTION, COsol]#s% 
DEFINE BOJBIT = ASCIBtU2t6 Jas 
EQUBIT = 44(18t42to)es 
“OPNBIT = 430i18t42t6j#, 
<GOPNEETS” S5018t4 : 
SLOSEBITE3aC {Bt be 
ERRRBIT = 33L1arazse}#, 
LIBBIT = 31018842t6lee. 
SChEDBITS J OL eiaie its 


A WAYSBITS63[ 181423 683 
REAL USERDISKBOTTOM} 
% OISk ADDRESS OF USER DISk AVAILAB 
REAL CIRECTORYTOR3 . ae 
% DISK ADDRESS of OIRECTORYTUP SEGMENT"“STORED IN MCL) 
£BY MCP LOADER AND STORED IN MCP PRICOIRECTORYTOP) . 
REAL DISKBOTTOM; 

% OISK ADDRESS OF TOP OF BYPASS DIRECTORYe USED IN SCRAMBLE. 
$ SET OMIT = NOTCSHAREDISK) 
$ SET OMIT * SHAREOISK 

REAL HOLDER +NEXTSLOT*BYRASSS 
SET OMIT # NOT STATISTICS OR OME Pe eae 
DEFINE HOLUMAX = 3043 & MAXIMUM NUMBER OF ENTRIES IN HOLDLIST 
COMMENT THE HOLOLIST CONTAINS A ONE WORD ENTRY FOR EACH PROCESS 
THAT 1S WAITING TO_ us 


"THAT IS BEING WAITED FOR. 
HOLOLISTC II» (1088)2M1x INDEX OF THE PROCESS THAT MADE THE 


SYSTEM To anaKEN THE PROCESS THAT WADE THE ENTRY, 
THE NSECOND ROUTINE EXAMINES THE HOLOLIST IN 
___URDE ONDIT AREDISK ONLY 
STORYSEARCH, NSECONDs AND CLEANGUT ARE THE PROCEDURES 

MANIPULATE THE HOLOLISTs 


THe WORDS ASSOC TATED WITH DIRECTORY SANDL ING ARE $ 
HOLDER CCF) DISK ADDRESS UF HOLOLIST, 
LFF) NUMBEN OF ENTRIES IN HOLDLIST. 
“NEXT ayo a ‘DISK ADDRESS OF FIRST HEADER IN QUEUE oF 
eee uP i DERECTORY & ¥ 

“geass: ue F 


wUFF) = LOWEST A RDORESS OF THE RATA DIRECTORY. 


ue i 


ON SHAREDISK* HOLDERs NEXTSLOT a~Np BYPASS ARE KEPT IN THE FIRST 


THREE WORDS ls THE Bien SEGMENT LOCATED AT EC ores A 
.: 7 RE AROS: : 


TPASSLEVEL CONTROL CRS) 


N FCER RESTART INGS 


00416780 
00416790 
09416800 


00416990 


0041699 
00417000 
00417010 


at 


00417052 
Aone 


ooat7o7s” 
90017080. 


err 


00418000 
004180919 
00418050 
00418060 
0041807 

00418100 
00448200 
00448799 


4-4 ——4H 4 


gale —1 at 


(00448849 | 


00418850. 


UH .2 


aGaTesoe: 


00416910 
O0481e 


aURCEE 
00418937 
00 


00418940 tT 
00418945 — 


ON 818950 


00418955 
ooo ee 


76 
ogatee? 0. 


00418975 


00418980" 


004418985 
004148990 
00418995 


00449000 
00449005. 
004819010 


00419015 
00419020 


00419025 


© 00819035. 


00.4 


00419100 


‘Ooa1eg20 Tt 
: oou6925 1 


o000ta 
0Q900%9 


000010 


“000080: 


gonote 


000089 
000080 


STE 
00000 


paoate 
000080 
000030 
Qo00to 
0000tO 
9000tD 
0000%0 
000030 
0Q00%0 


~—O000T0 


conde 


9000. 


Ooocto 
0000%0 
O000%N 
O000tn 
000080 


00000 


Q000to 
r Q00080 — 


0000%0 


900080 


, OO0G80 . 


000080 
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8 a * 0 a Fy y cS a a aS 3 Th x. 3 = 


$ SET OMIT = NOTCGREAKOUT) 00419104 T 000080 @ 
) .E SCRAMBLE (SCRAMBLE 1+ SCRAMBLE2 ) 5( = 2x 00419110 000080 
(CSCRAMBLE 1. (67161 4SCRAMBLE1,Cadtagq)) MOD MODULUSXMODULUS,. 00449120 T  O000%0 . 1 
‘CSCRAMBLE2 Totsei+ScRamaLee, (eaten) MOD: NRRL? Pe 00419330 T QOCOTO 1@ 
DISKBOTTOM)#s 00419140 T 000010 3 
MUDULUS#13%* DIRMOD= 1698; 00419350 T O0000!0 ‘ 
COMMENT 00419210 T 000080 5|@ 
THE RELATIONSHIP beTWEEN MODULUS AND DIRMOp 153 00419220 T 000080 8 
“PIRMOO fe MODULUS x MODULUS» WHERE MODULUS IS A LOW 00419230 7 000010 7 
OOD PRIMEs (THE RECOMMENDED VALUE OF MOpULUS IS 13), 00419240 T O00080 © 2|@ 
FOR SYSTEMS WITH GNLY 4 MEMORY: MODS+ MODULUS MUST BE 00449250 y+ OO000tO 9 
SET TO A SMALLER VALUE SO TRAT DYIRECTORYBUYLDER WILL 00419260 T 090080 ‘9 
NOT GET A NU=MEMs MAKING [T IMPOSSIBLE TO HALT/LOADe 00419270 T 000010 /@ 
TT IS SUGGESTED THAT MODULUS BE SET TO aye DIRMOD TO 424 00449280 T 0000%0 12 
| "FOR A SYSTEM WITH 4 MODS, #1 WAY BE NECESSARY To SET IT 00419290 T G90010 
--SMALLER® DEPENDING UPON. O1sK CONE TGURATIONS | 90419300 T OO0OTO @ 
ARRAY. ESteelt ARRAY FSROWSFSC es a 00419400 T .0000!0-. 1 
ARRAY USERDISKL*]3. . 00419900 r 000030 Ke 
$ SET OMIT = NOT DEBUGGING AND NOT DUMP | 00419999 T O000t0 hed 
OMIT = SHAREUISK , ; | ______00421099 1 90GQ! ; 
GeFine LOCKDIRECTORY = 00421100 T 000030 
BEGIN: TF ‘NOT DIRECTORYT OG. THEN SLEEPCCTOGLED,0TRECTORYMASH} Oo421200 T 000080 oy @ 
0 ae ong; UR YMASK z Career 00.8 2) STOLSeR Te 7 
END#> 00421400 fT 00000 1@ 
UNLOCKDIRECTORY = 00421500 T dO000%0 a 
2 4) 
Ae UNLOCKTOGCOERECTORYMASK) } 00421700 T 9000!0 5 
ENDAS core 00421800 T Od000t0 2 @ 
POP OM) . igh OE hs oe 00421a01 0000406. 2 
$ SET OMIT. = NoT SnAREDISK . 00422490 T 0000%0 28 
REAL LOGFREE» IUMASKsSAVEWORDS 00425000 T 0000%0 24 @ 
REAL CORES ——#USE0 FOR SEI ECTION PURPOSES 90426000 T OQ0QtH  _ is 
COMMENT. 00426;00 7 O000t0 is 
“CORE sCuti4) = “MULTIPROCESSING FACTOR. (*1000 ; 00426200 T O000!0 | 
CORE.(€16:15] = SUM OF CORE ESTIMATES FOR ALL voBS 00426300 T d000!0 
NOW ACTIVE IN THE MIX CDIV 64) 00426400 T 0000%0 
cORE.C33315] = gMOUNT OF CORE MEMORY INITIALLY aValbaBle FOR 00426500 T 0000!0 33@ 
FROCESSING NORMAL STATE JOBS (Oly 64)3 00426600 00000 6 
FORWA “00426700. 0000to 37 
START OF REL SEAMENT) DISK ADORESS = 9 @ 
ey 00426800 T 000010 39 
PROCEDURE ETT oH VALUE MTAEAL AS rr GHWAGDI CUPL: T 00080 0 
START OF REL SEqMENTS DISK ADORESS 2 90002 «|@ 
REA PROCEQURE DIRECTORYSEARCH (Ar Ae CO sVALUE Ar Be Cpe 00428000 T Q000%0 a2 
See START OF REL SEaMENTS OESK ADDRESS = g000e 4 
REAL As Ged FORWARDSZ | 00429000 T CO00to 4@ 
DEFINE HEADERUNLOCKSHU#> ee ete: 00430000 7, 000030 49 
HUCHU1»HU22 hU3)2 00430100 T 000080 46 
PCMKSsHU3ZeHUL sHU2 9 pDIREC TORYSEARC DEL) #3 00430200 7 0000%0 «1 @ 
REAL PIRECTORYSEARCSDIRECTORYSEARCHS 00430225 T 48 
RAHESDERUNCOCK: GAN BE USED TO WRITE IN THE DIRECTORY A CHANGED 00430250 T 49 
TURN. OFF THE INTERLOCK BIT AND DG THE FORGE TSE ACE. -  98430275.T 000040 |@ 
3. Y BE | q ~ 00830300 T 000080 51 
4% THe PARAMET os PASS ef MUST 6 AsBoDS 00430400 T 0000%0 5 
%#% WHERE A*B ARE THE SAME AS PASSED TO THE DIRECTORYSEARCH 00430500 T 000080 s|@ 
%% AND OS [IS The pe SUL. OF eT DEN EC HOR USERE ; 00430600 T 000080 
“REAC. CLOIDLE! ME. Cs oe ny - OO830900 YT OO00TO — 6 
PROCEDL Q0431000 + OQ0O!O 1{@ 
ey ae "START OF REL SERMENTS “ADORESS = 90002. i; 
- KL L 7 , 903 UOQa OOQ oFezere () e e 


Data Documents/inc. 


5 * 5 e ry = « 5 Z 


e e 
e START OF SAVE SEGMENTS BaSE ADDRESS = 00062 ® 
004 000 000020 
1 ARRAY MESSAGETABLEL* J} 00435000 000089 
@ |: DEFINE: WESSAGETABLESIZE- al 543 r NUMBER OF MESSAGETABLE ENTRIES 00436000, T eoents 
3 DERINE i ne 
4 OPTIONSZ = (MESSAGETABLELOJeL8%10])#, 00438000 
@ |: TERMSGSZ = (MESSAGETABLEL1),C8: ee sacha 
6 KEYMSGSZ =. CMESSAGETABLECZ),£6210) = 
7 CCTABLSZ (MESSAGETAGLED SI's teitenia a OB NRE SDS” 
@: $ SET OMIT = PACKETS — phd - 00449999 
al DEFINE: : - ae O.T. O0G0010 
ho SPOUTIT (SPOUT ITI» SPOUT ITD I= SPOLT(SPOUTITID# 00450100 0000%0 
eo. SPOUTERCSPOUTER] » SPOUTER2sSFOUTER3) @SPOUTC SPOUTERL ) #3 pane a 000080 
i PROCEDURE SPOUTCMESSAGE )3 
? CE ge Ee a pear: START OF 
@ hal a: on 
5 aR wessaats yoo" 
a| SORMEE: 00450600 000030 
ee DEFINE . . 00450700 T 0000%0 
id ILEMESSAGESFMS#s 004508 QN008O 
9 FMSCEMSL 9 FMS 29 FMS 39 FMSGs FMSSe FMSG6e EF MS7 2 FMSB )® 06450900 0000!0 
wie | FILEMESSCF MSIF MS2¢FMS39FMS4 oF MSS »FMSOSFMST )&5 00451000 7 000030 
1 PROCEDURE FILEMESSC]+KoMeF eRe fe Cd3 On 45 06 Qo00%n- 


START OF REL SERMENTS DISK ADORESS = 00002 


23 VALUE JeKeMeF sR D0 C3 00451200 0000#0 
EAL l K M F R QD Ci OO OO OO008 O° 

FORWARDS . BGC Ws is 0@451400 do00to 

$ ROP OMUT. vec eee a dae 00451403 O000tO 


OMT = O00DT0 
0000%0 
ADDRESS = 00002 
0000%0 
; : 00484300 7 o000to 
ROR oe Ge oy : . 00454300 T 000040 
_pRe cEOURE TERMINATE CM 193 VaLWE MIXS_ REAL MIX} FORWARD} __ 00463100 tT 000080 
] START OF REL SEGMENTS DISK ADDRESS = 00002 
SAVE PROCEDURE TERMINALMESSAGECN)S VALLE NS REAL N3 FORWARDS 00463200 T 000040 
START OF SAVE SERMENTS BaSE ADDRESS = 
BOOLEAN PROCEDURE SYSTEMPILECAsB);VALUE A+B} REAL AsBs FORWARDS 00463300 7 DOd0tO 
$ pee START OF REL SEGMENTS OFSK. ADDRESS 2 
O0444000: T. COODrD 
SEGMENTS DISK ADDRESS « 
00469000 T 000080 
SEGMENTS DISK ADDRESS « 
S SET OMIT = NOTCSTATISTICS) 7 ae ~ 08469099 T 0000TO 
PROCEDURE. ASRA FORWAROS% s 004740006 000010 | 
ponies : SEGMENTS DISK ADDRESS «© ¢ 
00475000 


00454000 
START OF KEL SEqMENTS Drs 


pes & 


eS 


TS 


S 


ee S 


PROCEDURE ENT SStaPeLe CNA; VALUE _N3 REAL Ny FORWARD; 


PROCEDURE COMS$ FURWARDS% 


PROCEDURE COM114 FURWARDs< T 000080 


START OF REL SEGMENTS DISK ADDRESS = 90002 
00477900 
, SEGMENT? OYSK 


| PROCEDURE COM133 FORWARDS % 
00476000 7 Of ey 
SEGMENT} OYSK ADDRESS = | 
00478500 T 000080 
START OF REL SEGMENTS DISK ADDRESS wx 00002 
00479000 T 000080 


PROCEDURE COMMUN ICATEOS FORWAROD 


PROCEDURE COMMUNICATE TI LTT CUEm 


PROCEDURE LIBRARYLOADS FORWARDS 


SK B. 
“00480000 fF 


PROCEDURE LIBRAW®YDUMPS 
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: rs a SS mS . < 53 ‘: 
mS g o & o Gg o & S Gg 


ARRAY PUNTERL*]} 


SET OMIT = NUTCOUMP QR DEBUGGING 


"PROCEDURE COW19s FORWARDSS 
PROCEDURE CONZ3) FORNARD;R 


PROCEDURE INTRINSICTABLEBUILDER(FH)3 


VALUE FHS REAL FHS. FORWARDS 


_ PROCEDURE NESSAGETABLEBUILOER} FORWARDS 


paps PUNTSIZE 


BEGIN ed : 
Gc 10 PCL G39 5, % TIMER 
SA Panu Wont 3 OMA Uf 13 REA 


BEGIN REAL T==33 
REAL IMB» RSLTSRESULT} 
LABEL HAeHBR 
VEE ‘sd THEN T ELSE PUNTER InX 
USTBEAMCQIeP COMROF)# | 


atziee ‘DIET ?=PUNTER TNX 0)3 


BEGIN ‘Ossal3 LIT"*SYS HANGs Fa"3 
S]iss +34 


higeatios OSt=SeT else 
“pSt=2 Litt! (%F Sytsl; 
6O3SCIF Sca#t™e™ THEN OStScHR)s 
DItsas OS2sh LIT "292904 51%; 
S1ssAs OSt=a4q WOS3 
DIteaAs OL adl+es 
DS tag RTT Poge hs 
oltsp1+283_ 


RETR 


UNTIL TMB,C3%6)=603 
If TMBeCCFI]<I THEN GO TO HBS 
¥OT FO WAP 


$ Ser OMIT. = NOT: ‘AUTODUMP 
: OO UNTIL FALSES 
ENDS 


$ SET OMIT = DaTACOM 
T SEPTICTANK 


DOL RAND hace. = 0 THEN % {0 BUSY 
BEGIN PCMKS,RSLI »DEL D3 GO HA END 


START OF REL SEGMENTS DISK ADDRESS = 00002 ® 
ON480099 Q000%0 
; 069483000 7 000030 : 
START OF REL SEGMENTS. DISK ADDRESS = 90002 |2|@ 
00487000. 1 O000to . ae 3 
START GF REL SEGMENTS OISK ADDRESS # 90002 4 
00489000 T 000080 |@ 
STarl o MENT? DISK ADORESS = @000 8 
00490000 Tt” 000080 \@ 
00491000 fT Go00t0 


N OPSK ADDRESS =». 

00643000 T 000080 

00643100 TF O000%0 
f 00 


START OF SAVE SE AWENTS. fice “ADDRESS © a0062 


Is A LOOP ON INTERRUPTS 


Be 


DSH=RESETS SKIP SB) 


“DStSLitt es 
% INI*IN1*4eBBW 


00647000 T 000080 |@ 
$0 18 
00649000 T 000032 19 
SIZE= 0001 WORDS pl @ 
Se Re art Ban ete nt 006800006 OndOtO 21 
START UF SAVE SEGMENTS BASE ADDRESS = 00063 
00650250 T 0000%0 Ld @ 
Pears rere _ 09650500 7 000089 2 
~ 00680750 T OCQ0t0 a 
00681000 T 0000%0 2 @ 
OHb654 R00 0003 2 
00652000 T O005%, 28 
00652400 tT CD07! of @ 
09652800 7 000983 31 
00683000 T 00107) @ 
00653400 O013%y 
00653600 001540 a @ 
00653800 T 0046! ia 


® LOBUSY= 
RB 6. OaRTN 


- faded Ala ‘Re RTN 
¢ 


00656500 7 


00654000. 
00654200: 
00654400. 
00654600 
00654800 
00655000 

9655200 


C oye tT. 
00655400- 
00655600. 
090655800 
00656000 
00656200 
00656400 7. 


00662000 f 003483 


ee 0035 wORDS 1@ 
00689990 T Q000%0 
008690000 - hi pane ee oe 
0069) : 


00999999 ee io 


SAVE PROCEOURE STARTIOCU)3 


SAVE Heese eal adele eee ance VALUE PRI$ REAL PRI, genes 


DEFINE COME ERSTE UEC ce aE HII eCOnPUE ASN OUchGrRTARUE DINU 
)#;3 
FROCEOURE USASTTAPECAREAY TYPESFROWUPOIRD)_ 


oon @ TM &F WKH = 


BEGIN REAL. Tere ; 
ARRAY ULABCe)s ' 
ERROR? VOL BADSNA 


END LABELSPACES. 
SUBROUTINE VOLIFILLS | 
STREAM(AREAsL: 
BEGIN DSta8 LIT "LABEL 
STeSTs1131F SCat " THEN OSe7LIT"O" ELSE bse7chRs 
es” +OL+373 AMID 


"3 DIitwOle1; SIIaaARE A; 


3 


31i=S#5} DSt=5 CHR} RPRYSICAL TAPE NO, 
ND VOLIFILUS | 
SUBROUTINE HORICHK) : 
BEGIN STREAMCY1908AREA0X (#023 


he 4 sc =0C THEN TALLY2343 
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g a +, t . a 3 3 7. SY x or 
ay 2 e 5 58 : 


na END oe 
SUBROUTINE HORIFILL3 
BEGIN sae Ne nl 


Sses isi? OSt23 CHRS SREEL 
aT O5%s5 CHRZ &C™DA 
ST?=S1=83 DSt=2 CHR} XCYCLE 
S1t=S1+73 OSt=5 CHRS *P=DATE 


~-0S985 CHRI SBLOCK COUNT 
“DSt87 CHRS SRECORD COUNT 


END HDRIFILLS 
SUBROUTINE HAROFILLS 
BEGIN PTNt=PRNTABLELU) «63011893 
ip AREASULA 


SULABE XPHYSICAL TAPE NOs 


“psisB Lit * LABEL 


__ULABCI)s=MULTITABLELUIS = 


KG Me 
BEGIN VOLIFILLS 


01165000 


START QF SAVE ashe BASE 


a a8) (. 


START OF REL sequent) t DISK | 


Ny 0) HOD 
91250300 
01250400 


ofas0g00. 
01250700 


O41 2560R00 
01250900 
01251000 
0 00 
04251200 
01251300 
01251310 
04253400 
01251500 
012516400 
01251700 


01251800 
01252000. 


01252100 


01252500 
01252600 
04252700 


01253100 
01253200 
04253300 


01253400 | 


01253500 


01253600 T 


01253700 


014253800 


01253900 


01254000 7 
01250100 


01254200 
01254300 
01254600 
041254650 


01258700 
04284800 


0) 


DT ess000 


= 
, 900080 
ADDRESS = 


N BAS A 
01280000 


Sizes 9002 
01240200 t 


: 
t 
‘ 
T 


qa 


Ly 4b 4 


eogots 


01252800 . 
04282900: T 
03253000 + O623% 
002444 


02544 


000080 


OO00 6) 


000030 


panne 
ao000to 


000080 


000440. 
Of a: 

000824 
O0008%2 
0900930 
001084 
001240 
001432 
001433 
0015%2 
00153 

0o16t0” 


001680 


002130 


002483 


U0) ee 


003733 
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@ : q 
& PCWAITIO(C@1400000059@377eU)sDEL)3 ere ae a0 T O0039%0 q 
CWAITIOCARE A TS e 29 1000000008, 120 00 004g! 
R pee a | 01285300 YT O02 te 
e ~) TROY THEN HDR: ek ELSE. ca rl ERROR} i 01285400 T Ooaato : i 2/@ 
— PCWALTIO(® 34000000505 DELS a 01255450 610 3 
PCWAITIO(@3400000059@55sU) sDEL DA 04255500 1 TIRE 4 
@ GO TO WAITS 01255600 T oo4gto |@ 
D ole 0 6 
ae FROM m2 THEN = is a 01285400 T 005340 - 7 
& “BEGIN IF Tees. THEN | ENS 01255900 T 005383 |@ 
‘e AN VOLEF ILA 000 OoSsia _ 8 
VOLE PCWAITIOCAREA INX $1208400000000 837770)» DEL): 01256100 T 005710 
@ HORICHK3 01256200 T 0059%0 1@ 
IF _Y THEN HORIFILL E GU_10 ERRORS 04256300 006010 = 
- a aN HOMIE ILL Wis oe — , TT ki 
nia TYPEe2 THEN 01256700 T 0066t0 6 
®@ BEGIN HORIFILLS 01256800 7 006633 \@ 
HARDFILLS ________91256900 1 o006ata i 
fet GO TO EXIT? | Tee a 01257900 Tt 0069%0 19 
@r. 2 a on - | 01257100 T O069%> | ry @ 
ENDER ae | one : 04257200 00698 | 21 
: IF FROM=3 OR FRUM=4 THEN 04257300 T 0069%9 24 
@} BEGIN IF TYPES 1 THEN 01257400 7 007184 3 @ 
b BEGIN VOL YF ILL} 04257500 00728 2 
Ps} oe GOTO VOLS. | a 01257600 T O0074t0 25 
@- “END? 04257700 T O074%2 2 @ 
2 If TYPea2 QR. TYP 4. THEN < 01257800 Oo7 ats . 2 
Re BEGIN HORIFILLS 01257900 T 28 
@ = ~ HARDFILL3 | 04258000 T ot @ 
GO 10 ExIts 01258300 30 
TEND eo | Cea rn ions 01258200 1 007912 31 
@ Fr TYPES3 oR TYPES” THEN. es | 01258300 7 O079%2 2 @ 
8 If DIRS0 THEN _ oe , 01258200 T 008% : 
EEGIN PCWAITIOC saeb00bCS 37750)» DEL): 04258500 T O062t» 
e PC WAITIU(@ 3400000052©3775U) sDEL)3 04258600 T O0084t> 31@ 
é PCWAITIGCAREA INX #120540000000083779U)»pEL)3 01258700 fF 008630 36 
p END ELSE ie 01256800 .7 006810 37 
@» | POWAITIUCAREA, JINX. @42074000000008377s5U)»pEL); 01258900 fT 0088t0 1@ 
se -HDRICHKS | : | 01259000 1 009; 
IF Y THEN HDRIFILL ELSE GO TO ERROR} 04259100 T 009430 s 
r HARDFILL3 01259200 7 009610 |@ 
GU TO WAITS aoe 04259300 42 
| “ENOS. oe = : 01;259400 T 4 
@ IF TYPER6. THEN. ‘ ee O¢259S00 T {@ 
BEGIN HDRIFILLS eae 04259600 7 As 
6 HARDFILL3 01259700 T 46 
 ) STREAMCULAB)3 | 01259800 T «| O 
; BEGIN DI:sULABs DIts014395 01259900 fT : 

: ee ar ee , 01260000 fT . 
eo; a Enos : | x 04260100. 7 4 @ 
51 eo ge “10. EXITS eee i ns 494260200 7T 51 
z ENDS | 01260300 T 5 
@» END3 04260400 T 1 @ 

ALE, | 01260425 T 
e | us 4 @ 
uL EET ory 
1260465 Tt 011013 
@ @ @ 


ERROR: PCWAITIOCSE42OQCOO0000e #377 5U)-DEL IDS p1eeds00 T O1L12%2 
STREAMCT&82TIN sVLAB)? 404600 ) 0 
BEGIN SIt#LOC Ts SIlta$]453 of280700 T O11532 


1 

2 OS#AL IT oda et CHRD. |: OrBbeegd a: 011640 

: Sized lL INVA ASle Rws/bers 940000 7. 01146: 

4 ENDS rt ; 

5 SPOUTCULABe(CFI)5 LABELTABLELU]2=@314; O14 : 

6 TYPE «OS PTNeO3 Q 221 

7 ETIP? IF CCTWOCU) AND PCRKR)) £0) THEN 01261160 + O124t2 

8 +. 6G 70 BAO ELSE SLEEP (TCLOCK)» NOT CLOCK)3 ) O126t170 T Op2oty 

3 PINePTINGLS : tT O12819 

hd IF(PTN>120) THEN GU TO BAD ELSE GO TO ETIP3 o7261700 T 012983 

aM MOVECLOs*ULABeLCFI*AREAG(CFI)DS 01264300 T 0413182 

ha FORGETSPACE(ULAB + LCFI)3 | 01261400 7 01348 

z ' o1z6is00 + 24503 

hs; ae ea Cee ee : ih Se2re 0137 bs 

he “SAVE PROCEDURE SNOUZECNEWPRI »ADDRESSsMASK) 3 02000000 ft 000080 

; START OF SAVE SE®MENTS BASE ADDRESS = 00100 

a VALUE NEWPRI» ADDRESS» MASKS 02001000 T 0000!0 

9 REAL NEWPRIS - 02002000 T 000080 

po NAME ADORESS3 = 02002500 + d0000!0 

| 7 ARRAY MASK(* 33 : 02003000 ondoto 

BEGIN ; 02004000 T 000040 

Ps REAL THYRERESNTIS 02004500 T 0000%0 

al BS OMyT = NOTCNEWLOGGING 02004599 ON0N 84 
ee LABEL BEDENTERS 02004900 7 o000t0 

If (JVOBNUMISJOBNUM+2) GEQ JOBNUMAX THEN PUNT(9)3 02005000 7 da00%0 


PRYORLPIMIXJeCEFJ¢ NEWPRI© NEWPRI+13 
FOR TRYHEREe@UUBNUM STEP “2 UNTIL 2 DO 


02006000.. QO0Rto 

02007100 000670 

02007200 000780 
to 
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g . * ey y rn y a a 


"S$ NEWPRI THEN GO ey SET ERTERG 02007400 7 Co09%a 
Sh das eid ae BED UI MARE RES D1! 02007800 7 901132 
ENDS. . 02007600 0014140 

BEDENTERS$ 02008000 7 OO1L68{ 
BEDLTRYHERE] ¢« PCADORESS @ PIUMIX(C3243:5) ROOF DS 02008100 T 0016%4 
BEOCTRYHERE+1) ¢ MASK; 02008200 | 001930 


STOPLUG(PIMIXei)3 
GO TO NOTHINGTODOs ~ 


002130 
: dick 


02008300 1 
02008400 


StZe= 0025 
cegesnne T 0o00to 
N 


VALUE ROUTINE »PARAMETER*®SSZ3 awe eeas T 060010 
ARRAY PARAMETER(C #)3 | 02014000 T . 000010 
REAL ROUTINE sSS23 02015000 7 OO00tD 
BEGIN LSLATES= LSLATE+2 AND. “SLATENDS & 02016000 T Q000%0 
IF NSLATEFLSLATE THEN PUNTC(7)3 o2017 000 T QO002%4 
SLATECLLSLATE] ¢ PARAMETERS 018000 T OnQO4! 
SURTELLEL ATES) TESRGOT INE RESZECTE IS nee 05019000 7 0008'S 
-ENDSS. ne : : 02020000 yr 000610 
nee =. gid 8 SIZES 0009 WORDS 
REAL KEYBOARDCUUNTER? 02020500 T 000050 
REAL PROCEDURE KEYIN(B)s VALUE B3 BOOLEAN B3 FORWARDS4& 02021000 Tt 000080 
START OF a SE MENTS DISK ADDRESS = 00007 
Oe BETO TES clsneete. AND DATACOM 2. ae 02021099 y .O0000%o .. 
PROC pROURE 'N eeeeiccauiide VALUE | wasn REAL MASKS “FORWARDS : R08 egR8 Yo “000010. a 
ee Lee - START OF REL: 5E WE NT 2 K ADDR -a- 90007 
ABEL PIPROCE: SoPaP BCE 3% EPRI T O000TO 


REAL ONEGHONE = @101/0NEOMTWO = @1025% 02024000 T 000080 e 
SAVE PROCEDURE RUN(MIX 5 _ val UE MIX} REAL MIXS& | 02025900 090080 
ve ee OE eae . START. OF SAVE SEqMENTS” BASE ADDRESS # ae at 
BEGIN PIMIX © MIXER nag coca ONE 02026000 t Og00I0 ~~ ie 
$_ SE “omit. @ NEWLOGGING pea oe 02026999 3 3 
STARTLOGCMIX#0)5 . 02027000 T ‘ 
$ POP OMIT 02027001 T |@ 
STACKUSE « TRULE3% _ 02028000 T / 
a GO TO EXTERNAL? ne . 5. 02029000 7 3 
ENDER 2 02030000 7 |@ 
“REAL NUMESSIR” 02031000 T 000080 
SAVE PROCEDURE SAVEMIX(MIX)% VALUE MIX$ REAL MIX3% 02032000 T 000080 |@ 
_START QF SAVE SE¢ MENT) BASE ADDRESS B 00340 y 
NNERCPC,RUND@MIX20)3 02033000 IO 
ESE 02033099 7 OooLNL |@ 
USES Ag 8 HERD Gay 7 02034000 y Oo0j'y 
$ POP OMIT . . . 020349004 T 000383 ii 
ENDS% | 02035000 T 000383 |@ 
ZE= 0004 wORE he 
SAVE PROCEDURE HALT#% ie oe ; 02036000 T d000!0 "9 
SO ee “s : START OF SAVE SEGMENTS BASE ADDRESS a o0se? 29 @ 
BEGIN NOPROCESSTOG «+ NOPROCESSTOG+1+% 02077000 avetoien ge 21 
IF P2mMIX > 0 THEN’ 02038000 T 0004%4 
BEGIN PCHP2)3% 02039000 T d00at0 73 @ 
 § OMIT = NOTCNEWNLOGGIN 02039099 00023 2 
oe ee a SNOOZEC™Iede1)3 020409000 T 000213 ‘e 
UF bat > 0 THENS 02041000 Y 000444 | 4 
7 ; M @ x O42000. 7 GOO Ss 6 
remit 03 TOGLEeTOgLe ANG NOT HR aMaSké 65003000 T 000684 Bg 
| 02044000 T 9008t2 10 


a7q00 Tt. 100 to. 
START OF SAVE SEGMENTS BASE TOORESS = ais 
BEGIN P(64e5TS)3% 02048000 tT 0000!0 
ORGETSPACECA 02049000 0000 | ia 
GO 70 NOTHINGTOOD 54 ue : 02050000 T 900143. 
END# A on a “a 02051000 - 000244: 


Re ‘SrZeE% 0003 WORDS 39 
REAL PBCQUNTS ) 02052200 T 000010 40 
BOOLEAN PROCEDURE OLAY(LOC)s yALVE LOCs REAL LOCS FORWARD; 02052500 T 000080 «|@ 


START OF REL, SERMENTS DISK ADDRESS = 00007 
ORWARU3 "02052600 T. Q000%0 


PRO! DUR SEEKNAMCA eS Sieg aN)a VALUE N,BFREAL AaB eC oD sE on 


, aos | START OF REL SEGMENTS DISK ADDRESS = 90007, 4@ 
PROCEDURE UNHOOQUECMIXIES Ss | | 02053000 090080 | Ms 
START OF REL SEgMENTs DISK aDDRESS = 90007 : 
VALUE MIX33 02054000 7 0000%0 1 
INTEGER MIX33 02055000 T 9000380 


BEGINS i ae 02056000 7. 
REAL. UrSeSN9ToXe LsPROCESS Ee : 02057000 Tt . 
JNAME-OLODQSX) eect ee cee eee 02057500 T O000%H = 
LABEL DOLP»DELINKITS 02058000 T O000%0 5 
FOR UeO STEP 1 UNTIL 31 DO% 02059000 tT 0000t0 1@ 

SoU GINS 0% 2060000 1 oonig 7 5 


HIRE (SNCLOCATQVELS] CFF 4 DF 
2) [ TeNFLAGCLOCAT@UET SN ° 51 3% 
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: y 6 0 r * a *, = Th = > 


MIX THENS 02065000 T OO108%4 @ 
IF LOCATQUELSNJ,f41!1) THEN SeSN ELSE 02065100 001033 


1 BEGINS : 02066000 r O013%2 
2 LOCATQUELSI*LOCATQUECSI&TOFIFI2% 02067000 7. O015t0 
3 RETURNIOSPACECSN)3} 02068000 O017%0 
' END ELSts 02070000 r dO020%1 
5 S+SN3% 02071000 002084 
6 00243 

i “ENO 02072100 Tt O02;t2 
: ENDS : | 02072200 y 002240 
9 p § & NOT DFXS eh 02072490 Onzat 

be OCLPs FOR UeO STEP 1 UNTIL 31 n0% 02075000 Tt O024ty4 
be . BEGINS 02076000 7 002530 
n2 ¢ 28 N 02077000 O00 0 


BEGIN ee 02078000 7 . 00g7t3 
4 od ee EP Locarauers3, canszem yx THEN 02079900 “ggeett 
5 a al j : i 6 i : 
6 1F (XeTs E1345) )=0 OR X*46 THEN 02081000 T 00308} 
7 GQ DELINKITS 02082000 tT 003340 
. X 3 HEN ee 02087000 00 : 
9 BEGINS 02088000 T 003442 
IF LOCATQUECS],CFFI*@77777 THEN’ 02089000 T 0035t6 
1 a a ae AME I OLLIE MT STE PN NCL Ser aa RL Deen” 2 cs > RRR ae ne tee RE de re O20g0006 00.3423 
a I*FIRSTWAITS2 02091000 7 0037%4 
bs WHILE ie tartare 02092000 T 003830 
D 02093000 0038! 
WAITQUETIJ€% 02094000 T 0043%0 
: ar ee tenes 02095000 T 004342 
27 : ee Ge te! : : ; Os09606 OO 
P UNIT(CUJ eT 8@77777613%28!2013 02097000 T 00460 
p . END ELSE 02097200 T QoO48!t! 
Bo DFLINKIT3 = JN. TLUliaTgloce QUES) F) 02097400 004488 
p “$ SET OMIT #= NOT OFX | 02097590 7 005290 
‘ 7 : Ps . _RETURNIOSPAGECS)5 02100000 T 005230 
‘ END ELS eee 021004006 00558! 
PROCE ¢((UF23 ANDO U424) OR X23) 02101000 T 0055%4 
AND X#25 OR PROCES 02101100 rT 005830 
ENDS 02102000 00608 
ENDS | 02103000 T  0060!2 
END eR 02104000 T 006082 
If PROCE THEN? ae 02105000 y 006233 
BEGIN’ 02106000 tT 006310 


SLEEP (C121)5PROCE*03G0 TO DOLPS O02t07000 tT 0063%2 
ENDS% | 02108000 00663 
END UNHOQQUE?% oy 02109000 - y 006614 


FESSESESESSEBEUSSEPSE 
wm 
_ 
PY 
oo] 
= 


 STZEs. 0067 WORDS 
INTEGER TERMIX#S a a 02210000 7. Q000%O 
REAL PROCEDURE GETESPOISKsFORWARD?% 02111000 T 0000!0 
OF REL SE,MENTS DISK ADDRESS = 00010 
PROCEDURE CHANGEMCP(KTR)$ VALUE KTR3 REAL KTRS FORWARDS 02111100 Tt 000080 


START OF REL SEqMENTS OLSK” 
PROCEOURE. CHANGEINTRINSICFILECKTRIS. VALUE KTR} REAL KTR: FORWARDS ~O2LE1200° 
START OF REL SE 


ADDRESS» o0010 
ae 00000. ee 


$SE ONT = NOT COFBUGEING) a CT ELT T RES 59 


REAL PROCEDURE ANALYSIS# FORWARDS 02111400 y 000080 
. START OF REL SEQGMENTS DISK ebb ee = 00010 
PROCEDURE PNQR!  CEMMUNT SA? Pe ROAR ARDY Loge Bo es ce fe 02111500 | oe ee 
Me ee ee eae ~~ < START OF REL. aE OBERT? 075 
_ PROCEDUR E CONTI U TY: ts FORWS ROs . cee ; 1600 - 


START OF REL sehen DISK 1 ,gogata = 90010 
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a 7 eS eS eS ee z 
a te ‘ ke a; AD 5 oe oe G F 


REAL CCTBLWORDS o2112000 T 000040 e 
DEFINE CCCOUNT = CCTBLWORDy{FFI#» een 000010 oS 
: CCTBLADOR = gCTBLWORD CCF Is | 7 dstieboot 000010 a 
| BER a Whe Bom gbag, eg a 2 02112800 7 000010 Os oo |@ 
PROCEDURE NESSAGEWRITER? 3 PETE 000080 i 
START OF REL SEAMENTS DISK ADDRESS = 00010 |@ 
BEGIN REAL RCWa+Qs MSCwEe23 : 02115000 T O00030 : 
RE Tee ei 02116000 T 000010 |? 
“Ube bax be 02117000 7 Gog0to. |@ 
ee RR eer ee p Lea ae He ae : 09448000. T.. OO1H 9 
$ SET UMIT = eareoCEEa AND DATACOM) | | 02119009 T i 
$ SET OMIT = OCSPO 02119019 T @ 


O025))3. ‘8120800 v0 @ 
 NUMESS « NUMESS*45% “02122000 T QaQ02ey ar 
T © MCMESSAGEHOLDERI 6(16%15)3 02123000 + 000382 17 
FORGETSPA MESSAGEHOLD R Na 3 ; 0 4506 053: na 
TF a 0 THENS a 02425000. T 000710 1@ 
BEGIN: MESSAGENOLOER, 033815), oo TAS 02126000 7 000783 po 
ime ole ar a ee 0 fO00_ apenetee | ay 
“ENDS 3 02128000 T 001080 ? e 
HE Spee DOLE eR + 034 02129000 T 001080 3 
_— . : Mg a ee rs Se et P ON0.0 0.91.03 24 
“ENODE ees _ neous 02131000. rT OOiL%o ar 
$ SET OMyT = NE T(DCSPO AND DATACOM _) ee $ sino 000046 __P 
$ SET UMIT = PACKETS | j 02131999 7 000010 28 
PROCEDURE SPOUT MESSAGE)3 02132000 T 000080 od @ 
START OF REL 


SEgMENTS DISK ADDRESS 2 QOOO11 se 
02432100 T Oo0dfo 
02132200 tT oO00010- 
OMPT i ee es aes a . 0 20. -0000t0. 
$ SET OMIT = TURLEae 02132299 T 0000%0 
BEGIN REAL MKSCWSMESSAGE"13 02133000 T O000%0 29 @ 
INTEGER M1X3 02133010 T 000080 
SNOT EN O2133011 7 O00010 


“VALUE MESSAGES 
REAL wEnT AEE cee 


02133129 T 000080 @ 
-NOTCOAT ae 02133499 Co0gtO. 
Tate ‘ eee NESSAGE LOO): [33ti5)*10% | 02134000 T 000030 r 
MIX © MUMESSAGE“1J9L926]3 02134005 T O002%4 .|@ 
NON UAT NER AND DcsFa ) 02134008 T 000483 ‘ 
02134889 7 O004aT3 4 
02134899 T 000433 4@ 
. Seca : 02134906 7 000483 45 
TE WESSAGE OLDER = 0 THENE 02135000 tT 000413 , 
BEGIN MESSAGEHOLDER + MESSAGES% 02136000 T 000582 ~ 1 @ 
a DUDE PENUENIAUNNERCESs MESSAGEWRITER)» 0,64); 02137000 7+ 000633 48 
nl ge 02138000 y d00BI0 42 
50) GEMOLOERS (181193. 0280152, + MESSAGES 02439000 7 0008s. 1@ 
L a 02140000 y Oo1nty | {s 
” 02141000 fT 001393 
02141020 T 001510 “1 @ 
4 O2142000 T eorsse 
BS : AY i Batt a d ve 5! 
e 00% ‘ie 
02145000 T oDERED 
@ @ 


Lt IF SC # "e™ THENS 02146000 T O022%4 @ 
BEGIN F Sc= " " THENS 0 N00 00 8 


1 BBt BEGIN Sle Sie13 02148000 F.. 002341 
2 IF Sca" © THEN GO BB} 0a149000 T 002312 
7 ; = Al Pin A Pie. I 094600086 . For" 
: BEGIN SI © SI743% 02151000 T 002433 
; DS «+ CHR34% cateenie T 002540 
6 LSE G 0 r 
7 ENDER. Pes 02155000 T.. 00% 
af If SC. 2 @44 THENZ: |. a 02156000 T 002 
CT ee . a Bik phe en REGIN DS. «© CHRIS ; tS7000. 7 
no . Qt IF SC *.@14 THENS 02158000 T O026%e2 
iy . BEGIN SI * SI413% 02159000 T Q02780 
be nies eae : GO.10. 02% 02161000 o0e78 
are, 7 TE ina eel te aoa TumnnEne pare ENDAR a s 02162000 T OO27%2 
na O54 Ne a0 Lt) uae Pogak . 02163000 T. 008742. - 
5 “ENDIS: Ee _ Ooiaaooo tf Ooa7ts 
8 a os « CHRIS 02165000 T 002753 
7 GO TO Ls% 02167000 T eoaee 
8 ENDS 02168000 tT 002 
. DS « CHRI% eeleboday aaaal 
Noe# DTA O217 1000, T Oo2Bte 
1 ENDI® 000 1 00 oS 
NTLePSNTLeCONTI, SEGUE IUIETOSL Tne r30%3))x63 Oe17 3000 T 0029%0 
END ELSE NT1 ¢ P x 63 02173050 T 003333 
ee. = NOTC(PACKETS) 069 00.353 
Sf ~ TOTIMECPIMIX) ¢ *PCDUPIONTISS | 02174000 Ty 003571 
§ pel SET. OMIT NOTCOCSPO AND DATACOM wee 02174005 YT OO37%4 
PL “$ SET OMIT = pcSPO. ae 3 | 0217 rOo3rty 
a Py. . IF CNUMESS©* NUMESS*1)>0 THEN 02175003 T 003784 
£@ $ POP OMIT . 02175004 T 003910 
ete | ___ BEGIN = |_003950 
- $ SET OMIT * NOTCDATACOM AND DCSPO J) 02175020 T 0039%2 
SO 8s ER SLEEPCENUMESS 1670 : ae 02176900 Tf 0039%2 — 
; anne ENDS ea ae 7 02176400 y OO4183 
ENDSS © 02177000 T 004454 
SYZE= 0042 WORDS 
PROCEDURE ENDDRCE CHORUS 1 Aye ACUE Re TUST A? REAL ReTUSTAs FORWARD3 cart 00 T gopto 


PROCEDURE PBIOCAPB Is VALUE. ab REAL Ae Bs FORWARD? 


02179000 7 ogg0r 
| 02180000 T 000080 
| EnMENT$ DISK ADDRESS = 
BEGIN IF MIX LEO 6 THEN BYAYC"MCP DS=EDe"»10)3 O2tei000 tT dod0to 
| COMPLEXSLEEPCTERMIX = ©1777 OR 02181500 7 00062 
BIERMIN, C33015) 3 °MIX,033815773% 02182000 T 00068 


REAL TERMINALCLOCK> STOPIOBF 
PRQCEDURE TERMINATECMIX)3 VALUE MIXS REAL MIXs% 


ACCIDENTAL ENTRY AT 15 


IF TERMIX = @1777 THENS 02183000 tT 001383 
BEGIN TERMINALCLOCK + CLOCK+PC(RTR)3% 02184900 t 0014! 
ae TERMIX. ¢ MIXER 8 02185000 Tf O016%4 
ENDS R- ae | 02186000 1 O0i17t0 
IF STOPJOBeNIN THEN STOPYOBeeL7773_ ) O2ie I ooirig 
ENDS % 09187000 T 001940 | 
SIZES 0020 WORDS 


REAL PROCEDURE FLACEFINDER(S» Ar bjs _ eee eee 02187100 OQ0gtO 
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Data Documents/Inc. 
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ARRAY CIDROWC*], eT OTAEGEE nantes *)3 pas67300 T 000030 
PRO QU AA At 2A N3_ REAL Ne sWenene Q000%0 
mh START OF REL SEQMENT “DISK ADORESS = 
“BEGIN: aoe FouNDsvarteOnr, Torts , O21e9000 T 000010 
AeTa SsaDR3% . “e — 07400000 ©" On001O. 
NAME B5% 02191000 T 000080 
ARRAY FIBL*]3 02191500 T 0000%0 
REAL BLENesNBUFS Arena) 91600 olelelenne 
REAL. WIXER? TOPIO*LUNSLG3 nye ar: 02192000 T  0000!0 
os INTEGER: Is3 BApet Ozs% pete 7 000010 
Ay STT oa . P4500 “fpoote 
SUBROUTINE. SLAPITOFF 3% e51es000 tT. 000080 
IF GEQ G THEN 02195100 T 000480 
M. () 
—--$fT_MIT t= LUNS3@ 07 TS = os spesnoo x 
os Pop > OMIT. gs ee CN ae : ; Oargs201 t Oo0gt2 - 
BEGIN pee sees, PRCTEG tT 0003%3 
READY © NOT CI © TWOCLUN)) AND READY3% 02197000 tT 000583 
RRRMECH « NOT AND RRRMECH OR J AND SAVEWORD3% 021980900 000g! 
GKABELTABLECLUN] © ®1443% 02199000. 7 001043 
Bs Ababa «  ROCTABLELLUN] | * Oss . 02200000 T 001240 ~ 
: ; 02201000 oo1al 
LABEL LBeLB[P® . 02202000 T 0014!2- 
$ SET OMIT = NOTCNEWNLOGGING) 02202049 T O014!2 
NOMEMS=NOMEM*TARCP4MIxJ}el20%4)4 SIF THIS JOB HAD A NUMEM Q22021;00 T Ooydio 
TAREPIMIX] 6f20%139*03 ZCONOITION * CLEAR 1! 02202200 T O0021!2 
UNLOCKTOGCTARCPIMIX])3 wily ag | 02202500 T O0024t0 
REPLYCPIMIX1¢03% Cie eee 02203000 Tt. OO02B8tO 
TERMINALCLOCK « O54 © 02204000 - 0029814 
TERMIX¢(33%15] «© PIMIXs2 02205000 T 0030!0 
PRYORELPIMIX }e=13 02205300 00343 
Tp STOP JOBS? EMIX THEN STOPJOBtse@y7777 . 09205200 T O003g%3 
Ae TRON © 0. THEN. ABSCN) ELSE GETSPACE (IO, 0,0)+23% 02206000. T O034%3” 
Bo PRICPIMIXs4]3%_ ns Oe207000 7 00398 
IF PCMCL©PRTILPIMIX’ BO) CCF TOP? x CH? DEL) THEN ZTR 02208000 FT 004033 
S¢ADR*OQ ELSE %TR 02209000 T Oo044tt 
DO BEGIN IF PCMEL Js TOP» XCHe Os INX* .ADRe¢) THENS QVERLAIQN RCWTR 02210000 T 0046!0 
BEGIN IF NOY MEL JeCS3I81L] THENSNOT TYPE INT O2211900 T O049to 
BEGIN SADR} %SEGNO IN RCW 02211010 T 905134 
TEQJADREMEMEL MOM] e£ CFI) % AND THE MSCW %TR 02212000 005e%2 
ENC ELSE Se={43 02212100 T 005683 
END ELSE % ITS PRESENTS WEVE GOT TO WORK TR 02213000 T 005884 
BEGIN Teo3 STR 02214000 T 005844 
ee WHILE (Stemf7T),0CF 3) LSS ADR 0G 022145000 T 0059%a 
IF § GTR T THEN Ts ELSE PUNT(LPUNTERL 251195 022145500 T. 096289 
oat Se1F MCTI,C396O]"4 THEN MET+l],0CF) ELSE 03° %TR 02216000 T 006642 
T¢T+23 END ZTR 02216100 T OO072%1 
IF PRIEPAMyx08), CCFJ¥L OR MELey) MSFrSSTACK 7S MaRKED 02216200 T O073%2 
THEN DO LeMCiJeMOM UNTIL NOT MCL JoMSFFS%GET LAST MSCW 02216300 007631 
LeM{L],MOMSSPOINT | TO BEAT Rew. JUST IN CASE, <TR 02216400 7 008213 
END UNTIL CIF. $10 THEN If Satel) THEN 0. ELSE 0a216500 7 O085%0 
2 Raa Le (BLOJ<S OR NOT BCS],PBIT) | 02216510 7 O08B8t2 
ELSE (P(MET@2d, [3§12)*0UP)4@700 AND P(XCH)4@1500))3 02216600 T 008982 
FOUND: ADR ¢ ADR#=T3% 02217000 T 0096!0 
Vis PLACER NDERCSe ADRS ys 02217100 T 00978 
N O THEN. | ea gh 02217200 T 009910 
| 02217 300 Pil 00 
DISkWalTc* AGETABLECiJ«(22%26))> “93219000 T o103t3 
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END E 
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OSteLIT "="5 ST&=Qs 
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ToatD eA pSe2 uit We "3 AGDIF ST*INOXS 
FP Sp3. IF. THEN BEGIN DI®INDX; 
SKiF OBS DSeRESETS DIeAs TOGeTALLYS 
oSel2 LIT “EFF INX IS ="3 END} 
AOI; SI*INDXs DI*LOC Qs DS*8 DEC; 
SteLO¢ Q3  7CIF Sco"o" THEN JUMP QUT; 
TALLY@TALLY+13 0 SreSlet)3  O1eA3 
TeTALL Ys. 0848 CHRS DyedI-Ts 
TODSeLIT ™ ")$ ODleOI=Ts AeDI)3 
TOGCSTeLOC DSZEs OLeLOC Q% DSe4 OEC; 
DI*A$ DS#5 LIT ™* GEQ "3 STIet Oc a3 
TALLY OF} 3CIF SCO" THEN JUMP OUTS 
ae UP ance Sy#S14+1)3 
TeTALLY# . O84 CHRS  DleOI*Ts. 
TCOSeLIT " *)$ DOIeDIOTS AeOl)3 
DI ¢ A’ DS © LIT “emza 
ENDs2 
Q THEN FORGETSPACECB)3 


,AGASGETSPACE C17 9000 +2)5% 
17(DS¢8 LIT*E*)S SyeBsDTeAS DT eD[+BsDSee LET™ 5% 
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ENDsS 
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. ¢ a 6. ui a * a a Th = Th 3 ~. 
3 ae > & 3 2 x r 


IF N=35 THEN % ES*ED 
JARLPIMIX,0] EGY "PRNPBT ") = NOT O THEN 
TF CJAREPIMIXe 12 E@V C™CMOISK.))) = NUT O THEN 
me rete Gee ne eens £0 TREN: Lok 
BEGIN TF CLUNGsL.03815)9<16 THEN SLAPITOFF 
LUNTaL, (43i5)3— 
SLAPITOFF3 
__ENO3_% PRNPBT/DISK SED: TO CLEAR UNITS 
STT$ TeMSTARTI&% ; 
Co MHILECbeT Lory)#0 00% 
wal eM. 3% BMIXER AND 1203 
THEN 
BEGIN LUN «¢ (TorPIO « NFLAG(CMEL#2))). (1286); 
—— LF pM 232 SHEN 


‘rtuectosecrori0 1 INX 00s 


“ENDR 
IF UNITCLUNJ,¢613:5) = #20 
THEN BEGINS 


QZte S 02269000 T 021410 
ue SULAPITOFF3 02270000 T  O214%o 
_UNTTLLUND £1385225@203% MARK IT NOT READY ANYWAYS _ 02270500 T 0215!0 
FURGETSPACECL INX 2)5% 02271000 T O217!9 
gO TQ STTs% pa aches T a 
END ELSE ee she oe 02273900 T 0O219%4_ 
. BEGIN Te O83 O2274900 T O@19%1 
FIB-* METOP TO INX NOT 273: 02275000 T Ozg20toa 
ADR. © NBUF © FIBLASID CLIP jets | 02275300 y O222%3 
1F PcMcTOP 0] ,[3?5)*puF =22 OR PCXcH 226 TREN 02275450 T Op225%y 
BEGIN FOR S « 1 STEP 1 UNTIL ADR DO 02275200 T 022882 
TOIT? IF NOT MCTOPYO INX S$) 19% ] THEN 02275250 T 0230!0 
~ DOITE TF CUNSi68 THEN © | 02275300 T O232aty 
Od BEGIN METOPIO INX 52, 2011). + 03 02275350 T 023382 © 
MEMCTOPIO INX $}" INX 17] « (Top O Lyx S$) 02275400 7 Op37ky 
& FIBE5] CFICI3 02275450 T 024080 
FIBC5) © PCOUP*LODsOsteCRXe+)3 02275500 T O242%2 
IF NOT PRTROWCPIMIX), C724) THEN 02275550 024530 
If FIBCi4) CCRISFLBCIG], CFF) THEN 02275600 T O2uery 
BEGIN PBIOCTOPIO INX SsFI8(141)5 02275650 7 02494 
SLEEPCEMCTOPIO INX SJJeJOMASK); 02275700 7 025233 
END ELSE 02275750 T 0255%0 
BEGIN STREAM(CeMcTOPIO INX SJ» 02275800 T O0f55!4 
ZeFIBCU4S) eC FFI)3 ee Og275a50 T 02573; 
BEGIN SI ¢ C3 08 © 1a WOSs END? 02275900 T 0259!0 
FLBCL4) CFF] © PCDUP),CFFIN183 02275950 T 025980 
ENDS. i 022760900 026233 
END ELSE 02276050 T 0276233 
BEGIN IF WAITIOCMETOPIO INX S$J)s@357oLUN), C4534 j 02276100 + 026233 
THEN GO OWT3 02276;50 T 026533 
FAeCad * *PCDUP)413 — 02276200 T. 0267%0 
ENDS 02276250 T 026910 
IP ADR<O TREN | 02276260 J O27184 
BEGIN IF AOR THEN FIBTI7I « BLENS GO OwTs 02276270 T O272k0 
ENDS 02276280 Tt 027510 
S ¢ 03 7 02276290 T 027510 
TF Preuin) “S (BLENeFIB0187,03%15)) HEN 02276300 7 © t 
~ os BEGIN: Th OT FIBCL3) THEN. (02276350 .7. 
oo FYRCL?) # *PCDUPI@(Fle (5), £4632)%3)3. Op276360 7 
MUTOPIO) « FLT CFIBC167)3 52276370 FT 


02261050 


02261150 


o2261200" 


T 


P9007 


03261400 
02261500 
0 0 
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019610 
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020240 
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eae 
020782 


Ter 
02120 


Pe ote 02268900 7 02133 


Deena oe DeMCTOPIO «CCF I)S 
BEG ND} 


“ADR * "13 GO “ports 
: ENE ELSE” AUR aie 2 


ND ELSE 
CwTs FOR Ay ¢ 0 STEP 4 UNTIL NBUF DO 
MCTOPIO INX NT1) ¢ *#PCDUP) OR LOMASKS 
TF LUNS?@2. AnO LUN220 OR CLUNS18 AND % LP OR CP BKeUP 
Lica relat 0634529 0UP 822 OR. PCXCH)#10)) “8 
BEGIN IF LUN 18 THEN % UNIT IS BACKUP 
BEGIN Se173% 
__STREAM( As DeL+4)3 
ae 3 O5e17 WOS ENOJX 
SNOT 27 INK 08%. 


RT ORR diay NTieNTLe (CF Js % 
IF MCTOPIO}.C325}222 THEN % NOT CP BK=UP 
IF NTISNT2"72 THEN’ 
BEGIN NTLOMCONTO+5) CFF 13% 
bene sds CFF IONTI419% 
MINT 2+ 73 #15400040020 
MUNT4+141, CFF IJeNT2"183% 
END ELSEX 
146 22 
FIBC{7) ee oa 
pata OF FLAG(FIBL16340020147!1 48613841039; 


Aye ee SS. aS ~. x. 


‘BEGIN Teak TNX ©540000000000000) &(LUnfazjtaetariqix 
a eae 
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A TUOARST TOCT 9 SERSCUNIDE | 
$17. THEN atia* 
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END ELSE% 
IF LUN223 OR LUN=24 THENS 
BEGIN ADReL ease 
4 abe TRCTOUNTTELUN] D4 cigisaegs THENS 
6 N ¢ JOQUE(S¢«T 1) f.! 
mG CAE "END" SADR) 3 arain a ¢ ADRS% 
LiSl # Sy +43 IF Sc = " ™ THEN GO TO L3% 
SMT = PACKETS 
oo: are # 40 As OL Ob+S; IF 3 a FDC THEN TALLY © 13 A o% 
$ pop OMET 


$ SET OMIT = NOT(PACKE 1S) 
TALLY END IF p THEN BEGINS 


A a A 


RETURNIQSPACE(S)3 
UN Ut Hues pereryrie 


J 244) THEN g0.T0 48 ELSES 
GO TO LBI% 


‘ 
ateacd2000000se397 LUND, tA5I1) THEN Go 923 


poets 
09276500 


pearensa 


THIN 
02276750 
02277000 
02278000 


02276100 7 
 O9278500 
02279000 
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02281000 
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02285100 


02287000 
92287100 


02287420 
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eae 
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TERMINALM SSA ACNTL)3-. ; 02330400 7 Op0;to 
02330500 y 0002384 
Sizes 9003 WORDS 


( ! | | 02330599 | | 
ae ae » 023471400 7. Perit ae pt 
READEMFROWOISKCH, ws ae 02307750 7 OO00TO 1 
| START OF REL SEaMENTS DISK ADDRESS = nor : 
000080 
0000%0 
000040 29 
DORESS = ° 

0000t0 


@ 
@ ENDS% 02312000 — 0396%> a 
ar FIBtS1. £4201] 02343500 
& THEN FORGETS 02813600 1@ 
GO 10 STT 02315000 ‘ 
e END3 ENDS 02316000 ‘|@ 
FORGETSPACE(A)3% 3 
 TeMSTARTIMIXER©@G004PYMIX;% “0p318000 tT Ogortn az 
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04110000 
04111000 


04113000 


04114000 


04115000 


ia 0! 
04149900 


VHLO6O0d 
Qaio7000 


04112000 


T 


| a Ht a te a | 


ADDRESS a 
() 


004880 
00523; 


—0052T4 
00540 


005513 


0000!0 


ry or 
D004 3 


UNITCUJ.C13%5) © 34% 04120000 T 0006%2 @ 
NOS 3 04 0.00 000930 
| |  $IZE® OOLO 
| MDELTA Pe eBid : 04121050 000080 
i : % , #36 fal 


000080 
000080 


‘ é 
04121150 
04121170 


A : J 0 0.0 
REAL NUMAINT MESS. 7 @ 573% wear 7 paiziege 
REAL LOGENTRY = § 8633 fe eS | Beer se 

NXOISK 8? se 
ARRAY MAINTLOGARRAY 


iRor 
Se 


= = bask 


@77(*J3% oni 2i500 0000%0 
PROCEDURE DISKQRAUXERRORCR)s VALUE RJ REAL RJ FORWARD; Ogie2lalio 000080 


ART OF REL SEeMENT3 DISK ADDRES: 
| Qai2ia25 T Oooo! 
REL SE RMEN SY Orsk ADD 


PROCEDURE ACTUALTOERR(R D3 — VALUE Ry REAL. Rp FORWARD} — 
START OF 


PROGE rnURE LI NKUPCTYPESKEY)3 VALUE TYP oKEYS REAL. YREsKEY) FORW: aR 3 % 
START OF REL Tan DISk Scat es 8 
uaeee 000080 


VALUE MIXeFIBsUs REAL MIX,FIB.U3 FORWARDS & i YOYTECER IDB 
PROCEDURE LOGOUTMAINT(B)3 VALUE 83 REAL BS FORWARDS% 04121600 

| , | START OF REL SEqMENT3 DISK ADDRE. 
PROCEDURE MAINTLOGGER(B)$ VALUE Bs REAL Bs FORWARDS 04121650 T 000010 
START OF REL SEGWENTS mee 


PROCEDURE CHECKJOBORF [LEMESS(MIX#F 1BeU)33 


D 


LOGVERSION®( % VERSION NUMBER ON NEXT CARD | Oetatzio 7 Q000to 
| 2 7 | : : Q4121720 r 000080 
& % CURRENT ENTRIES ON NExT? Card Ou 30. T 000080 


000030 
000030 


al 04121740 
(30% 42%6) IH» 04121750 
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g 5 es + * a % * z y ; n a SS ss sy 5 = ~ : 


TAPEBUFFERSIZE = 20083 __0000%0 
ARRAY MAINTBUFFER{ #13 ag ; ~ Q4121950 T OO00tO 
SAVE PROCEDURE- TOFINISHCRSC)E VALUE ReCd REAL Recs. 122900 T 000010 | 


ADDRESS = 00291 


BEGIN BOOLEAN STUPS 04123000 tT 000010 
COMMENT 04123010 000080 

WHEN E4Os STOP TAKES THE FOLLOWING VALUESS 04123020 000010 

~~ OESK ERROR (OTHER THAN NOT READY ON A OFX SYSTEM), O4iz3030 T O000%O 


“ANY ERROR OTHER THAN. THOSE LISTED FOR O» 2 OR 30 . 04123040 T 0000t0 


-LOCKED ADDRESS CSHAREDISK) 3050 7.000070. 
: ANY ERROR UCCURRING WHEN UNITtUT, C538]40 CA RETRY), 04123060 0000%0O 
WHEN E30» STOP TAKES THESE VALUES3 04123070 0000%0 


__10 FOR WHICH COMPLETE SHOULD NOT BE SET (DATACOM OR 
DESK WRITE BEFORE READ WITH UNIT GR EU SWITCH), 


000080 
000080 


04123080 
(04123090 


PRINTER ae 04123100 000010 

~~ NORMAL. LES 04123410 0000%0 
END COMMENTS 04123120 T 0000%0 
REAL T]M=STOP4+1> UsTIMels 04123500 ¥ 00000 
LABEL TEST*NOWAITsPROC*NEW, QUP»INCR3 04124000 0900%0 
v4 CRE SNe GEE LAPELDKs DAN DER Le GC? OK 5 04125000 7 000040. 
T Oo00to 


peor 


HOO. Ooocto: 
04128000 yy 0000:0 
04128010 T O0000!%0 
000040 


i b... 


SNITCH TYPE © OKsLPo TAPE, Lee FIN eKOK: OKDOK OKs BC3 


$ SET OMIT 3 NOT(DFX) 
 $ SET OMIT ® NOTCNENL 


s NUT A ES - Onn ut OC 


04129490 T 000382 


obs & Me NN 7 { 
$ SET OMIT * NOT SEPTICTANK 
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@  ] 
@ ERRURS? 04129900 fT 000382 e 
¢ Releos/7])+ ¢ T 88 0 N% | 00033 
BEGIN IFCS{ « FINALGUELS]) < 0 THEN 04131000 Y 000683 
® “OTF CE $1602548) AND E) = 0 THENS 04132000 7 oooats © :/@ 
ae ase ; a4 2 OTR ‘N $ ‘33n00 6lob & 3 
$ SET OMIT = NOT. DFX 04133090 T "001283 le 
@ GO TO OKs 04133500 T oolats : 
ND @7 6 HEN 34000 3 6 
Q BEGIN 08134080 iy That ee 7 
e oe ROETAGLELUIESC#PCOUP D4 coms pc1saot2dg RE3t3%53; 94138080 7 001 40 @ 
6 mee ye} 2 ae ; vO. fF BO] Ee 
BEGIN ) 04134400 T 001933 9 
 ) IF net AND @©25) # O THEN 04134500 T 002084 1@ 
- N 12 
mae C NOT R, e324) AND R,C2641}) THEN "3 
or es 60D, "ocr | : @ 
ENO 04134950 T 002533 19 
e ELSE GO TO 0G; 04134955 T 002583 |@ 
| END ELSE GO TO x3 04134960 00253 ‘a 
END; : 04434990 7 002883 is 
en IF £5 0 THENS ae ale 04135000 + 0025t3 4 @ 
BEGIN —%& RECOVERED MASS -STORA n00 002632 2 
MAINTBUFFERCENXNISK®SNXDISK+4 AND 15) 04137 100 T 002780 23 
@} 25 "0 & UL2t46ta] & eo ieee tet) & 04137410 T 002833 2 @ 
Ps CLOGENTRYS =, OGENTRY+ 04137120 0031! 24 
ae ROCTABLELUICI@Iis2)3— O4t37130 T 0033%0 ‘e 
@ a Ie FINALGUELS) GTR O THEN Osta T 0035%0 Pe 
L, Aas ; ae Od y : on OD 36 3 4 2 
. SETA TGUPTEH NGS Salis AP ccURy & 04137460 T 003682 28 
er CCMEMESLS=LOCATQUELCS) INX NOT 2] INX 4) 04137470 7 003782 ol @ 
Bd 33 113 DIV _ETRLNGI+1)(913929)3 04137180 T 0040! pc 
ie . meSi C781) qeoup. oe 04137490 T OoaGto ay 
eH. | ENDS é | O4137200 T OO46t3 1 
; i ee f Fr GL LATEUPE pACHEG TAR CadIGIOUEESS 7 04137502 T 004633 a 
: $ SET OMIT = NOTCAUXMEM) Oui37203 T 004883 
@| PCNFLAGCMECP]))3 O4i37212 T 004833 1 @ 
be PCP&VL154484) »CMAINTBUFFERENXOLSK#1)),ST1D)3 _ 04137215 + 004933 ie 
: ” NAINTBUPFERTNXDISK#3) 1@MAINTOUFFERLU 3 O4ia?az0 T 005240 By 
eo. TF CLOGHOLOER INX 0) = 0 THEN 04137230 y 005480 3@ 
“BEGIN  0at37240 7 0055! 38 
LOGHOLDER,. CCF] t=( MAINTBUFFERUNXDISK]13 041372950 T 0055%3 40 
) INDEPENDENTRUNNER(P( gMAINTLOGGER) + 0s100)3 04137260 T 005734 «|@ 
END ELSE MCLOGHOLDERs CFF IJ. (CF ]ts 04137270 T 005839 a2 
~ EMAINTAUFFERUNXDISKJJ¢. Ouis?27s T 006093 a 
@ LOGHOLDER«LFFISSCMAINTBUFFERENXDISKII; 04137960 7 006280 «4@ 
NUMAINTMESS#® NUMAINTMESS#13 | O4l37290° 7 006392 As 
T,£526] ©¢ 03 04142000 7 006433 ‘ 
@ GO TO Sna 04142500 T 006632 etd 
END34 Og N00 T 0067!0 . 
IF V8.0 THENS (enone ag ee ea ae = 04144000. i 006710 
OF $ SET “owt 2 NOTCSHAREDISH | 2 sna Wie eo gh eo “pabesage Tt 006783 
52 TINU[U]e eta) e PDUPILE (ei igs (ia 04146000 T 006834 6 
@} MAINTBUFFER([UJS=R&TWO(C)LI1884394)3 04146400 T 007383. «1 @ 
RDCTABLELUJ#=( +PCQUPIIECCo LCA IAG! ] i 04146200 Oo748 Be 
pA : Vesh2od me cee Oasa7a08. v O07TI2. 58 
OR eh ee Och ee E 
ELSE BEGINS RECURRENT ERROR ON MASS STURAGES 
e 
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x 5 ; S32 


Bala RAS op ed cae OR 
834 


IF a. + a > at THENS 
BEGIN ReeP3s | 
OCATQUELS], THEN % OLAY 
. STLECMTaUELSTTiae OR IOMASK3 
$ SET OMT = NOTCAUXMEM) 


DISKERRS$ 
$ SET OMIT = NOTCDFX) 


ot; t3t1031805, 
GO TO. OXs. 
ENDS 
PCOEL); 
END; 
—UNTTCUD. ¢. TAVEST RGIS ASE 


“CHANNELLPETION) © Vee 
PCCIQQUELSIJJsI110)s% 
GO TO EXTERNAL 3% 
STOP _¢ (V#0)x2+15% 

Te(C 5813] © 32XE+B85% 
Go TO TESTS 


F END oe 
Swit GO TO TYPELTslilaliss& 
LPs 
_Ip STOP t= (7 t= TKOL46t1641)),04791) THEN 
Tests 3 IF FIRSTWAIT * NEXTWATT THEN GO TO INCR ELSEX 

a - GO Ta NEW ELSE GO. To NOWAIT SS: : 


: TAT IESELE AnD @23) = 62 2 THEN % BINARY READ 
IF ReCi5ta) ¢ (CBR«f2204]) AND 7) THEN : PARTIAL WORD TRANSFER 
LS 


“BEGIN R.lzellitsl). i ‘TREAT BT AS A PARITY. 
ean. a0 TO ERRORS; “ Se 


giaLavetes teats THEN 
edt OFX 


— DKBNODFX OR OMIT 

OKBNODFX OR OMIT 

ao. 10 Ds}: . : Ks 
FLSE GO TO oK ELSE GO ro OKs 


Dx1t 
POP OMIT 
Lkt 4k 


PUSS #1777 THEN 
sOCATAVECS13,¢9053~U8 


PROCS f t= TeOL{Ot16I2) 


04150400 
é ¢ OQ) 


04151000 
- 04151200 


OasSto20 
04151230 
04151235 

ore 


04151399 * 
Pb btepe 


04152800 
04152900 


04157000 


Bee eae 


04160900" 
04161000 
pe 


04162900 


04163000 
04164000 
04165000 
04166000 


04167200 


04167300 3 


04167500 


eee 


04167800. 


04167900 


04169000. 


007833 


00793 


0082!) 


908440 


BS 20 


o0aets 
0088's 


Ot 


009140 


009130 


oos3t2 


o085t2 
oo9ett 


010840 


—gleott 
‘Ore2t2 | 
i 


CHT. 


012330 


04169990 7 
% ¥ i é 


04169190 


04170750 
0417000 


Oa170900 7 


04174000 
Oui71200 7 


04171250 
04471350 
04174900 
Oal74999 


04176000 T 
04176899 


04176901 


0418100 
04182000 


bette 
2041 ¥ -O132t6. 
04176900 


Q0432'0 
013210 


01320 


013884 


s 
s 
~ 
2 
S 
s 
E 
3 
8 
8 
Q 
g 
3 
Q 


@ J 
(2 
S ' 
’ 
b 
 ] ' 
b 
20 
& es 
« 
« 
@ is 
13 
SS, 


ELSE 
| BEGINa 7 

NEWt~S—*—*~<“C*“‘éN EK 

: YF STOP THEN GO TO INCRES 


OUP? AF LOCATQUECSJ, CFF) GTR €1777 THEN Go TO PROCS 


QUEUEUPCUDS& 
T © TB4CLIF43IS I 5% 


INCRE 
IF Criwechocker cata }=TOm a C THEN TIMeO} 


END} oe 
1¢(SL#LUCATQUELS]),C3!533 % FINO MIX INDEX 
N 


$_5 UM]T = NOTCNEWLOG 


JOTIWELI1¢(*PCDUP) TIMI : 
v PceStsb00), titi) TREN FORGETSPACEC1009/ 
£0 
IF STUP THEN 


P(T) 

) tr) 

ELSE ‘BEGIN 
"RETURNIOSPACE(S)3- 
-PCTRP CSL LODDLET 


ENDS 

PCCUNITCUII*STO)5 
FIN « FINAL® ECS AND NOT MEMORYS & 
IF CU OR 1). NEQ 17. THEN are rae 
TF OTOO CARTE YT THENR ee es ee 

BEGIN V« ABS¢10D.(633815)]"Rof33815I))3% 

F [0D,C8?10] < V THENS 

F 100,f23!1] TREN 

V ¢ 100,08%40)3% 
IF U < 16 THENS 
IF .100,€21%2] 7.0. THENS 


I 
I 


BEGINS STREAMCACOTBEM(S1, (3301S yeye 1))3% 


BEGIN SI] + LOC Bs% 


x SC = "e" THEN TALLY © 134 


_¢ TALLY32 
ENOTES 
Vo & *PeV3% 
ENDIx 
IF vu r 30 THEN &@ NUT OCA 
FINISHOFFIO(U)S% 
ENOs% 
iF € 4-0 TRENZ |: : 
$ SET OMTT = NOTCSHAREDI SK) 
BEGIN IF STOP LEQ 4° THEN. 
BEGIN 
INDEPENDENTRUNNER( 


ma EE Ee AnO oe) NEQ 16)» 
£37463715]+ 14073 a 


% NO MEM MESSAGE 


- 


04183000 fr 0139%4 
O4187000 TFT 01403 
041889000 


04191000 0144%3 
04192000 


sae AES 
onteagad: Tiere 


Gaieaoso 7 Of 


04194300 
04194300 
04194400 


04194500 T O15é6to 


04194550 

0419440! 

04194650 

04194700 
94799 T 01653 
04195000 7 016533 
04195100 T 016783 
‘ U6 i 4 on 2s 
04196400 T 017083 
04196600 T O1714%2 
¢ 96a 00 0) 


04197000 T OQ472%4 


4-4 


04199000 Tf . ores 


ViseZOLT OOO ge 4 £64 © 


04202900 T TIT: 


04203000 T 047750 
04205900 7 04774 
~Oa205012 T. O179le - 
Ge aueage 7 018043. 
Oa207000 T 01,8240 
04208000 T 0185%0 
04209000 T 018681 
04240000 T 048732 
04211000 7 018991 
04242000 7 019040 
O4213000 7.049493 
0421409000 FT 049583 
04215000 T 019680 
04216000 T 03968 
04217000 T Q497to 
04218000 T. OL97h4 


04219000 tT Of9at2 - 


KCHs +) 5% 


04219100 7 0198%2 
04220000 T O99) 
04221000 y 020082 
Og222000 T 020082 
O42a2499 7 O20194 
04223000 tr Ogaity 
04223500 tT O202!%a 
04224900 T 0203!0 
errr T 020344 


Gusa5000 T Os00T] 


: OT 014180 — 
O41e9900 T. O1ati2 | 
04190000 71 O;seto 
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%. ex 5 =: 


oon OO TF FF WH = 


a 


END 
$ SET UMJT = NOT(SHAREDISK 
ELSE BEGIN’ 
oe LP PIN <0 THEN PCR OR TOMASKaLOCATQUELSJ +6 )& 


$ SET OMT = NOT CYATACOM OR OFX OR OKBNODFX) 
BEGIN 
OCN «¢ ZA % 
{Ope 100. 33815933 
OWATLE. een terest ts) ¥- TOD Dax 
DCN «& N Nom : 
LUCNCO) ¢« M OR FINDS 
END END ZS 
F_ PIMIX = 0 THEN GQ NOTHINGTODO32 
“TF T 8 PAMIX THEN GO TO RETURN;% 
“GO To INITIATESS. pane 
vf OCOMPLETERH 


04226000 T O212%4 
04226499 02123 
Ou227000 7 Oelety 
Pedestal ' “021203 
24 A000 
04229099 T O215t2 
04229200 Tt O215%2 
Q 0.0.00 ‘ HiO 
04231000 t 021782 
Qu2a2000 T O2iet3 
S00 tf i). 
PORTER T Erin 
he 27000 T Q223%2 
6000 —— eat 
Oanarooo + Opaat4 
04238000 7. O2a710 i 


04239900 


SIZE 0228 wORDS 


SAVE REAL PROCEDURE WAJTIO(IO0sMASKeU)3% 04240000 T 000080 
TART i SA aMEN BASF ADDRES 00 

VALUE MASKsUsTOD3% 04244000 7 00080 
REAL MASK*U* 10038 04242000 T 00000 
REAL Ts 04243,00 T oO00GtO 
DEFINE OCTADE= DS*3 RESETS3CIF SB THEN DS*SET ELSE 04243200 7 000030 
SeRESETSSKIP SB ; a e t 00 0000! 
10d + NFLAG( PC, TOD+L.00) €TINUCUIEII3II5 153 04244000 7 0000%0 
MASK NOT MASKS f . 04245000 T 0003%0 
OREQGUESTCNARS WO DEM KC 2834038 ),100. ee ee ee ! 0900 0004840 
CIODI€UL1214236))5% Oaga7 ood T 000630 
100 © 100806252528) 40619819819 5% 04248000 T O007ta 
SLEEPCCIOD] s1UMASK)3% =e 04249000 T OO1O% 

“IF COWATTIO“LOD, £26179) AND MA K: “AND. MASK, €183151)%0 THEN 04250000 7 O014%3 
BEGIN 04251000 T 0015%0 
T¢GETSPACE (127020423 04251100 T 0015%; 
STREAMCIOD]IO0.L2637)]eMASK*C(NOT MASK) el4187]» 04251200 7 001733 
ZeCTINULUJ] ,TeT)3 04251300 T 0019383 
BEGIN OS¢20 LIT" UNEXP I*0 ERROR ON "3SleZ} 04251400 T 0020383 


STe*#S74530S¢3 CHRJOSeR LITMERESUL TEs 
S1*Loc TODS LeST+63SKTP- 3 dee ea ela 


DS¢6 LIT" sMASK®' e314 
JCOCTADEISDS*"2] LIT", e"3 
ENDs 
IF PIMIX 3 0 THEN BEGIN PCT) PUNTCO) ENDS 
IF TERMI Xe fCFIFPLIMIX THEN 
BEGIN: 
TERMINATEC(P MIX@4 9£18133%15}) 3 
IF JARCPIMIx29),C0181J THEN & "SYSTEM" 
BEGIN 
SPOUTCT)3 
BLASTQCUDE 
END ELSE 
TERMINALMESSAGE(™T)3 


END? 
ENO3 
END} 


“REAL PROCEDURE STAPEPARITYRETAYCROUSKEYII 


VALUE RoU?KEYI Ee ReUr KEY} FORWARD} S 


04251500 T 002383 
04251600 T O0a5t2 
04251800 T 0030%2 
04251900 Tt 003333 
04252000 T 003480 
04252100 - O03684 
04852200 T -0037t2 
x 04252300 7. 003880 
J08 04252500 T 0039%4 
04252600 T 004083 
04252700 T 00443 
04252800 T 004210 
04252900 T O942%3 
04253000 f 004233 
042531300 T 004481 
04253200 T O04u434 
ou252900 T 


0044s, 


| 04254000 7. “9o0ota 
“USTART OF REL SE,MENTS DiSK ADDRESS ® 00080. 


04255000 T 000080 
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5 * % a . 2 * a a Ames nS eS. = . 3 S. 
a oS  & g 3 G & o 2 5 6 : > 


PROCEDURE DISKURAUXERRORCR)s VALUE RZ REAL R3 


BEGIN 


CELL = MK» 


FIN = +8» PARITY® FIN 


AREA = z AREA» 
RSUT = ¢14°9 = RSLTs 
PRTMAX = = PRIMAX» 
DISKCELL= ie 


OISKCELLs 
TERMSET = eitk: — 
z As 
+193 


DSK ADRS 


0 N 


Nf 


tN pp 
Lapel sits START? QuITs RETRY» wrtbty KILLER) 


$ SET OmyqtT = NOT (AUXMEM) 


SUBROUT] [NED SRME Se GEs 


04256000 T 900080 
_START OF REL SEnMENTS OTSK ADDRESS = 00040 
04256200 T 000040 
pled hes cet 000010 
6400. 7 -O000%0 


PETTITT: 000080 


T 
04257000 T 0000%0 


04257400 o00CtO. 


04257600 000080 

S7eaO0 Ofae1s 20 we 
EET T 000030 
04258200 ~T 0000!0 
0 8400 


04288600 T 0 


04256800 ° 0000!0 

Oa289006 NN0n0TO 

04259200 T 000080 

naseCene T 0000380 
5 


3Q 
04259800 T 00080 
04260000 ry 900080 


¢ £0200 N000f6 


04260400 T 000080 
04260600 T 000080 
a AHO KOO TF 000080 | 
04261000 


000030 
94261200 0000!%0 
() SLAC OO a 
042614690 000030 
04271200 0000%0 
Q42 00 0000%0 


+4 


BEGIN = 04271600 000110 
STREAM (MSG? MK» ALsTINUCUIr MIX BIsDSKADRS» 04271900 T G00140 
at S#eIQQUELS).L27#6), Re KEYAPSKEVIFSGETSPACE(19,0,0)+2)3 —_> 04272000 000243 
BEGIN : 04272200 0006892 
SI8*_LUC MKs SI&SS14+73 OSt=CHR3 04272400 0006!2 
S1:8S1+5} vane se DSt=LIT" i 04272600 Ooo7%4 


Cliacr en 


G0: Los GO on 60 L2s GO L33 GO L43 GO 4.53 GO L63 GO 173 


LO# pSt* GLIT"NOT READY"; 
Lit oSt= 4, TT BUSY"; 
L23 pSs= 8LIT"1/0 MEM "3 


GO TO MX; 
GO TO MX3 


3% pSs=s 6LIT"PARITY"S Go TO MX3 
Lat teqgau iT 770 INV 


L5! oSts 3LIT*ey. “5- Go To 0% 
64 OSts: aL ITV ING | DISK ADDR"sGO TO MX$ 
L73 OStF OLIT™WRITE LOcKk"3 
MX$ OSes OLIT%» MIxe"3s OSts2DEC3 

MSG%sD13 DItsDI%23 OSt2FILLs DIS=MSG3 
OStaS.1T* DAs"3. OStaBCHRs 

DSte7L IT. ge"3 “OSts20ec) 

pSrsaysryt s,s Raty 

1OCDSt#3RESETS 3cIF SB THEN DSieSeT ELSE DOSt#RESET3 
SIltsS1953 OSteSLIT%» 102%; 


04872800. 
04273900 
04273200 
O42 3400 
04273600 
04273800 
04274000 
04274300 
04274400 
04274600 
04274800 
04275000 
04275200 y. 902540 
04275400 T 002684 
04275600 7 OO0a7t3 
04275900 T 002882 
04276000 T 003354 
04276200 T 


O008%, 
090883 
001083 
VOLl242 
0013%2 
001493 
* 0016480 
001640 
001940 
002191 
002233 
002430 


a te tt et st tte tte 4 


> SKIP SBF 


If SB THEN OSte2l IT" ae") SKIP $B5 
TE N OSts SKIP Ses. 


Steal 
saL lye"; 


DissOle13 0 


04276400 T. .00, 


003711 


“04277000 T 


oon~x @ oO & WH = 


= 
c=} 


= 
= 
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Eo & Arm Aman 7 es ee ee 3 Th = mS 5 5 


END STREAM STATEMENT: 
END SUBROUTINE 0 


foe DETAILRECORDENTRYS 


Rey? = GETSPACE (> 990) + 2} 
MCKEY2) t= 0 & ROCTABLECUI(18!142]3 
MIX NEQ@ O THEN 
BEGIN 


MCKEY2). te (wPCDUPD)- & MIx620149153 & 


IF FINALQUECS) LSS 0 THEN 


“CMEMELOCATQUELS) INX NOT 22 INX or fi3ti1] DIV ETRUNGI*1)(919919 33 


END} 
MCKEY2¢1) 35 TRAN a ONCUI3 
IF NOT. miata THEN ae ‘ 
BEGIN Re ee 
STRE AMCSt#100, LFF + DEsKEY242)3 
BEGIN 
Slts_dc Ss DOS&=s8DECc; 
END3 
END 
ELSE. NtKEYos2) ts OSKADRS; 
MEKEY 243) 2% [LOQUECSJ)3 
MECKEY2¢4] 32 R &@ ROCTABLELUICI323335)3 


MCKEY245] = IF FINALQUECS] LSS QO THEN O ELSE LOcATQUE lS) 


EN DETALERECONDENT 


SUBROUTINE FINISHDETAILS 
BEGIN 


IF MIx NEQ 0 “THEN CHECK JOBORF ILEMESS(MIXsMEKEY2*9 JeU)3 


LINKUP(4+#DISC»KEY2)3 
ENDS 


RCO» Or Br Os Or Os Or Os Os Or Or Or Os 


MIX=LOCATQUECSI.0325)3 
7 ze 


ENDS 
END ELSE DSKAOKS 


t= MC TOQUE(S))3 
MKoatets MSGra(%1)3 


ReeR&IOQUESIC32315 13> % RESTORE HAROWARE UNIT TYRE: 


Gp $= JOQUETSI3 
IF DISC THEN 
BEGIN 
IF Re poor THEN % DISK NOT READY 
BEGIN 
SET OMIT = "NOT CDFX)- 


JNITLUJ PC HPC DUP) IRO77 77705 5$20128)3 


MSG@S=03 MKIS" A" % NOT READY 
DISKMESSAGE3 
_DETA LRE ORODENTRY3 
READY #8 NOT TWOCU) AND REAQYs 


AUNTS LO] ts. 
GO TO KILLLS 


DISCH=(UP=LOUCATOUELSI=R,(345)1,11226)) eb 46hi is 


NOT TWOCU) AND RRAMECHS 


04277200 
0 00 


O4277600 
pebble hes 

oEen Sho 
PEELTEy: 
04278400 
0 8400 
042768900 
04279900 
Og 9400 
04279400 
04279600 
Oa: 0 


04280000 7 
04280200 T 
04280400 


04280600 
042809800 
0 819000 
042861200 
04281400 
04281600 
042a1g00 
04282000 
04282200 
042882400 
04282600 
VARGA BUY 
04283000 
04283200 
04283400 


04283800 
04284 
04284200 
oaedaace 
0 
Canaseao, 
04285000 


04285400 
04285600 
04285800 


04286000 


04286200 


04286400 
04286600 
04286800 


04287200 
04287400 — 


04295400 T 
04295600 


04295800 
04296900 
04296200 


“ONES ADDF 


96400 . 


pusseneo 


“OOSATS 
(0038%2 


04283400 -T 


00 1 


04285200 7 


vee 


03910 
003980 
OO44t4 
00440 


00443 


Oo4sty 


004933 
seeale 


“oosato 


0058%a 
005920 
006140 
0061%0 
O04 } 
006433 
006143 


00662 
Q069339 
0075130 
OO75%y 
OOrshy 


OO7K810 


007680 


“00B81I2 


gees t2 


0094%2 
009510 


01010 
010213 
01048 

0405%3 
010680 


04287900 T 010682 
0,078 
O40 


44866. 
O120%2 
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a a 5 TK cy TKS 3 ~. 
" & h, ze! te & & oh a e cg 


pats % IF nOT READY 
Q $] F t= NO 
ad Re reer? y NEG. AND NOT OLAYEG THEN ae NOT pus? OR SPECIAL I/o 
NO eee 


“Ys CLODeC2441) AND (Re (26979616293 % PARITY CONDIT ON 
ia FINALQUE(S) GTR O THEN & OBJECT JOB ERROR 


BEGIN 
[PARITY MEN G9 
NAT 


10_S) TART, % RECOVERABLE ERROR 


: "ante ea 
IF MIX NEQ O THEN 


TH WSYSTEM" woe 
HEN GO TO START; 
AIN/OISK ON PARITY ERROR 


GO TO DSIT3 
END} * NON@=ZERO MIX 
ENDS % MCP I/O 
END? &° NOY BUSY OR SPECIAL 1/6. 


TRANSACTIONECU) t= TRANSACTION(CUI@13 

_MASK t= If (FIN t& FINALQUE(S)) (45 O THEN FIN,C2588) ELSE @3773 

IF CE tm Rel2548] AND MASK) © O THEN & SEBNORY ARE ACCETABLE 
BEGIN % FIX uP Toque 


IF MsG NEQ (= m1) AND DISC THEN DISKMESSAGES 
DETAILRECORDENTRY3 
$ SET OMJT = NOTCAUXMEM)3 
: RERURNTSREARER ST 


Nis INALQUE cS) “AND NOT Me ehORYE. 
IF (T18SFIN) LSS O THEN & MCP ve 
BEGIN 
IF NOT GLAYIO THEN *® I/7g FINISH PLACES RESULT DESC. FoR OLAY 
MECOCETAUECS 1) beRSECES AOS B28 F001 31.915) OR LOMASK3 
END » TF ne Iso 


BEGIN. 

_IF —€ NE@ O THEN &% ERRORS 
BEGIN 

PC eTIOPRLDG 
THE be. T1KE(251401825 


ELSE PCsT Te TOR} 
LOCN t* CMCLOCATQUE[SI]3 
100 Hotere iene 


GO TO RILLLT 
ENDS 

IF — FHEN & BUSY 
OBROIN, Koso 


CeETee ses 


04299000 


04299400 
: Oa299a0o 


04300200 


04300400. 


04300600. 
-0430b000 


04301600 


04303000, 


04303200 
04303400 


04303600 


04303800 
64304900 
04304200 
04304400 
04304600 
04304800 


04305000 


TET 
04305600 
04305800 
04309200 


04309400. 


04309600 
04309800 
04310000 
04310200 


“04340400. 
06940608" 


O4310800— 


04311000 
04311200 
04331400 


04312400 


04313600 
04313800 
04314000 


TREE 


04311600° 
Oa aye sod: 


043122007 


Oas12ac0 
90812000: 


T 


—-4 


4b 


cep “4-44 


164! 


0122%0 


“O1gaty 
01zety 


ae 


etat le 
3 


043383 


"013840 


01438!2 
0138! 

OLjat2 
0138t2 
01383 

0138!0 
043882 
04403 
Oyaata 


"044683 
tha! 


014781 
0150%0 
015330 


045290 


Opsary, 
O48at 

0156!0 
O157%4 
015733 


 o1sant 


016340 


LVI EO 


9163140 


016339 
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6 5 * a gy * * a a 55 SKS aS 


ow ~ fO nm &F® WHY = 


$ SET 


$ POP 


IF 


se 


$ SET 


DISKMESSAGE# 
RECORDENTRYS 


DETAIL 
§ SET OMIT * NOTCAUXMEM) 


TIPS CT DISC-THEN LOQUELS) 460324385) ELSE LOQUE(S))3 


PIMIX2=MIX3 


RNIGSPACE 


$) 


IF NOT OLAYIO THEN % RETRIES ARE OK 


TOREAUESTCFINALOUEL S39 Tie 
ee DISc THEN LOcaTaversiaezzriztazt6) ELSE 
LOCATQUELSI))3 


PiwIxteoy 


GO TO KILLERS 
_END3 & IF BUSY 
gether) THEN e170 WEWORY PARETY 


ae 


Trice a 


i QUITS 


BEGIN 


£§s@1537; 


GQ 


NE} 
$ SET OMIT = NOTCSHAREDISK) 
AF NOT Es C431] THEN & NOT PARITY» CHECK DISK AODRESS 


OMT 
OMIT 

DT ReOC OAs DSts2 oct: 
“Stpstuas. § 


ae o£ 
I 


TO Quit; 


se SE bet no? 


_ 7s 


7 NOT(SHAREDISK) on 
nny bel LSS PO" THEN JUMP. QUT TO BADE StteSl+13 . 


Ey STS THEN % INVAL 10 ADDRESS 


STREAM (DATEMASKI@DSKADAS t EUI=NASK. 1616) Atzo> 
EVAL SEMILTITABLELIGS2EMASK C581)]))03 


F.$C GIR "9" THEN JUMP OUT TO BAD)3 
= SHAREDISK 


SrTisSjp"53 


= NOTCSHAREDISK) | 


IF SB THEN SKIP DB3 
S[stzlLOC DAs S]is 
Ip SC NE@ "0" THEN GO To BADs SIteSte13 


T2sSI4+143) SKIP EU SB? 
Dr#sLOC AS NI&FD1+73 SKIP 2 VBS 


teSl+6s 


7 : “MSGS eas | _ 


4CTF SB THEN DSaaSET ELSE DSt@RESETS SKIP SB); 


“SitmLoC As SlteSie73 IF SC GTR "4" THEN GO 


F $C LSS "0" THEN GU BADS 


SItSEUAS SISSS1+EUs SKIP Spy SKIP A SBI 
LF SB THEN GO TO OKs 


ND. Le 
MAQKS =P 


OR Estaet 


= 


HEN & BAD ADDRESS — 


BADS 


OR Eu Not 


READY 


Coseoee 


04315190 
eet 
09315400 
04316900 
04336400 
04316600 


04316800. 


94317000 7 


04347200 
04347400 
0434760 


TETIGL 
pe acce 
(ee 


verre: 
04349200 

449200 
aaa on0s 
04319800 
O43 00.00 


04320200 


04325400 


6 254006 
04325800 
04326000 


04327000 
04327200 
7 


04328800 
04328600 
04328800 
0432909000 
04329200 
04329800 
04330000 
04330200 
04330400 
04330600 


- 04330800 
84331000 


04331400 
04331600 


04331800, 


04332600 


04347800 © 
04318000 


04327600. 
Gu d26g00 't. 


04326400 T 02 
Gadapenee 
04326800 


046030 
Eola 


018811 


04948. 
o195t1 


0177382 
0 1 


oreria 
018710 
048733 


048983 
019282 


0493 


019440 
04948 


Te 
QO197%4 
01973 

Oyo7ts 


O,9ate 


019920 
019933 
0200%2 
O20 C) 
020140 
020110 


249.0 6 


0202%2 
020483 


020910 
020910. 


O21oley 


Oz1182 
O21142 
021133 
021133 
Oz1143 
Q21211 
021344 
021450 
02143 


“O215t} 
021684 
02781 
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MS 


DISKMESSA 
DETAILRECORDENTRY? os 
GO ue KILLERS & LET ZY HANG 
ae ana8 a 
ELSE 
BEGIN %& MUST BE Ee ain a MEMe PAR» 
Ho = 'g Q 
OY PARITY OSES : 
BEGIN 
MSG8s33; 2% PARITY 
: 735@ 03 = 
60 To QUITS a 
Pies vee 
_k WR TE ~OCK 
epeaisays 


Tereer GO TQ QUIT; 
ENDS 


GO TO QUITS 


LOCATQUELS] e[11!132=03 
KILLERS 
KEY 


Q 
IF KEY2 NEG" 0 yHEN FINISHDETAILS ee 
a eerie THEN TERMINATECHIXE2OECTFIIA 


W 
END PROCEDURE D ISKORAUXERROR: 


-NO3 DISK 


S$ -SET OMIT = NOTCAUXMEM).” 


PROCEDURE ACTYALIOERR(R)4 VALUE AS REAL R3 


Is NQ aiid 6s NVA 


STar?l OF REL SERMENT? OYSK ADORESS #& 00049 


04332800 


04333000 


04333200 


04333400 
043334600 
043333800 
04334000 


04334500 
04334600 
OG. i OF 
04335000 
piace ye 


04336200 
teats 


OAQO 


oaaregau: 
04337000 


errr 
04337600 


Q BOQ 


04338000 


04338300 


OAR 400. 


04351800 
04352000 
043 00 


04352400 
04352600 


04353000 T 


04353200 


04353400 
04353600 


T 
tT 


ocee 


“oneete 
022611 


Og201 
0230!%0 
O231%4 
0 8 


“Oaaato 
O233t0 


0233! 


023332 


Dy 023610. 
04335800 T 023610 


023740 


0237!2 
02383 

023910 
023942 


oe50'; 
024140 
0 ; t 


O2a4te 


—Oaarte 


02503 


S17Z—= 0251 WORDS 


00000 


0000!0 
000080 


g a 4 y « ‘ * a a <a S. iS. Th 3 ~ = 


“04354400 T O000T0 
04354600 T 000080 1®@ 
04354900 7 0000FO ie 
04355000 YT 0000!0 : 
04355200 T 000080 1 @ 
04355400 T 000080. 48 
04355600 1 OC0010. As 
04355900 T 00080 1@ 
04356000 7 900080 : 
04356200 T 000010 ; 
04356400 7 000080 «| @ 
— 04356600 T 000040 : 

: ~Oa3S6 B00: Jou : t B 
fab cake Om t | @ 
EADYMESSs NTRDY* OWN by 

X» LEAVE? 04 
@ @ 
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= . a . a zy , 5S 3 53 


REWINOINGs NOCODEs CLEAKs 
EL READER» PRINTERS 


KILLL» KILLERS 
3 SF P 


A 


1 PARERPUNCHs PAPER» DaTACOM) 
2\.- : : : 
3 W ts READERs PRINTER» TAPEs DRUMs DISK» Sf NCHs NOCOD 
4 PAPERPUNCHs PAPERS UATACOMS 
5 
6 SUBROUTINE MAKEMESS3 
a BEGIN 
8}. STREAM(S11 5F 9(43153, Sater, C36t5 3, AtaeTINUCU], 
ae MX SSL OCATQUE case KEY te KEY tsGETSPACE (40s000)42)3 
ib BEGIN 
ba SI@eyagc As ST tS] +5; 
12 OSts_TT"e"3 OSs HR 2 OS#s aed | 
Clietl +813 GO TOLLS 
eae: gO Lis GO Lar. GO 433 GO La; go L5s 60 Los gO Lis GO LL; 
5 NSisi9 BAS Wi ON wk bad 
6 Lit ps3= 4 meu sat G0 70 MXX 3 
q L2t OSi= 8 LIT"I/O MEM "3 
8 t nst=z 6 LIT*PARITY"S x X 
7 L43 pSeei2 LIT*I/O INV ADOR" GO TO Mxx3 
; Ls NSts 9 LIT"1/0 ERRORS GO TO. MxXX3 
1 L623 DS 2610 LIT"WRITE Lock" j : Gu To MXXi 
i LL & GO TO PS3 
MXXE . TO MIXITS 
p PS3 2501455 OSteLIT"#"s Di rani +4; eae cee AE 
P SITE STT GQ TO. LLOs GU TO Lis gO TO LLes 
Pe NR&§ DSis 9 °LITMNOT READY"3 ~ GO-TO MIXIT: 
: 1.0 -pSts 5 LiITMPRINT® TO CHK3 ss 
Pe LLIs pSt= 4 LIT*READ"S GO TO CHK; 
ia LL: DS3t= 5 LIT"PUNCH"S 
Bo CHK: pSts 5 LITMCHECK"S 


WIXITS OSts 6 LIT%s MILKS"; OSisa BEGT: OStRUIT ot) 
DTeeDIe3s UStSFICL; 
oeNOE ze 
END OF MAKEMESS3 


SUBROUTINE DETAILRECURDENTRYS 
BEGIN oe 
KEY GETSPAGECABS(T2)0920) 423. 
MCKEY) t# CABS(T2) DIV 5S 4) & ROCTABLECUICIAt1I2)3 
IF (NT{E=LOCATQUECS].€3:5)) NEW O THEN 
BEGIN 
MCKEY) 
CIF FINALQUECS] LSS 0 THEN O ELSE 
CMCMCLOCATQUECS) INX NOT 2] INX 4]9C13511] Oly ETRENG +4) C9s39I8073 
CHECKJOBORFILEMESS(NT I. 


$= (*PC(DUP)) & NT102084355] & 


QD N= =) 


CIF FINALQUELS] LSS 0 THEN O ELSE LOCATQUELS] INX NOT 2)» 


CSUR Fee : 
aiary ts R & ROCTABLETUITSTSTST3 
IF TYPE22 THEN 

BEGIN 
WEKEYS 


= 0s 


MCKEY+8] 


panes ae 


04358000 
043958200 
043584600 
04358600 
ppaeenon 


04368400 
04368600 


voaRevoes 
7 A9000.. 
Ter 


04367600. 
04367800 T 


04368000 7 


oor 


T 


TRE 


000080 


000080 


00000 
0000 th 
0000%0 
0o00to 
0000i%0 


04359200 7T 0004%0 
04359400 T 000110 
04359800 T 000683 
04360000 T 000683 
oh? ote YOO 
04340800 000882 
16960 000984 
4 340800 Ons 4. 
04361000 T OO14!%) 
04361200 7r 001584 
or'e.¥. ore NO0142 4 
04361600 T O017%3 
Gapereen 1 001943 
‘ 6Be2H00 i ols 
04362200 T 00234 
04362400 T 002382 
043424 00233 
04362800 T OOZ4a!3 
04363000 7 002630 
} 
04363400 y 002980 
04363600 T 00300 
04363800 T 003440 
04364000 T 003240 
04364200 T. 003353 
O4364g00 7 O0343 
04364600 T 003482 
04364800 tf 003433 
04365000 T 00343 
04365200 7 ~ 
04365400 T 
04365600 T 
04365800 tT O041%2 
04366000 tT 0043%2 
04366200 T 004410 
08366400 7 OOd6Ty 
04366600 T. 004912 
04366800 TT 00535 
04367000 yr 005530 
04367200 tT 005882 
04367400 005930 


0072!0 
OO7 a 


008080 
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‘. ry * . . 5 u PS a %) Th Ey Ey 3 cy 
g Qo & =. - Y. ; ~ 


MCKEY+9) 33 163 
NOs 


END DETATLRECQROENTRYS 


DEFINE “WAKEMLOG(MAKEMLOG1) = 
BEGIN 

—_—_l22sMAK EM]. 3 DETAILRECORVEN 

a ENDS _ 


Peo Op0r 0 Or Qs 00 On Os: O08 09.0 


§ SET OM[T = DATACUM 


_% THIS CODE: WA PLACED HERE FROM QO 


TREUNIT(U]60[13#13t2)3 
TRANSACTIONCU) 8= TRANSACTIONCUJ@13 
TY t= T 84) 

IF cubes £548)..AND MASK) = 0 THEN 


Fisq? % RETAIN ERROR FIELC 


P(@)3 % DONT SPOUT mESSAGE 
Go TO REWINDINGS 


IF U NE@ 25 THEN % NOT SPU 


x BUSY 


Lis DO BEGIN 
SLEEPCCCLOCKJ*NOT CLOCK); 


STARTIOCUIs. > 
SLEEP(CUNIT(UI3»€1 0000900000027 
TRANSACTIONCUD ta 
ENO UNTIL CUNITLUJ. (58) ao T3) 
TRANSACTIONCU] &3 TRANSACTION(UJ 443 


sree THEN 


IF T2 GTR 0 THEN LINKUPETYRE +1 eKEY 23 


ER BLOCK 


dacee oer. TYPEw2 THEN 10 ELSE 5)3 
UNITCUI$=C #PCDUP) &PCTA»XCHIECTCI3 


RANSACTIONCUJ 43. 


GO TO FIX; 
ENDS 
IF € THEN: : oo oe ee 
oo CREO EN Hae age sa . ; 
Tate, @ (US30)C43UA75 45 % BUSY/ INCOMPLETE 


IF u LSS 16 AND TRANSACTICONCU] LEQ O THEN 


AVOID CAUSING 


dF: REO. & OVE OF INTERRUPT STACK 
THEN BEGIN STRE PeGETSPACE(1020,0)42)3 | 
“OSte NEDATACOM/ INQUIRY INTERRUPT 
SPOUT(T)3_ 
GO KILLERS 
END$ 
$ POP OMIT... 
UbeLOCATQUETSI=R, tansd3 e126) 
STARTS 


MASKS IF CT2¢eF INALQUELS)) LSS 0. THEN T2.0258) ELSE ©3773 


& AGDERTSEE 


¥ pusy 
MASK 


NORED. BY McPe™s 


30" CUNUT Eds (5*8] AND. MASK? a 0 HEN. GO TO CLEARS 


“% NOT READY 


04369600 


04370000: 


04370200 


Oo. 


04370600 
04370800 


OL 000 


04371200 
04371400 


ig 


RETRY: 
04371900 
04371910 


 04371920— 
-0a371990— 
04371940. 


04371950 
04371955 
04371960 
Q4371970 
04372000 
04372200 
04372400 
04372600 
043729800 
04373000 
04373200 


UST IVE 


~ 04373600 


04373800 
043749000 


04374200 


04374400 


04374800 
04375000 
04375200 


04375400 | 
943975600 
04375800 


04376000 
04376200 
sear eas) 
UH 37660 


passeeon 


04377000 
04377200 
04377400 
04377600 
04377800 
04378006 
04378200 


04376400. 


04378600 
04378800 


04379000. 
(04379200 | 
O4a3794 00 7. 0 i 
014830 


04379600 


T 


44 wana es al ne ee 4a be es 


aH a 


ye SRS DS ed ae eS a4 


Se ee 


008210 


008410 


008613 


OOBF7 FO 


0087!0 
008710 


“o0arto 
008710 


008730. . 


009030 


009080 


009030 


“008080 
0090ta 
_ 00941 


0099383 
010032 
010130 
Q101%0 
010140 
01038 

0403%2 
040580 


011983 
012183 
O122t 

O122te2 
012310 
012310 


012613 
042633 | 
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. a * , * 8 * : G A 5 an SS TS =. ~. 5 = = 


BEGIN 
LF _£46431) THEN 
— . BEGIN 


oom “TYPE#O “THEN GO TO READERS X READ CHECK 


#1 THEN GO.10 PRINTERS & PRIN 


: = TYPE=6 THEN GO TO PUNCH} % PUNCH CHECK 


END> 
x 5 N % NC SPU 
BEGIN : a 


“NOTREADYHESSE 


Fis96i % No TYPEs 2 THEN 10 ELSE 5)3 
ia 
SPOUT 


aeaereenaT ae Bae 


IF P THEN SPOUTERCKEYsPSEUDOMIXCLOCATQUE(S) .£385)1235);3 


NOs 
UNITCTUI, (5810) t= 23 
GO 70 KILLL 3 
END?" 
017% 
IF Eel4631) THEN 
BEGIN 
FF eee) & 170 MEM PARITY 


bat > MAKEMESS? 
cous SPOUT ER CKEY »PSEUDOMIXELOCATQUECSI. €315))3593 


MAKEMLOGCIF TYPES? THEN 10 ELSE 5); 
PC@1537)3 & ACCEPT EOF /EQT/EOP 
GO TO SIX; 


“ENDS 
uF ey Casa) AND. TYPE. NEQ 2 THEN 
IN % Cats FOR TAPE = 84 
De2t Fieus % 1/0 InVALIO ADDRESS 
GO TO Lea 
END; 


GO TO WETYPE)s 

019? — t= 10233 GO To D173 

SPO? 
IF EsCa3ii} THEN GO TO Lis % ERROR BUTTON 
GO TO pigs 


PRINTER! 
IF Eela2ti) THEN % END OF PAGE 


1,02786)%0 THEN GO FIX3 &% NOT SPACING 


‘TGQNORE. OP IF NO SPACE OR SKIPS 


Aaa TO Cua Chat) 
ENDS 
E 


SPOUTERCKEY pPSEUDOMIXELOCATQUELS)«L315)1935)3 


% 1/70 MEMORY PARITY 


% 1/0 INVALID ADDRESS 


$75) te: 40001) % INHIBIT DATA XFER» SKIP TO CHANNEL 


04379900 
0) ROOQOO 
04380200 
04380400 
oF ROAOO 
04380g00 
oa7e090 


04361400 
04381600° 


ETO 


04382200 
04382400 


04383400 
04383600 
04383800 


06385400, 


043985600 7 


04385800 
04386000 
043862900 


ee ee 


TEPeTTIO 


04386400 ° 
04386600 7 


014823 
0 93 


015040 
f L, 


015330 
01544 
015 t 

0155%0 


“O45St2. 
t) bs 


015684 _ 


016040 


016381. 
0465%4 
01668 


046682 
016910 
“O489F 


0469!2 
0169%9 
Q 


-94986ao0 1 OIF 
04387000 


04387200 ¢ 0; 
O14 


04387400 


04388200 


04388400 
04388600 


Ouageago 7 
Sakared 


04389400 


04389600 
04389800 
04390900 
04390300 


04390600 
04990800 


~~ geseh20g 7 


DeaetrO 
04392000 


04393000 


BAO. 
3 
t 
(aoty 


rT O1e2¢. 
mertriy 
016833 


019080 
019030 


019010 


 019nte 


04390400 7. 


019250 
019280 
019230 


020280 —™ 
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@ @ 
 ] IF £4€45!1] THEN GO TO NOTREADYMESS$ % PRINTER NOT READY 04393200 T 020283 e 
MAKE MIO PEs2 A 0 020 
P(O)S & CLEAR ERROR FILE oO. - 04393600 7 020880 1 
@ Tinut ede calc te Pcou de staeniayess os 04393800 7 O208%; 12|@ 
ENDS 04394200 tT O21291 4 
@ GO TO pi9s % PARITY 04394400 T O212% |@ 
94400 0 3 6 
READERS oe 3 ; . 04394800 T Oaiats ? 
@ IF “escaasiy 1 THEN * READ CHECK esi Habbo Tt Ogtets” |@ 
: F f O46 O oe bee ae of i ae ne ; e 9 
TINULU), [18ti21 fa PCDUP), (18t12)413 04395400 T 0214480 19 
e F%=323 % READ CHECK . 04395600 tT 021782 /@ 
MAKEML .06(5)3 | | 04395p00 Ogiaty . 12 
" MAKEWES: Ss TR een | 04996000 T O@f0f0 
Oh. POLE | 3 ae ee | 04396200 T Ozaito ce Oks ®@ 
ss G0 TO NTADYS. ee eR aa ee : 43I96H00 TT. ee c 
ENDS eae ; 04396600 T 022183 Ne 
@ IF Eel42t1) THEN % EOF CARD READER@TREAT AS NOT READY 04396800 7, 022113 7 @ 
BEGIN gees 04397000 t O22! 19 
UNITCUI],€538) $s 43 % ERROR FIELDENOT READY 04397200 tT O22a3!to0 ‘9 
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e % NER PUNCH DOES NOT G0 NOT React ON PUNCH CHECK ) 04405000 7 025513 


Data Documents/Iinc. 


A oe a 5 
me & > fe Y, a 


IF €6C€45%4] THEN GO TO NOTREADYMESSS % NOT READY 04405200 


0255383 @ 
MA MLOG 3 440 00 0 


1 | TINUCUI Cibsi2lssPCouP), Ciesi2iels 04405600 025910 
2 Faaod & ZERO ERROR FIELD Oanosaod T Oze2t2 
3 ‘ ‘4% 
4 : 04406200 026333 
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Data Documents/inc. 


: a a vy y zy 5 a 3 TH = Th 3 Ry > 


“FALSED 
10D te Ido a ntcTcdsa 
RECORDRETRY3% 
100 + O1003% 


1F RESULT (27112 THEN. Re f27t1] + 433 
Le not ReSu | 


Nei VEsRESULTGLERIeuTODAKer is 
ee. 


IF yay eRESu T.f28%1] OR (Olod. t2t11) AND 
CRESULT eCCFIMSPACEIODe(CCFIFSIZE))) THEN 


MODE+OgR(42t273 
“G0 TO EXIT, 


T2_ + GETSPACEC3»0s0)+25% 
| ao 


apie ee 
Ab 91 6 ae ace 
‘iM WR PARITY e%3S. 


oe od 
04597000 
; Sesteo00 


oe 
sesasaoe 


04605500 
04605600 


04606000 7 
04607000 T 


04608000 


046090900 


04640000 
04611000 


04627000 
04627400 


Ousnkooo 


04626100 T 


04629000 
246 U0 () 
04631900 
04632000 
VHS 28000 
04633400 
04633200 


04634300 


04636000. 
04637000 7 
04638000_ 


04638100 
04638200 
04638300 
04638650 


-04638700 


04638800 
04638900 
04639000 
04639100 


04639200. 
04640000 - 
04641000" 


04642000 
04642900 
04643000 


04644000 — 
04645000 


04647000 


aaeoanoG poeta 


04602000 
pee seanpope 
04608900 


cata 


04693400 T- 
04634000 


PTET EL 


033293 


44 


Fr, ese, ton lime Reem foes eae, om a 


0275%0 
02778 


027944 
ozerto 


eis 


029343 
02943 


“Og97t0 
O29et2. 
030183 


030432 
0305%4 
03058 

0306/0 
030884 
t : 

031331 
0314%0 
0 430 
O318to 
031910 


032142 
0322'0 
6 


‘O3a6te 


Oa26t2 


TEETER 
033033 
033230 


033410 
033730 
0338%0 
033880 
034083 

034240 — 
0343%3 
034540 
0346%2 
0349392 
035030 


 O95.83 
- 0a54to 
O354to 


035420 
035489 
03548 


“uate 


Vata vocuments/inc. 


Exits. 


* a S TH 5 53 5g > 


END e 
TAPE RITYRET 


ee ae s 


Ab © Loss 


te unrrcus & moDErS 140835. 
MEMORY(KEY +6) t= PT RAKE YO OR 
MEMORY [KEY+91?=ABS( MODE): 
MEMORYCKEY] %= P(QUPsLOD) & (CPTR=KEY) DIV Seg eter 
IF MOO #46 OR Re Legit 1) Th N Nk UPC 3sKE ) € 
BEGIN. ae 4 
‘BUFFERI® ato INX os 
AP i 0 qrirea: 
‘IF NOT O10. C2191) THEN 


% ALPHA WRITE © CHECK o*=MARKS 
BEGIN | 


BEGIN 
ST?=sBUFFENDS DIts_LOC TEMPS OSt= CHRS. 
DI s=BUFFEND DSseLiTheon; OlssOJes Os 
SEtaQuFFSTART? Ee ees ees 
aad SC > 9 THEN 


SRESETS %Q°MARK 


Lit StisSl*ip IF SC>9 THEN GO Lis 


ENDS. 

8 ts + $9 neh cia 5. 

eye ytes ts eae Nga 
ST EAUGE, Svsia S1teS1653 

_D: ; . NDE DLEaD pat 


IF 3 ScaOc THEN. TALLY 8 aq3 
DIsaBUFFENDS SIssLOC TEMPS DSt= CHRS 


33] A a Y 5 = _ 
ENDS aa pe ee 
“TesPOLISHS baie Ae ie 


EMORYEKEY*#2]32= P(DUP,LOD). 

END; 
IF Sn TES TREN LINKUPC3sKEY) ELSE 

NENORYEREYS in RAEN ET TRUE EGO TE ' Sen 

LINKUP CaeKEY 24 : 2s dh . 
TESTING I SPACING? = TRUER NtwOz- a 
BUFFERSIZE&= BUPFERSIZE"13 
Or1Oo*= glad & 1C1A&4etel]; 
PTR&= KEY+&s 
TREAM CMU D2 TU 
. BEGIN ae 
_  p8tey3 LIT"O1248 exec, ee a es 
MOD2IOSC(O1 =D "6; DStaL[THAR; DItepIe5)3 
DSt= LIT"""S OSte LyT""; 


PaNOT Ch oo: ae +62)0— eas ATTERNI )3. 


7 CMEMURT KEY ?14#1000090000000090 5 
TRIER OF NOVECTOLSPIR-PTROL 3 
FOR Kiso STEP 1 UNTIL 15 DO 
BEGIN | 
STREAMCAtSCPATTERN]» 
ge Kiake 


8) Nisie(K>13), 
} muregnsice, 


at cae nee nn 


en 0n68 


04648000 T 0360!3 a 
032613 
04650000 T Oa62 
04651000 tT 09621 1@ 
04651050 t 036810. ac 
04651100 r 036880 . 
04651200 T 037084 3|@ 
04651300 T O37499 a 
04651400 T. ? 
04651500 T ?|@ 
DAART AOD.’ 8 
04651700 "0 
04651800 /@ 
04651900 T 0384 7 
0a652000 7 036; hg 
04652100 7 0383 @ 
04652300 T 036484 ial 
04652400 T 038484 |@ 
ae 18 
) 7 O306%, rg 
Sa700 T 0386t2 hed 
Oa6S28n00 7 — R7iO : 21 
04652900 T 038730 2 
04653000 T 0388!0 1 @ 
R 
2! 
1@ 
q O. = Bape. 2 
04653500 T 039084 Je 
04653600 T 039140 2s 
6 * 00 039748 ; 0 
a 6 O09 e ree 31 
a652a0 ee | @ 
04658000 + 039987 33 
04654100 T 039610 
04654200 7+ 039610 2 @ 
03983 36 
tT 0399883 ip 
T 040033 bd @ 
QGG58600 T 040483 fs 
04654700 T a 
04654800 T 040 «|@ 
04654900 T 040613 42 
655000 eg 4. 
4@ 


23 
prbet T 
655500 


ie ry ary 

- 04655700 T 041610 so @ 
04655800 T Oglato.. _ 51 
04655900 T O421!%02 5: 

04656000 T 042480 3@ 
04656100 T 042410 i 

04686000 7 127 : 65 

046 {@ 


Data Documents/inc. 


* a a ya TS 5 Ry ~. 3 x 7 


SItsA3 SItaSl+k; 

M(DSteN CHR 

STPsPUFFERS 

SITESLVEA COS S838 nos? a WoS)3 DS1MBUFFERSIZE WoS3 


“WEMORY CPTRIGS RESULT & a ee 
SPACEBACK}. | & ay 
: 5 RE AMC LED 6. sPBBUF he ; . 636, 5 ag 
BUFFER)S 


DOLONONS au: 
MEMORYCPTR+1735 ee & ROCTABLECUICI9s4: 273 
$s FX ad Ais aa - R NX 
CHRERR 80> “WRDERRt®0> wROCNT S206 
petniheebe Dacca bat LEAP ERD GEN GY. 
OSE ; ; 


LEQ SUEPERSIZE THEN SIZE ELSE QUFFERSIZE+1) MOD 63» 
VislF J<64 THEN J ELSE 63, 
NtsIF J<64 THEN LSE 2 DIV 63» — 
RECYCLEts IF y<64 THEN O ELSE If Ia0 THEN O ELSE 1, 
TEMPGeQs SVDI1800- ioe 
BITLOCNSSPTR+ as WROLOCNSSPTAR452 
BUFFER)3 
BEGIN; . . 
LEAPFROG3= C13 TALLY%*03 % USED ONLY f oR LEAPFROG RETURN 
tN TF 8 Scene THEN oo 
E 
S[}eHRDERR} STbsS 1483 WRDERRE RSIS 
F ORS EVENC VOI%eDIs DIS sBITLOCNs LOOP(OlicDI+e2); 
SI#=LOC WROCNTS SyssSy+6s DS8e2 CHR3 
DISSWROLOCNs LUOP(DI3=DI+8)3 
SlteSvOls STt#eSi-gs OSte WOSs 
TALLY ?® LOOP; TALLYSSTALLY 443 LOOP Is TALLY? 
SI#sLOC LOOPS SttaSi+73 — 
IF SC#"7" THEN 
BEGIN TALLY:#04 FORSEVENtSTALLY3 ENDS 
DIteSvDI)3 
 STtehs OLtsple8s TALL Y#s03 
BCI. SEZ0C THEN TALLY S@TALLY41)3 
TEMP EBTALLY 3: 
SIt=CHRERR} TEMP(S1i=S1+6)? CHRERRI@SID 
ENDS 
SIs2WRDCNT3 S1isSl+s WROCNT&=SI3 


3 RE EVCLETSTALLYS 
JUMP OUT TO TADPOLEDS 
GO TO FROGS 
a iP A 


(iS & 3 


hel af 
ST?sLac RDERR} Sties +63 DSte2 CHR 


Geeec ons 


04886a00 y 
94656900 T 


04657400 
04657 200 


04657700 | 


04657800 
Out e 


04658300 


04658400 
046584500 


04658600 


04658700 
0465800 


04658900 
04659000 
04659 e 


04659200 | 


04659300 
04659400 
04659500 
Vas aeo0° 


04660400 


04660200 
04660300 


0435'2 


043583 


O4uety 


O4n643 
48 


045240 
045340 


6 e 
“OaS7y 
045840 
“ Ogse? 


0460%0 


04660400 T 04 


04660500. 7” 


04660700 
04660800 
04660900 
04661000 


04661100 
04661200 


04661300 
04661400 
04661500 


04661600 
04661800 


04661900 
04662000 


TUTTE 


ji ~~ 44 


—O497Ie 


048913 


049484 
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s 5% 2 . 4 zy ry a a N. Th Ry Th x. =. > 


END; 
MEMORY PTR 2[27i THEN 
PIR EMP TR 12s. 
END}. 


MEMORYCKEY]3= PCDUPSLOD) & 0 


MEMORYCKEY+212= PCDUP»LOD) & 
LINKUP(20sKEY)3 
NDZ END3 

ENO TAPEPARITYRETRYS % 


REA PROCEDURE & ACEFINDER(S F 


[*O; JeuelPF 3 
O00 BEGIN SeC14J),£3621143 
IF We(W3 3S OLV a THEN 


3 
IF E<A THEN 1¢S ELSE Je 
END UNTIL v"lats 
S¢T3 
FOUNDS &£ © #3£9 MOD 30),Ci10:28)3 
IF L=0 THEN GO TO SANDA3 
STREAMCL©ABSCL 0 T)3 


BEGIN p8ss3) Lit "gNEAR LINE "3 


SIeLOC Ls OS¢8 DEC 
OStal iT " #3 Orsa0 1993 


ENQ STREAMS 


EXIT? PLACEFINDER a T3 
END PLACEFINOER) 


: ee . MgT @ NOTC GR 
“PROCEDURE LOGGUTCAD? VALUE a} REAL a} 


wORDS 


| 04662600 T 049894 
SPA BACK; _ 04662700 T O49as 
a 04662800 T 080210 
04662900 7 050394 — 
Hy : 9 9 929 044643000 OSOSha. 
UPTIONL2#24193 04663100 fT Q509%4 
04663200 T 051242 
a, Oe ae oer nee 9466330 a. s : 
04666000 7 O51312 
S1ZEs 0514 
O0000 + -CO00!O 


START Of REL SE, MENTE DySK ADDRESS = 


VALUE | Ss A3 04701000 T 000030 

ee ermrareretrtoenetttn 0.4 ae 0.0.0 Q000 10 
“BEGIN. INTEGER be ARRAY Bl+l3. 04703000 T.. 000030 
REAL Te Ey Je Aad 04708000 T d00040 
N -» FOUND XiTs ee ee eee 0a705000 _ 0006.0 2.5. 
LABEL SANDAS REAL SS3 04705500 T 000080 
We "13 04706000 T 0000!0 

B ¢ (M(T ¢ G TSPAGE 30s Os 0)+ &30(8338%40)3 — ow 04707000 y 00033 
$5128} : : 04707500 T OQGO7!'2 
“<F SwO THEN oe 04708000 T 0008%4— 
N _ BEGIN STREAM(T)# 08 kL “3 GO EX T3 ENDS ee eee Ou709000 O009LO 
DISKWAIT(=T2300¥ AaCP IMIR GI) 04710000 T 001383 
TF CJARCP1MIXs10)]30) OR CAAeBLCOJeCFFI)=S0 THEN 04741000 T O0016%0 
SANDAS BEGIN STREAMCS2*®SS» As KS*MCPRICPIMIX28)) 6108 2)9T)3 eae, 04712000 T 0020!0. 
geSIN OSeS LIT "2 S 313 O4F13000 T O02480 
S1*LOc $5. ae QEcs poe ieee T 0025%0 

DSe§ & cs 4715000 OO25 

US¢4 DEC parisons T Q0026!%2 
DStsnIT "F43 STteS]4+73 OStecCHR; 04716100 7 002683 

DleTs DyeDs+5s OSe3 FILLE 0 N00 T 0027! 
DleTs. Dlepi+ia;” OSe3 FILL: 04748000 rT O0028%2 
END STREAM? - 04719000 T CO291 

30: TO EXTTs. O4720000 0293 
04721000 003030 
BTSKWAITC™ Te 30eTSSJARCPIMIX2 AA DIV SARE PIMIX#814+10)+ 04722000 0030!0 
AA MOD JAREPIMIxX*e8]4+5 DIV 3093 04723900 003333 
IF C4eBCS MUD 303)<0 THEN gO TO NULL; 04725000 . OO37%;4 
AA-© IT ©: JARCPIMI xy geCCF) Oly JAREPIMIX 2B 1410 J+ 04726000 003943 
oe CCF) MOD YARCPIMIXeB)3 04727000 0043190 


T 
T 
' 
T 
T 
T 
04728000 7 O046!1 
04729000 T OOdMaty 
DISKWAIT( #1 530+ AA+W)3 04731000 tT 00500 
3 N C O4a732000 T OO54ah, 
$3 0a733000 T OQ057%3 
: 04734000 T Q061!0 
04735000 T 0062%3 
04736900 T 006332 
04736500 7 006610 
O473TOO0 + OOG7Ty 
04738000 T O068!2 
| Qa739000 T 007084 
DS:=7 FILL} 04740000 T 007083 
04741000 7 007433 
ee O4742000 Tt 0072%0 
OSTH800d. TF Q07293 
| SrZzes O074a. 
eo ee te ae 94999999. 000080. 
FORWARO 05607000 y 000080 


00080 


WORDS 


Data Documents/inc. 


5 5 yi B 5 3 2 : 5 x 53 


oor Oo OO F WH = 


START OF REL SeameNT? DISK 


PROCENURE LOGSPACECWP#L Ds & THIS MAY ZIP 


VALUE Wels NAME WZ INTEGER L3 &% FIRST WORDeWORD COUNT 
COMMENT THIS WILL CLOBBER WORDS AROUND THOSE LOGGED; 
BEGIN INTEGER BolTeJeKoNs ARRAY AL*)]5 LABEL OKF DEFINE Z=LOGFREESS 
NeL DIV 53  WNO REMAINDER ALLOWED 
At=(M(BItsGETSPACE( 302000)+2) 4830182 382140)3 
Ip Z>0 THEN SLEEPCIZ3],°0)3 ZenZ; 
$ SET OMIT = NOTCSHAREDISK) 
DISKWAIT( "8s 3022)3 : 
IF C1#ACO})+6eNn2¢J¢Al1)) THEN BEGIN ion Kel END %WRAP AROUND 
ELSE IF I+#N+100 GEQ@ J THEN 


8 GIN INOEP NDENTRUNNE RCPC LUGO 12128)3 
an Kieap a 
END | : ! : a. 
ELSE IF I<J DIV 2 AND y D +N THEN Ke3 % WA 


ELSE GO TO QK3 
STREAM(K 82K t,o JSaJseSPACE(3))3. 
i= +K3; G 
OS#e14 LIT"#LOG HALF FULL"; GO TO L3i 
bat = pSt#149 Lit® LOG FULL © sd LN"; gO TO L33 
"thy th " 


Lat OSts_iT%e"; 


ENDS 
P [) _ 
OK? ACOJENFIS ALII*K? ALS] Te L413 KWE NOW PUT THE wOROS IN 1 
eae on, END OF LOG 
MOD 63x53 SIZE. oF 4A RORHOOD (CNBO 


$ SET OMIT = NOTCSHAREDISK) 
Ip Clel DIV 6)40 THEN DISKWAIT(C 99 3002)3 *DUMP RECORD ZERO 
Ip J#0 THEN  % GET NBO 
BEGIN IF I40 THEN DISKWAITC*Bs 309241 );5 

MOVE CSO" Jaw INX Oo aA INK J) 


END 

ELSE Biaw INX O35 

OISKWAIT(Bs 30-241 )3 

If (Chev) GEQ@ 30 THEN 

BEGIN KESL*(U9s30" J) 413 
Ptsle1s 


DO : 
BEGIN DISKWAITC(W [NX Je TF K21020 THEN 1020 ELSE KeZe])3 
J335+10203 
Ls=y+343 


START OF REL SEqNENTS DISK 


05701000 
05701010 
05702000 
05702500 
05703000 
05703500 
05703699 


WS 7O4a4oo0 


05705000 
05706000 
05706300 


05706200 


05706300 


OS 707000. 


05708009 
05709000 
0% | ON0 
05710500 
05741000 
é Oo 
05712000 
Ma ete 
000 
OsFiso00 
035715190 
‘§€ 6000 
05716999 
05722000 
0 23000 


05724000 
05725000 


05726000 
05727000 
05728000 
05728100 


05728420 | 
cael ye 


05728460 
05728480 
05728200 
05728220 


ENO UNTIL (Kiek"1020) LEQ O3 
ENDs 
$ SET OMJT # NOTCSTATISTICS) 


FORGETSPACE(A)3 
$ SET OMIT = NOTCSHAREDISK ) 
Z3="Z3 
END OF LOGSPACE} 9 


DEFINE | Se ie ead ee ee 
MAXSIZ=C18s20l]#* TOMAXSIZ=1228320#, 
SPEED = (2383]#» TOSPEEDS 233455 3#> 
EUNE = C2itilas TOEUNP = 21: 47318, 
: TWR Té» TOSTARTWRDs261 368 128 
' » TE ENT #385384 1085 NUMENTa1O2 3a»: 
es 4 » TODS] BER 2% 283208 
DEND=(22t2e)#, TODEND=22t22t 264» 


05728240 
05728260 
05728299 
05729000 
05729199 
05729300 
ea sCatp 


os780000° 
05780010 
05780020 
05780025 


05780030 
05780040 © 
05780100. 


05780200 


ete nied arco 4-4 


ADDRESS = 90083 


ON00%0 
ADDRESS «# 
T 0000!0 

000080 
T O000%0 
T 0000!0 

00028 
T°. 000780 
YT 001180 

0011180 
r Qo12%2 
T 9001733 

002030 
T “boasts — 
tT O022%2 
Oo22%- 
T 9027%0 
T O027%2 

OO 10 
7 003210 
T OO034%4 

25 
T 0039%3 
rT OQO4O%y 

QOAO 
T O04444 
T O04642 

eyez! fy 
y O0049%3 
T ona 


33 
008at0 
005743 
0060! 
006130 
006253 


006583 
nee 


t-te 4 


007984 
0080%4 
00803 


7Es 0082. 
Qo00TO 
0000!0 
0000%O 
0000#0 
‘000080. 

000086 

900080 
eteTeren Ko) 


Data Documents/inc. 


£3 n 8 SoS OS oo 
aE. 3 3 i i a. a: 


TOSIZESA8398210% NEUFRlisBitlslds 
0 =4 tf, % Q RD FOR EACH ) CHANN 
— AVOLFFMIN@S15#>. AVOIFFMAX#50#+ % AVDIFFMAX GTR AVDIFFMIN GTR 1d, 
AVTMAX@ 39008» & MAX # WORDS MPCRED FOR AVAILABLE Miebick ON OFA. 
a i 13 KAO iM 8 é AT ? . 
a MIN AND MAX # WORDS To READ IN @ 1 TIM 
: ces GTR AVSMIN GTR 85° 


AVSMINS90 i> Ave uaeaGoa:s 


FUNERRATCRERANRATINFT QNRMAGE-PTMERNA YUSEF PEARBAYECUGEF ToaaRAYa® 
SPACE CE SSARBATS 2] 3SFIXARRAYSUTOSIZET# 3 


LIVE] TAH 


REAL PROCEDURE PETWSEADISK(NaT)A 


VALUE NeTs REAL NeT fF 


$ SET OMIT = NOTCSHAREDISK ) © 
At SLeePCCTOGLEI*USERDISKMASK)3 LUCKTOGg (USERDISKMASKD} 


: SET OMIT = NOT (SHARED ISK ) 


MitsM2s=P(0) 3 
$ POP OMIT 
LI*NEUP.NEUF 3 
IF. T b8s O THEN IF UluselF = GTR L THEN L41 ELSE *TJ]eMAXSIZ GEW NS 
— THEN: GO E ELSE IF 2 THEN GO c 3 
Br IF Utit. WAXSTZ2NS THEN 
BEGIN 
PCEUTLOCONTIF eld +E UIOFFSET )tPEUIOLCNTI Joe NT2eSNDsUUP) 3 
IF P LSS My THEN BEGIN MyteNTas HIEENTL END 3 
- TFOP 48s Ne THEN IF ULL) SPEEDS THEN Beary M2tanT2s yt antl ENDs 
END: 
IF CI$31+1) ‘LEG L THEN GO Bo 
IF P(CD)#M1 THEN 
BEGIN 
PF MasMe raPCD) THEN. IF @ ANDO TKO, THEN 


CERT Ee ss 


JtzJe13 


START an REL SEGMENT DISK 


05780300 
7 


05780400 


G57 8050 


05780600 
05780605 


05780700. 


05760800 


O5SR00H00 


0§839400 


06842205 | 
05842300 
05642390 


05842410 
05842414 


05842450 
05842475. 


05842500 
05842700 
05842800 
05842900 


05842930 


09843000 
05843:00 
05843200 
05843300 
05843400 


piste: 


“aseas0o 


T 


Te 
T 
T 
T 


444 


T 


4+ 


eS 


ht et ae 4 a a et i 4 ot HH 


oo0oto 


oo00%0 
(00001 


maeverete® ste 


000080 
Q000%0O 


000010 
ae 


ANI) T 
3 "GETUSERDISK WIL ayo OR THE ABSOLUTE DIsk SEGERT ADDRESS nee Galera” apheio 
% THE RESULTANT 4 R el2tild Fo THE ae 1 AND N,C231] FOR THE 0, 05839800 r 000080. 
% 720 3> 7 JS A PREFERRED SPEEDS! Talo2ederdegss “OR' 31s 05840000 7% Oo008s 
& 1<0 3? oT IS a PREFERRED EU#! CECE eee OR "20, 05840100 T O000tO 
% 730 => DONT CARE ABOUT SPEED# UR EUts USE EU WITH LEAST EU Ise 05840200 y O000%0 
& T,.C2!1)21 => IF CANT GET PREFERRED SPEEDe OR FUs* RETURN @1 05840300 000080 
% Telotiis0 => JF CANT GET PREFERRED SPEED# OR EUR, PASAT AS TxQ CABOQVE) 03840400 T --0000%0 
% N>O0 #> MAKE A aaa tala alae 05840500 T 000040 
* N€C @> PONT. MAKE A SCR H TR _ 0 0400 T OO0OI0O 
% N= =Q => IMMEDIATELY REA WITH A - 05840700 u 0000%0 
: ae QO => IF CANT FIND ANY YVSERDISK* AND T. San a NOTUSER*HISK, 05840800 000010 
NelC2sij)st => IF CANT FIND ANY YSEROISK» AND relent =O, RETURN Q, 05840900 : Qaoato 
. BE GIN 06841200 000080 
INTEGER Kate % K Is ALSO "GETUSERDISK™s DONT. use K ABOVE LABEL D, 058 dente 000080 
Jc Zak ele NSae 2 SNQ¢)e oo 4: O00010 
$ SET OMIT « NOT CSHAREDISK ) 05881380 000030 
$ SET OMJT & SHAREDISK 05841610 0Q00!0 
R=l+l, aVSske SAVS+ =NTO zAVS 3 058 00008 

REAL. MLSNTSe NaaNnT ys” ARRAY. UTautiteys “DEF INE UBAVTABLE #3 05841620 

$ POP OMIT. 05841621 

LABEL AsBrCoBrE oF sGoW. 3 ae 05841650 

DEFINE GETUSERDISKFPETUSE RDI SKE 54 ecard eRe Kee KH REAa 05841700 

IF N=0 THEN GO w 3 05842100 

PcTsC2t1IsABS(N) 9420902090) § 05842200 


000980 
Oo10ty 


002033 
0021%4 
002483 
0027S 4 
00342. 

003433 
0034%0 
00343 


» OO3514— 


0036%4 


004180 


Data Documents/inc. 


. . * . F 5 7 G ; a a 5 Th 55 aa » = Ky 


END 3 05843900 T 004381 (|e 
ZeTRK G6 3 058 950 00 8 
1 IF Nsl2th] THEN GO G 3. 05844000 r 006011 
al $ SET omy T - NOTCSHAREDISK ) ere . 05844080 T 004513 
_ MAREDIS« eee QOS8a6090 Tt 004% 
4 FARRAYCUTSRD SO)? USERD ISKSPECTALCASEC1=]eRoUTONS)I GO A 3 05844110 
s $ POP OMIT pegeeit) 
6 77 73 
7 $ SET OMIT & NOT (SHAREDISN ; ee ae oeaekeso tT aeReie 
8 s SET OMIT @ SHAREDISK ° ee eee CSB GS0E8 T GO5ato 
9 kt SSR CKPECTIRBUC SD CAND NUMENTM Se7 $e(ZESUC I) STARTWRD) MOD Moo 58449 fr. OoSato 
jo 30) NE@ 0 THEN AVS$8=30"AVS3 AVSS@AVS4K3 PCM2) . anesaces T 005833 
be FIXARRAYCUTsRsAVS)§ DISKWALTC(™ROAVSsZeZ DIV 30¢USERDISKBOTTOM) 3 05844930 T 0063!2 
h2 MoieP P Kel _N 2t=0} N Jiekts sMAX S 058 493 00703 
ae ner —- § ROP OMTT oo oo 05844936 7 OO7At3. 
4 : Ftp CNT LeUTCD 1408126 92NT2 THEN: tr LK TREN NTaeNTs: ELSE Kba0 i O5845000 T O07413 
5 i IF NTi2NS THEN IF NTLi<M2 THEN BEGIN MoeNTUS. Wel END 3 03645300 T O080!. 
6 “IF P(DUP) GTR li3]+1 THEN GOF 3 05845200 T 008439 
7 UTCHI,OSIZEeNSeM2=NS 3 05845300 T 008633 
8 If Mit@M2=NT3 THEN UCY)MAXSIZtale NT2>NS THEN NT2 ELSE NS 3 es 05845400 T 00903 
9 GETUSEROISK*UTCHI«DEND@=M23 Liap a 05845500 T 009612 
¢ SET OMIT *. NOTCSHAREDISK ) — ; 05845590 7 009940 
1 TF N@NSs0 THEN BEGIN MOVECI*Hs LE TEHSIII,CUTCHIIISUC JD eNUMENT* TTIENDS 056845700 0099450 
SET OM]T = NOTC(SHAREDISK ) 05845790 T 040683 
$ SET OMIT = SHAREDISK 05846350 7 040683 
C SKWAITCR* AVS22) 3 : _ 05846360 T 0406! 
$ POP OMIT eS re 05846361 T 040830 
$ SET OMIT =. NOT ¢SHAREDI SK ) . 03846370 T 0730840 
8 “a SHARED! (SK: H : : i 4) A638 $] OALO 


FORGETSPACE(A) ; . 05846390 
UNLOCKTOGCUSERDISKMASK ); 05846395 
Pop OMyT 846396 
Wa END OF GETUSEROISK a 05846500 1 ateeit 


vsize® Oita wORDS 
PROCEDURE FORGE TUSERDISKC ASN) S 0. Qg00to. 


58. 60 
START OF REL SE-RMENTS DISK 


% A IS THE ABSOLUTE DISK SEGMENT ADDRESS OF AN AREA N SEGMENTS LONG 05846800 
% WHICH IS TO BE MADE AVAILABLE AGAINe 05846900 0 
% NeO => MAKE A SCRATCHDIRECTORY DELETION, 05847000 T 00080 
% N>O0 ®> DONT MAKE A. SCHR ATHOTRECTORY, DELETLON, 7 °° 95847100 7. O0000FO 
| % Na0 => IMMEDIATELY GO AWAY 3 05847200. 000080 
NG BEGIN . 05847400 T 000080 
xa) $ SET OMIT = NOTCSHAREDISK ) 05847490 T O0000!%0 
$ SET OMIT = SHAREDISK 7 05847590 T 000080 
"ENTEGER AVSsF aAVS) ARRAY uTl+d} DEFINE UsAVTABLE 43 05847600 7 000040 
$ POP OMIT 05847601 T 000080 
REAL E3 INTEGER. By CoD» Ps se HENT7 KeNTO LENTS eGenT4eTBNT3sQsJUNKs 05847700 000010 
LABEL VeWsXeYoZeAZeBZeCleDZ 3 05847800 T O000!0 
SUBROUTINE SETSHIFT 3 05847900 Tt 0000!0 
BEGIN 2 05848000 T 0004!0 
StaPCxch)y 3. a 05848100. T O001t0 © 
$ SET NETS s NOTE SHAREDIS ee oe aes cape ei ee ft 000183 
$ SET OMIT & SHAREDISK _ eae = ee 05848250 00043 
UCU). STARTWRDtel¢S) Gt=Des 3 05848255 T 000133 


$ POP OMIT . 05848256 T 00060 
’ 05848300 000640 


woe [i ee 05848500 T O007I3 
Oty 1000000). see NEUP NEUF Ht Sagas os ~~ 08848900 7, OQO0ETO  — 
BKOOT. %} HEN GO.Bd: 2. ORR a9HO0O Yom Bee wre 


“SLEEP(CTOGLEI> USEROISKMASK)} LOCKTOGCUSERDISKMASK): Qsma200R 1 Aarabeiiol ca. 


Data Documents/Inc. 


$ SET OMIT = NOTCSHAREOISK ) 05849390 002180 @ 

[e_(DisyC0),MAXSIZ) NEQ O ANON GTR O THEN IF CTWOCJ) ANO 0) NEQ 05849420 7 002110 

or ; CTALCASEC3eNoUeK)3 IF NOT P THEN GO DZ END 3 05849460 7 002513 

: ee oR ee Mae 05649480 T 00299%¢ > © /@ 
05849500 T 0030!>7 , 

09849590 T 0033%2 

05850105 


=" 


tt 


$ SET ONT = ‘NOT CSRAREUISK ) 
$ SET OMIT = SHAREDISK 
AVS$=30"(St=(C#2E— AND 
of DEABEAY GRR YSOE 
‘St ; 


UMENTM)4p) MOD 3049 3; 
SDL SRRATT CARS AF gre EST DIv Jo*USERDISKBOTTOM) 3 


Kissy. 05850130 |@ 
Pop OM : 9 
ae NTS Fa (Olas 4 DOR) ANG NUMENTM) @P(XCH) » “STARTHRD) 3 03850500 T 004733 U 
SeULJ#L]eSTARTWRO-S3 HekeKals IF UTET#L]¢DEND2ZA THEN GO x 3 — 05850300 T 005230 |@ 
OV 2] DENDZA THEN JF UT(HeT#q) ches THEN GO W ELSE 05850400 T 005883 | 
}DENDKA | BEGIN LeT#13 GO W END 05850500 Tt 0065!%1 ein 
NDWP(XCH), Bsize THEN GO a 05650600 7. 0072 13 W@ 
Wc eas ee ee EN aS Os 8 0: 00. Oo rts il 
BEGIN | 05850800 7 ura 
$ SET OMIT = NOTC(SHAREDISK ) eae ae T OO079%2 \@ 
$ SET UMI[T = SHAREDISK 9 00793 19 
"TR GRO OR pFO THEN GO YF IF PCCG+II DIV 2p PY>p THEN PCpEL?o EERE Y OOT9t2 ‘9 
$ POP OMIT | 05851221 T 008510 — cy @ 
bt ssn) sSETSH IF TSMOVE | Ce LUT. GuS))+ UT g1])ATeQeT 483 - . 05851300 T  0085%0 21 
END 3 05851400 T 009084 7 
FOR HeK STEP “4 UNTIL T 00 UTCH+1]¢UTCHI]$ HeABS(N)S GO AZ 3 05851500 T 009084 21 @ 
4 Ys USERDISKSPECIALCADEC2*E2UT#y) 3 05851600 T 0096! 24 
ene $ SET ot 3 NOT (SHARED SK ) : 05851650 T OO9Bt2 | 25 
bd 60 05851675 T O098t2 2 @ 
Ps Zz: IF PC TTCO+G+13/CUP)« DEND*P.CXCH), DSIZESL: THEN GO 05851700. 009916 2 
Ps ur PCUTENT1#=Q"11,DEND»pUP) LSS L THEN PcpeleLl) 05851800 T 010384 a 
3} =(Lt=P)=CIF A LSS H THEN A ELSE H) & 05851850 7 0107!0 2 @ 
80} NT1 GTR T THEN MOV tie NT1* CUT CGI I» UTET+1])) § ae 05853900 T 041082 a 
aa (AE VIETE SE 0 3; Ce . oh 05852000 7 011483 a1 
By a | MAX. ELSE T THEN IF yay 05852100 T 011933 ro @ 
al : t AVDIFFMAX ELSE T) THEN Go Y 05852200 7 042593 
ELSE BEGIN . _ 05852300 T O4133%1 
a IF (NTIfFS17K)20 THEN GU Y3 | 05852350 T 043280 1@ 
pe IF PCCS+G) DIV 2,0UP) GTR NTL THEN PCOEL»NT1)3SETSHIFTS 05852400 se 
B FOR NTiek STEP @1 UNTIL G 0 UTCENTLIeUTEONT{*S] 3 ~. 05852500 . le 


: ENQ 3 05652600 
U JIe(NTLOU EID) ECLTONUMENTI QCIF. EeCNTLENTI MAXS12)<H THEN H ELSE oo 58582700 
NTLICTOMAXSIZ]) 3 05852800 
SET OMyT = NOTCSHAREDISK ) . 05852890 
SET OM]T = SHAREDISK 05853420 
DISKWAITCR*AVS*B) $0 05853425 
ROP OMIT : . 05853426 | 
“$ SET OMIT = NOTCSHAREDISK ) & 08853490 7 45 
$ “SET OMT = SHAREDISK 05853593 : 
FCRGETSPACE(R) 3 05853595 «| 
ozs UNLOCKTOG(USERDISKMASK ) 5 05853600 01593 48 
$ PCP OMIT | a a | 05853601. 57iy as 
pe END.OF. PORGeTUSEROIS® oe ee _ _— 05853700 T 1@ 


A: 


~4 lH 4 ay 4 


ELECHT rT 000080 | s 
STaRT OF REL SER MENTS DISK ADDRESS = sy @ 
95030 


05950800 T 


Data Documents/inc. 


5 * 0 a . rf n S. eS SS ~ ~. 


TMIDSFID+l1> 
[d=TmMiot+is 
ASTFIDels | -- 
BEASEF 
TEGER N=B413 
ARRAY MUEN+10*I5 
BOOLEAN ROT=HD+14 
INTEGER C=RNT+1,02C+1,1= D+1, 
CABS4+,eSAanTas 


REAL KTR=83 
REAL TYPESC3 
REAL WORDS0} 


REAL HAsJ3 - 


ips MEADER=BS 


vs I+1,Re chew! SeR+1, 


 HeNT Zp KENTOsL ENTS »G= NT4, TENTS, QS UUNKS 
REAL ESLA+13 


Ter EAN FILTOGEE*T 
REAL SEGS=FILTOG+13 

T_OMIT = SHAREUISK 
ARRAY UTsHD( #13 INTEGER AVSSSEGS+13 DEFINE UsAVTABLES; 
INTEGER SLEEPERSAVS413 


$ SET UMIT = NOTC(SHARECISK) 
LABEL VeWsXrYode ule Ble CZs INUSE*EXIT; 


I OF I NE 


$ SET OMIT # NOTC(SHAREDISK) 


LO 


REAL SUBROUTINE DECWORDS 
FY N ess ae ; 
STREAM(T«O0tWe( WORD] D3 
BEGIN 

Siews Dei 0 ;_D 
END STREAM; ae 
NECWHORD Ps 
END DECWORD;. 
SUBROUTINE SCANs 
BEGIN 


a, 


$¢8ap 


STREAM KTR» TYPECOtTeOsNe[WORDI D3 


BEGIN 
S$ 1eKTRS 
| SCa"-" THEN B 
IF SCa""* THER 
BEGIN 


EGIN SIeSf+13 GO 103 


% STRING IDENTIFIER 


ND} 


SleSI+13 OS¢LIT"0"S 
IF Sczeen THEN : 


BEGIN: 


bi 


: _ Sy*#SI413 ae 9 
IF scanner 


DS¢oLIT™ “5 


END ELSE 


THEN DS*CHR ELSE DS*LIT™ "5 


TUF Scanne THEN. OS*CHR ELSE DSeLIT ")5 


“Sc#°"" THEN BEGIN SleSI#13 
Slesiels 


CRALPHA THEN 
nk «LT BWP 


IF Sc ss. unge, THEN 
-& TOENTIFIER 


GO Lis 


END} 


05950900 T O000!t0 
059509 , OO00!?0 
05951000 T O000%0 
G595¢200 T 000010 
9 00: O000t0 
Tea tT 0000%0 
05951700 T C000%0 
95951800 0000:0 
05951900 T 9000%0 
05952000 T. 000040 
65952200 - 000080 
05952210 T 00000 
05952220 T 0000%0 
0595 0 000020 
05952240 7 oo0otO: 
ea aades 7 “O000t0 
f): Oo: fepeleven aed 
05952270 y OQgdcto 
05952300 T O000%O 
0595 99 Q0002O 
05952400 Tt d000%0 
05952500 T 000030 
ORY é POOH 3 
05952505 T 0000!0 
05952600 T 0000%0 
05952620 000030 
05952690 T 000080 
08952705 7, 0000!0 
US 9:5: 6 GOO 6 
05952715 T 0001380 
05952720 T OaQd2et4 
059 00023 
05992730 T Go03tO 
05952735 T 000344 
05952740 Oo03%¢ 
05952745 T 000323 
05952750 tT 000480 
05952755 Q004%o 
05952760 7 000543 
05952765 7 000583 
05952770 000640 
05952775 T 0007806 
05952780 YT Q007?%a 
059 85 00073 
05952790 7 OO08t, 
05952795 tr 900883 
05952800 7 0008! 
05952805 7 000910 
05952810 T 9010%2 
059528 0011! 
05952820 T O013%3 
os9s2e25 1 O01tts 
05982930 
05952835 T EE 
05952840 fT 001580 
05952845 T 001540 
05952850 7 001541 
05952855 fT 00154) | 
-05982800 7... 00164 
05952865 T 0016!4 


Data Documents/inc. 


a 7 ae cy a Ry 3 5 3 ~ 
5 op 2 oS & oh 2 


Cee 


CD MLOGITs 05953055 


SUBROUTINE ENTERFILES oe. ; 05953060. 


BEGIN : 05953065 
FIXARRAYCHD2Bs30)3 ; 05953070 
MOVEC30*HD*1l5HD)3 05953075 
HDCO0]*©@36000360001013 05953989 
SE UAE: RL heen INX 3)3 05953085 

; 05953090 


St#LO¢ DATES pSesacTs oe , 05953095 


O1eple20; SreS1+43 OSe4CHR; { 
DyeDy"73 SyTeHs Syesy+53 DS 3CHR 05953105 
DI¢Hs OSe2LiTreens SleS1"35 OSe€3CHR3 05953110 
END STREAMS 
317] 


LE NO 
HOLTIECHDEBI¢NI= CHOLES I¢1 D5 ae 05953120 
HOCIQOJ+As ‘ 
ENTERUSERFILECMI DoF ID. [Os42)sB=1)3 05953130 
STREAM(MIDoFIDsNs TMIDs TF IOsFILTOGs 05953135 
oaths FILTOG THEN 8 aa eee 05953140 


7CIF SCSALPHA THEN DS*CHR ELSE DS*LIT™ ")3 05952870 T 001633 
L2’ F_SC2ALPHA THEN B N Sleslo1; Go END; 05952875 00183 
Tit ee TALLY@15 a Bee | 05952880 7 001983 
- ; wa Nae Et ha ee eH ospsaees F DGR0 te 
END} p52an90 © OO20t; | 
IF SC#ALPKA THEN If ny; LEQ "9" THEN 05952895 Tr 002084 
BEGIN. . & NUMBER 05952900 T 002184 
SleSI+ ALL Ye 05952905 1 00213 
7CIF SC=ALPHA THEN If Se LSS "0" THEN 05952910 7 002193 
BEGIN TOTALLY: SiesteTi MUAE OUT TO ID3 END 05952915 7: Ooe3t0 
ee @ "9" THEN . 08952920 7. 002048 
BEGIN stesi+1) TALLY*TALLY #13 END)3 05952925 7 ary: 
TeTALLYS SyeSIl*T3 DSeT OCT; 05952930 T 002583 
—_lALLY*23 cas 05952935 Q02730 
‘ENO; OG Ga ERC SP Nee Peal 05952945 T 002742 
IF. 8 THEN TALLY «3 ELSE TALLY¢53 _ 05952950 00274 
US*7 LITO"; DSeCHR3 05952955 T 002883 
EXT: TYPE *TALL YS 05952960 T OY3Z03y 
i #9 ]3 35 06 CROR# 
END STREAMS Oo aga : ouentene T 003083 
Pes TYPE*STor, KTReSTDD: ee 059529785 T 003140 
AWS O59! 60 okt 
SUBROUTINE MEOGINS 05952985 T O032%4 
ana 05952990 7 O633t0 
“TSPACE (15990) 423 05952995 T 0033%0 
sei atarbelarweeet is 05953000 T 0035%4 
BEGIN — to eae Pa Ose a00s T OG37%4 
Ste. 0c Males n5e¢8 UCT: DlefleAe he Ye T0037! 
SI*Bs . ere T 003830 
2CO3CIF Sc#"e™" THEN OS*CHR ELSE JUMP gUT 2 To LL));3 05953020 T 003884 
DS ¢ “e"; OfeNlw@ls 8eDTG a, 0595; } OO41 0 
END. STREAMS es ess Oe & 05953030 T. 004230 
LAe . INX OF i oe eee es pe G5vs7045 tT O042%y 
rLA™S?) pV east 9530 0043! 
MCS+21¢IF FILTOG THEN =N ELSE SEGSs osgea04as T 004583 
LINKUP(169S)3 0595305C T Od049to2 


0050! 
0050%3 
005140 
OO5i%0 


‘p0e7ty 


0071440 


Data Documents/inc. 


a 5 e * y n * A oS ry 5s Tk 3 ES 53 ~. 


ENDS” 


OS*LIT"/"3 STeSI+14) OS*7CHR} 
OS¢6LIT" SEGS="5 CS¢8CHRS OS¢SLIT" CREATED"S 
FILTOGCOS*6LIT". FROM "3 SteSTo13. psereeee: 
a ST+h Iss DSe7 CHRIS” 
Deel TM ets 
END STREAM} 
IF FILTOG THEN 


Saar 
SPOUT (B DE 
FURGETSPACE(A)5 

ERD Sede Be 


oe es FleO THENS MAKE RESERVE/DISK 
“BEGIN MID#="RESERVEN} FIDss"OISK "3 


IF APSO LAE GTOR SEAR CHC ADCE TDAP I IEG THEN 
. "RE AMCB 
“pstea0k tT". RESERVE/ DISK ALREADY PRESENT"; 
GO TO EXITS eh 


Nps S 
IF CA©GETUSERDISK( (NeRESERVEDISKSIZE)@1L2!47#1})) 20 THEN 
BEGIN STREAM(BLFF)3 
OStzF2L[ Teun SERVE/DISKe | 
60 TO EXxXITT# =: eee “ag 
OENDR OS 


IF RDT THEN 


BEGIN P(B)s AtSMUBUFF _INX O34 Ne=MCQUFF_INX 1)7 ENO ELSE 


TMID@WORDS 
SCANS IF WORDsN/" 


SCANS IF NOTCTYPES] ar TYPES2): THEN, GO. EXITS 
TFIOCIF TYPES2 THEN DECWORD ELSE WORDS 
FILTOG+TRUES 
SCAN3 

ENDS 

IF TYPEs2 ae he, BUEREr 


aalsche 


~ heWORDS 


SCAN3 
IF TYPE=3 THEN IF wORD="/" THEN 


BEGIN 


PREDEDEC WO sROL 
ILE tps 

END ELSE SCAN3 

IF TYPE#2 THEN NeWORD3 


IF A#O THEN 


05953165 T 
05953170 

05953175 7 
05953180 T 


05953190 T 
pat Oa T 


05953205 T 


05953210 T- 
ogee agt0. 7 


05953220. T 
05953225 T 
059 40 


Att) 
05953600 T 
05953300 T 
05954900 
05954200 T 
05954400 7 
OS95 4400 
05954800 T 
peeeeoce T 


05955400 T 
05955600. T 


O5956000 7 
05956250 + 
05956300 7 


05956500 T 
Greece. is 
059566 


oaanesse ar 
05956700 7 
05956750 T 
059564900 T 
05956850 T 
05956900 T 
05956950 7 


05957000 T 
05957050 7 


05957400 T 
05957150 T 


09987450 7 
05957450 T 


“absteees 


gnPe7a8o T 


008133 
00823 


008544 


ooa7ty 


008980 
0089! 


saeehe” 


009140 
eee 


0094383 
Q 


; Bice i) 


0103382 

010582 
010836 
009% 
011332 
ba: 620 
0116!0 
O1sste2 


Goats 
o127ta 


O1e7t2 


012732 
9) 27 t3 


Orgat3 
ere 


Tareeh 
0138914 
O14it: 

014524 
014630 
014780 
014730 

044733 
014930 
015030 


_91g4t0 


015630 


016244 


Data Documents/inc. 


. n a oh Th » gy 53 3 


BEGIN 
REAMCAsDis{FIOI)3 
BEGIN SIts_oc A} DSt36 DEC END; 
IF CoeeA O1V<7000000) GEG. NEUP »NEUF oR a LSS DIRECTGRYTOP+4- THEN 
Vi BEGIN STREAMCE ID BUFF 23 
BEGIN DS:=2eLIT"™ INVALID DISK ADDRESS "3 
Stise de FIOS DStF8CHRs DSt=L ITE"; 
=01"935 Os ts? FILLS 


ENDS 
GO TO EXITS. 


Ne Se tell Ses Tr Berea at cre a a 
IF WA] TIOCEFIDIINX@100000000€64184F 1p sl 541))s (42'4) THEN Go TU V3 
IF (ResFID-£12:6)) GEQ 29 THEN & CHECK FOR 40 MIL ADDRESS 

F_NOT WA T DIFNX 1400000002 64s 48ser[oe(5ii) 43:1] 


To -V ELSE TF. oo (Gee 4 THEN GO TO v3% INV ADD 


a. 
W 
¢ 


ENDS ns Bee : 
IF A®O THEN. GO EXITS. 
SLEEPCCTOGLE J ,USERDISKMASK)S LOCKTOGCUSERDISKMASK)3 


&$ SET OM =_ NOT SH AREDISK) ree 
dedels 
BZ: br c1t3cEtsurd]) eSTARTWRD) MQD 303 


$ SET OMIT = NOTCSHAREDISK) a 2 
$ SET OMIT = SHAREDISK 
AVSt=30"(S#S(C8=L AND NUMENTM) 40 )MQD 30453 
FIXARRAY(UTsR AVS) 3 PISKWAL Tchr AV Se te] Oly 3Q+USERDISKBOTTOMIS 

K3aS3 Leos Sse T+c3 
$ POP OMIT. 
es To CNTore¢P u Y™1]9 DUP) AND NUMENTM) +P CXCH), STARTWRD23 
StzULJ+1],STARTWRD@=S3 Hiskiak-1; IF UTCT& sh), DEND GTR A THEN GU Xs 
IF UTcTeCH+h +1) UV 27,0END > A THEN JF UlCHeT"14],0END > A THEN GO ww 
ELSE ELSE IF UTCTeT+1).CEND $ A THEN BEGIN LeT+15 GO W ENDS 
IF A GEG Les(HrsuTcT (SDENDI*CQRSUTLTI OSITZE) THEN 
IF CLAteCAtND) LEG MH THEN GO AZZAREA AVAILABLE 
ELSE IF LA LEQ SAzgesCUTCT 4+ ,) ¢«DEND*UTECT44),0SI2E) THEN 
NI=LATATZFH ELSE NiFSAL* ASEH ELSE IF CLASSAtN) GTR | THEN 
Nt=Le*A ELSE RDOTS=ROT OR 1000003 
Gc {NUSES 
Y: -TMIOs@eIF ROT THEN "OKTEST “ ELSE "BADISK "3 
$ SET OMYT # NOTCDKBNODFX aNp NOT pFxX) 
STREAMCTMIDsFIDsNs MIDS Be BUFF 23 es 
BEGIN OStsLyT “*.°s SpesLOc TMIDS SyssSyeois DSt=7 CHR} 
OSt=LIT "4" STteS14135 USte? CHR; 
083313 LIT " NOT CREATEUC"™S Slttal ee? 
IF Sp THEN ELSE 
BEGIN SIlset0¢ NS DSte?7 DEC} NieDI3 Olss01-73 DSts7 FILL 

OV!2N3 pSre5 LIT " SeEgs"; 
END} DSt=l1 LIT" IN US BY "3; DS3=7 CHRS DStsLIT"s";3 
STtsSIei3 DSt=7 CHRS 
OSts2 LIT" )¢"; 


Ws 


X3 


SKIP SBs 


~ ENDS 
FORGETSPACE(B)# 
GO EXITS 


* SEARCH THE DIREC ORY Te FING HE NAME OF TRE CONFLICTING 
% FILEs SINCE USERDISK REMAINS LOCKED» DISK ALLOCATION 
& CANNOT CHANGE, HENCE* THE DIRECTORY NEED Not BE LUCKED. 


oe 2 ese & 


a 


"BEGIN ECT TREE PECEM 


05957750 T 


05988800 T 


05959000 


8989300 


016310 
() 2 
O16ato 
Pts 


05959800 T 
05959600 T 
05959800 7 
05960000 


YAU400 | 
02960600 
05960650 
05960660 


05960670 T 
05960675 . 


9404 $ 


dee s0ans T 
05960700 + 


05960800 T 
05961000 T 
0596100 


05962600 

05962700 
059462800 
05962900 
05963000 
05963;00 
05963800. 
08963809 
08964000 
05964200 
05964400 
05964500 
08964600. 
05964800 


et le st tle ls ey 


05965900 T 
05965200 T 
05965400 T 


05966100 T 


05966200 T 


05966210 T 
Goo eeces T 


T 
05960200 T 
T 
T 


05965600 T O279t0 


Biaoie 
0173382 
é 


01750” 
ie 


O17710 
018140 
0182! 

Ole6t2 


019529 


019633 


0199! 


05961199 T O199%3 
05961200 T 049983 
05961400 T O20419 
05961600 Oziits 
reas ed: 021480 

800 O214t0 
Eee Oz16ty 
05962200 022580 
05962400 023132 


023943 
0244h0 
Q “Hes 
025140 
025733 
026434 
0263130 


026581 


S1ssS 1013 05964900 T 027410 


0275312 
027880 
0278390 


O27oty 


058966310 T 028010 


05967200 T 


0283!0 


028350 
eee 


0292t0 


FOR It=14 STEP ©4 UNTIL O 00 05967400 029382 € 
A N ssUTL 450+ xJ)3 05947400 1295.10 
IFCE EQV @114)8NOT © THEN 05967600 + O297 
BEGIN ht "7p BtaeIDG GO Zs ENDS 05967900 T 
k@ NEQ@ NO ) TIMER Bek 
BEGIN B&=UT(30x[ +9) AND 343 05968200 
FOR Kts1 STEP 4 UNTIL B DO 05968400 
IF (C8#uT(30x14+94KI)NEQ O THEN 05968600 
olf a GEQ C THEN IF A LSS | 05968800 T 0 
 SALIE COD ESUTEI0x148)) THEN. 
ee BEGIN MIDiseg( (LA LEQ SAL). AND 
ho . CROT,C18815)99C13478195 


_" 


ono ~ mom AF &® WH = 


RET 


i IF A#N GTR SA1 THEN NeSatma; 059691450 032080 
2 utSU) 05969300 : 


ENDS ie o 


: ; : ¥GOY 8 33 Aa. 
é END} | 05970000 T 032783 
: ene 05970200 T 033040 
a Zoe tate 05970300 Q 0% 
: $ SET OMIT. = NOT SHAREDISK 0597039017. Oa30%2 
po UNL OCKTOGCUSERDISKMASK )} 05970500 T 033082. 
bY ned VSS FO0G600 KE Wee 
p2 AZ? IF A NEQ L AND LA NEQ fh THEN 05970800 0334%92 
a BEGIN IF S=0 THEN 05971000 033614 

@. WP $ SET OMJT = NOTC(SHAREDISK) 05971005 0 ' 

5 $ SET OMIT = SHAREDISK | ee : 7 Oee7 109s tT Oaarie 

5 BEGIN IF G=0 OR Deo THEN poy iy ono71s00: 

5 BEGIN USEROISKSPECIALCASE(2/EeUT»y)s GO To B2 ENE 05971400. 

§ St™IF PCCG+4) DIV 2eDUP) > D THEN P(DEL»D) ELSE P3 05971600 1 O34ato 

3 T 

a 


pe a eag dat GtSD"Ss Kt=G4c"13 05971800 034682 


$ PCP OMIT 


05972400 7 
05972600. 
05972800 
05973000 
oe 05973100. O036ato . 
END ELSE ue PEER a, 05973200 tT 036983 
IF Ast AND LaeH THEN. oe 05973400 7 0369383 


EOE ESTER SL UNTIL, 
UTET#1]=H&CH@LA)CTODSIZED3 
CsCeli 


BEGIN C8®C"13 MCVECK= Tr (UTET#i II CUTETII 93 Ktehe Jl END 05973600 T 037280 
ELSE UT£T]s=C1F Asl THEN H ELSE A)&(Q"NICTODSIZEI3 05973800 T 037889 


1 NUMENT?3C3 04974000 03833 
Tf QsUCU),MAXSIZ THEN fre 09974200 038533 
BEGIN bier Sahar eas . 05974400 7 038784 
Hish ST K po eee TROT AADG a DeBEE. 
IF PCUTLH], DS1ZE»0UP) GTR Q THEN GreP ELSE PCDEL D3 05974800 | 039230 
UCJIMAXSIZ%=Q;5 ee oeae 
ND O%9 1 
one "wIOMEIF ROT THEN "DKTEST " ELSE. oe a 08975400 +. 0 

$ ea ‘OMIT. = NOTCOKBNODFX AND Ba Baek ; 2 By Be of 05975404 

OM]T = NOTCSHAREDISK eS S : 0 

$ Ts OMIT = SHAREDISK 


peo recas 


DISKWALTCR*AVS#8)3 : 05975600 T O4d2to 
Por Q 259 


GO EXIT; 


° . * a * OS x. Ry = x. 
> & o & oD a 


YS SA. oF: Bees 
05975640 T O409%O 


Data Documents/Inc. 


* g Ce, a zy a o - 


XOFILE$ 
oH AQ Ris REC OB) -ARCH DeNFLAGC@TFIO OR M)e4 35 64 
- “TYPECAHEADERS | 
30 MSG; 
ENDs 


HACHEADERS (FFI 
HDR*[MCHEAOER*HEADER INx O01) @ 30(813811015 


MID@="BADISK. "3. 

SeHOR(SI3 *% SEGMENTS PER ROW 
, AZO THEN” 

BEGIN 


FOR L*HDR(9] STEP ©1 UNTIL 1 00 
R +91)#0 THEN 
AND A LSS LAtS THEN & FOUND ROW 
‘S$ THEN GQ FOUND ELSE GO CONFLICTS 


IF FALSE THEN 


BEGIN | 
CONFLICTS LYPE¢33 
ell y FEGSSASNS LATS 
ENDS. a : 
HEADERUNLOC 
GO MSG; 
FOUND: 
HORE IT +9 ]¢0; oe 
S DISKWAITCHEAGERD 30,HA)? 
yF eee GTR 0. THEN FORGETUSERDISK(4.A0 191 
pe rep ASSa (CL AGASND) GTR OO THEN. ETUSERDI SK A = 
$ “SET OMtT = NOTCDOKBNODFX AND NOT pFX) 
ENTERFILES 
NIS Oo ea 
END; 


ue stgSe0) a Ee 
oo : aa: 

IF CEHDEETSo})F0" THEN 

BEGIN 


HDREI+91¢03 
DISKWATTCHEADER*® 300HA); 

WORD*AS. FEDS PRENORDA 
M 


BS SE SERRE SR ESBERSESEESE 


ENTERFILES 
SEGSe¢SEGS+Ns 
END? 
FINISs 2 
“FORGETSPACECHEADER)5* 
PDIRECTORYSEARCH(*TML0sTFI0*6)s0EL)5 
TYPES} 
MSG! 
STREAM CIM TDs TE LO? SE Gor Al CPEs Burr 


05976350 


been na 


BEGIN 
“S1*L0¢ SEGS): pIeLoc SEGS3 pS¢snEcs DS*8DECs 


“DIeLoc SEGSs OS*SFILLS DI*LOC as DS*8 FILLS DIeBUFF Ss 


DSeLIT","3 TeLOC TM IDE SleS1+13 DS«7CHR: 
DSeLIT"/"s STeSI413 OSe¢7CHR 
OS+11 LIT” aot xDPEO C2 


05975700 
059 
05975900 


0$975a50. 
05975000. 


05975950 
05976000 
05976050 
05976100 


05976450 


05976200 
05976250 
05976300 


05976350 
05976600 
05976650 


05976700. 


05976750 
059768 


T 


io 


+4 HAasae 


+4 2 Se 


05976850 T 
0§976900 T 


05977900 


05977050. 


Q Mt Of 
05977124 
05977150 

. OQ 


05977250 


05977400 
05977450 
0 


Aer EG. 


05977700 
05977750 


Qs 977900 
05977950 
05978000 
05978050 
05978100 
., 05978150 

O5978200 


05978250 
05978300 


esate. 50 


05978550 


USOT ESO: 


4-4 


4-4 


+4 4 -—+-+ a | 


sf a ES ae eS 


041230 
Q Lame 


OR2142 
Cee 
_Ob23I2 . 
ETT 


O424t3 


oueel 


ChE 
0440%0 
044Q3 


Oaaity 
O443te 
= 9463 to. 


044543 
O446ty 
3 


044840 


Ouagty 


Oud2'4 
Ouaata 


0484t2 


049084 


Data Documents/inc. 


@ ® 
@ Ty! pS*6 LIT"IN USE"$ GO EXTS 05978600 T O494!2 @ 
T23 DSel IT"SYSTEM FILE"s GU EXTs : 9786 923 
1 Tat Sl#SiI+as DS*8 CHRS 05978700 T Oavaty 
@ |: OSet2 LIT’ NOT IN FILE") Go EXT3 05978750 T O495%4 
3 T53 Hle+Ore7ii3 05978800 Or. Fa! 
4 DS*6 LIT" sEGS="s [Se¢8 CHR» DSe7 LIT" XD-EDe"S 05978850 T 0497382 
e@|: TYPE*DI3 DI© BUFFS LSeLIT" "3 OI*TYPES GO EXT3 05978900 T 050080 
6 ExT? DSe2 LIT*I¢"3 _ 059789 05013 
: END STREAMS 05979000 T O502!0. 
@ |: Aels N©&SEGS3 x FOR LOGGING 05979050 7 050294 
9 Gn €& 05979100 050383. 
jo EXIT$ 05979310 T O504%4 
eo) . IF A¥0 THEN os euise0 T O504%4 
12 * N H 
e i MLOgITs es : 30 T u 
q END o tae 360 3 RORLO 
8 | . IF RDT THEN M(SLEEPER INK 0) t=] ELSE SPOUTCBUFF); . 05979400 T 0508!0 
eo” BUFF s=03 IF MSCW NEG 1 THEN KILLCEMSCW))S & CALLED AS IND. RUNNER 05979500 7 051230 
Ne END? eee Oe ae ee 05979600 0 : 
9 ; . ; SyZes 0515 wORDOS 
or SAVE PROCEDURE DISKIOCLOCTONs»COREsSIZE sD ISK) 5% 06000000 T O000tO 
1 of _._ START OF SAVE SEpMEN BaSE aDORESS = G0564 
R2 VALUE COREsSIZb»DISKs% 06001000 T 000080 
@ » REAL LOCIODS% 06002000 tT O000!0 
p NTEGER COREsSIZEsDISKs4 Se seras tae: 046003000 000080 
P BEGIN REAL loo, OLaY 10s FIN} 06004000 T 00050 
@ OLAYIO t= SIZEL3IILI3. SIZEeC381] ts OF | o6004910.T Od000%0 
: HESK. C94 N 06005000 900343 
Pe BEGIN # AUXILIARY MEMORY 06006000 7 O004t2 
Or $ SET OMIT = NOTCAUXMEM) 06006999 T 0008%0 
0 =) OM]T = AUXMEM ce 04600920 N00520 
; BYBYCTINVALID AUXMEM 1/0#"919)5 06009300 T. 
@ S$ POP OMIT ~ | A 06009400 ° 
‘ ELSE BEGIN 100 t= ABS(CORE) & SIZE(8?38410) 06010000 
@ » & See TNX ae DIV epee benes G604 8000 
bg 06 ere 
p $ SET OMIT NOT(SHAREOTSK) TETCOR oothia 
ag . STREANCOISK,O4=CORE4.CF2)1 : 06013000 001840 
my a : D 0 ae 
40 SIZE ¢ 233% 06015000 T 
@ |: ENDS % 06016000 T 0021%0 
42 FINsSIF GLAYIUO THEN LOD&DISK(CTCI&DISK(B%21312] ELSE 10Ds 06016100 T 0024!0 
3 ® ACTUAL DISK ADDRESS IN FINALQUE FOR OLAY 17085 06036200 T OO24t3 
IOREQUESTCNABSCFINISO 3770 2584088) sTODs(LOCTOD as 06047000 T  O024%3 
pS IZE+16 C12E4 241 ROLAYIOC9NAZI1ID3 = 06018000 7 O02a7t0 
LOCIOU « 03% 06019000 T 002933 
Or END DISKIOs% 06020000 t 003083 
9 : S$ ‘ = 003 WORDS 
PROCEQURE FORGETESPOISK (SEGMENT )4 Vabe SEGMENT? REAL SEGMENTS FORWARDS 06020500 T 000010 
' . START OF REL. SEqMENTS. OrSK ADDRESS « 00114 
REAL PROCEDURE. GETESPD SK3 % ee ae Oeo71000 000070 d 
START OF REL SEGMENTS DISK ADDRESS «= 00414 
BEGIN REAL T=NT13 06022000 tT 0000!0 
If _ESPCOUNTSO THEN . 06022100 Tt OQ00t0 
BEGIN . >  @6082200 tT O001hO 
USTREAMCDERTISGETSPACECZ» 0004294 06022300 T O00;%o 
O8e42 417 " NO ESPOLSKe" 06022400 Oo0ats 


SPOUT(T)S 06022500 T 000684 


es S858 SSBSEtUsrE SE 


Data Documents/inc. 
eoeeeeeeeeeeeesreeeeeeeeee ee @ 


REAL 


BEGIN 
Real 


REAL 
REAL 
REAL 
REAL 


wORDS 


wORDS 


900595 


WORDS 


Qo116 


SLEEPCLESPCOUNTJ,NOT 0)3 06022600 T 000780 
_ENOS 04022700 T OOBR 3 
STREAN(T©Os ACE SPTADIKeO)) 06023000 T 000833 
“BEGIN ST#az: 06024000 T.  OOL0tS 
Bp Tks SCannn THEN BE GIN. SleSI+43 GO TO 44 END3 06025000 7. 9001032 
AtSIs Dlea3 06026000 T OQ11%2 
L2% IF SB THEN 06027000 y 001280 
BEGIN TALLY+TALLY4+43 SKIP SBS SKyP DBS GO TOL ND3 06028000 T 00422 
TOTALLY pares : . 06029000 7 . 0013%2 
ENDS Q6030000 T: OdLato 
: TSPOISKEeCCECD Ca -§ a eee _ 046031000 00144 
Ue. C3013))x6+PSESPOTSKBOTTON) 06032000 T O0145!%2 
ESPCOUNT¢ESPCUUNT®13 06033000 T 001843 
ND3 Sie abe 06033100 202010 
SyZes- 0021 
PROCEDURE - FORGETESPOT SKC SEGNENT?S ‘VALUE SEGMENT) REAL SEGMENTI& 06036000 Tr 00000 
AR Or R »MENTS DrSK a~anpRESS «# 
BEGIN REAL Sy Th 06037000 T O000!0 
IF SEGMENT LSS ESPUYSKBCTTOM UR 06037100 T 000080 
NT_ GTR ESPOISKTOP THEN 9H OFT 200 T 90018 
BEGIN: S © FLAGC#"ESPOISK")S oT © FLAG CMERROR+ #") 3 06037300 T 0002381. 
ae WATTIOCCSEGMENT) INX 200225); - 06037400 FT O005%, — 
pt ee O40) BOO GOD 
END; 06037600 T 000833 
T33CS8=(TS=SEGMENT™ ESPOTSKBOTTON) DIV 6)x6="T3 06037700 fT shee 
$¢5 H R 024583; = 
STREAMCT,S)3 BEGIN SKIP T DB} BS*RESET END 06038100 7 ooteiy 
ESFOOUNT#ESPCOUNT +15 06038200 7 Qo17%4 
END O049039000 ” Oota’ 
SIeee 0021 
$ SET OMIT = NOTCDEBUGGING) 06045999 000080 
SCHEDULEIOS# % A BIT In POSITION X MEANS THAT THERE IS A JOB IN THE 06056099 000080 
ee P SCHEDULECSHEET) WITH. SCHEDULE} Tp Xe USED BY cOM5e 06056400 T O000t0 
fy “% SELECTRUN AND CCFINISH, - 06056200 T O000!0 
SET OM Ts NoTCSHAREDISK 06057000 0000%0 
SAVE PROCEDURE DISKWAITCCURE*SI4E*DISK)s 06061500 T 0000!0 
START OF SAVE SEnMENTS BASE ADDRESS = 
VALUE COREsSIZE* DISK; 06062000 T 0000!0 
REAL CORE» SIZE sD1SK3 06063000 7 000040 
BEGIN REAL T3 06064000 7 OQ000!%0 
DISKIOCT »CABSCCOREJ@1 &CORELLILSE ISI ZEsDISK)5 06065000°'T 000010 
SLEEPCE TJ» IOMASK); 06066000 T 0003%2 
ENDS 06067000 T 0008!0 
— __ SIZES 0006 
 PROCEQURE DISKS QUASHCBUFF )3 06066000 TF 0000!0 
. START OF REL SERMENTS DISK ADORESS. = 
VALUE BUFFS REAL BUFF; 06068100 T 000010 
06068200 fr Q000%0 
RCW2+Os B=ele EF B419 FEE+1s ReEele HI=Rele LOKI 41s 06068300 T 000030 
wSCWE"2» ; 06068350 7 O000!0 
CNTsLOe1s USE=CNTey» TOGRUSE 41, TOD=TOG+) 06068400 T 000010 
TeTOOehs SUN=T } 060686500 7 0000!0 
A1™ T* 1s AgeA i+ te Saag te Aysa3+4> ASsAae 43 % ARRAY VARTABLES 06068600 T 000040 
K1SA5e1» XO*XLels XSEXSe19 XGSKTo1> KXS3XG015 FT SCRATCH VARIABLE 06068700 T O000FO 
LOCIODSXqg» HICNT=X4e LSTCNT®XS3 06068800 T 0000%0 
BOOLEAN CONFLICT#X5+1l5 pASSTWO=CONFLICT4#1» EUNOTSQUASHED*PASSTWO4y2 06068900 T 000040 
CP TREQKSEGNOZSRUISHED? Ts TENE SE TLEER 06069000 7: 0: 
eR $a : ‘[2Qele Selele EURSels aveguel, ‘ 06069400 T 
I KAVOAVSIAE+I 9 - SQSIZESDISKAVS 13 oul 06069200 7. 
MVEUT+IC*1* DIR=MV+l[*le EUS=DIR+iLtls 06069300 T 


REAL PRTADDR#®EUSt+i» PRTVALUESPRTADOR+13 06069400 T 000030 ® 
0 a NOT SK ARED K 04069500 O000tn 


LABEL See Cee eRe EET MUSES NOTOKs ORB DUNG Se NYENORE SMYEs 06069900 000040 
06070000 Tf: ooaato 


06070200 
Pad a 


00000 


$ an = SaaReoteK 
U = AVTABLES>, 


ononrt OW TO B® DW LH = 


000080 
000040 


EERE 
ae 


FACTOR 
MINSIZE 


12 


= 


‘omar’ - 


06071400 
06071500 


for 000 SEGMENTS, 06074700 taste 
THE MINIMUM SIZE IN SEGMENTS» aLLOWED FOR AN 06071800 t 000080 
AVAILABLE AREA TQ. BE CO [DERED.AS A CANDITA ca7ienn ® “aed. e 
FOR SQUASHING. MINSIZE MAY BE MADE AS SMALL AS 06072000 
ONES BUT AS SQUASH ate VARIES. INVERSLY ee 06072100 
NS SMALLER VALUES WILL SQu : 

TN TTHE PROPORTIONALLY. Lrigtge. fraihae "06072300 
TIGNS MAY BE GVERRIOEN BY THE LOOKAHEAD 06072400 


MINSIZeE8 


—saaata 
000010 


pa07ec00 
06072700 


LIMITS THE NUMBER OF INDIVIDUAL AREAS IN AN 
IN"USE AREA TO BE AT MOST MAXMVSIZE/3 AREAS 
FOR SQUASHING TO OCCUR 
MEE Tr 

RD MAXMVSIZE wus a $$.) 40N popes 


MAXMVSIZEt 


Data Documents/Iinc. 


a a G 5 < + a a aS. = Th ~. 


gk 2) MAXMVSIZE. MUST BE A MULTIPLE OF 3 00 T 
DEFINE MCPRTADDR)#>» 06073200 
MCPRTADORI 4, 06073300 


IF MEPRTADOR) THEN GO STOPSO#, 06073400 

MOVEABLE ® NOT DIREK3+a).Ca2s118, 06073500 1 

TEMPOSK = my Live). Catades oP prelate 0900t0. 
SUBROUTINE SQUASHMESS) RRL teat Ay : 06073700. T 00008 

TUELLE 000150 

IF (XL2sP(XCH))>1 THEN X3t5I1F SQSIZE%Q THEN SQSIZE 06073900 000180 

ELSE EUSCEuT1),OSIZE} 06074000 0004t0 

USTREAMCATSEURT Bt axl pCi 9x3. C1150 sC23 80 0CXI 80, | Q6074100 7 000643 

NOSQ$*EUNOT SQUASHED» XAHOKRIMSBACECSOIIT 06074200 7 O009t0 

06074300 tT 001183: 


whom 


000040 


BEGIN. 


Citecys GO TO Lo: 06074400 T 001483 
STtsL0C As’ OS854 LIT" EU "3 NStz2 DECI 06074500 7 0012%1 

As=DI3 Oiss0l=23 DSt=F ILLS DIssA3 CIlisCxs 06074600 T 00138 

LO# Cais To a4 pT HLL CIURCKE 6074700 1 O04. 

pers ee eS 7 LITM Si boil 
“Lab: OT x 

| 06075000 + OO1881 
LLOs crt se! | | | 06075400 T O0019!4 


06073200 7 001913 __ 


Bote En Nee 06075600 T 00260 


Data Documents/inc. 


LLit GO TO ExTs 06075700 
i Mohali CL tet ag 
“x thts ttn 


 DSiaz. Lit" ("3 SItsL0c C3 


OS3ss6 DEC; Sees OL ssVI=63 OSteS. FILLS Dy tec; pba ahs 
AVA 


eer To. LLB) DStae- UITe ON "3 


te iad ae a cea ae 06076600 


06075900 T 
O6076000 
OA0 OO°-% 


06076200 


T 


oseresee 


002683 e 


@ 
@ 
@ 
@ 
® : 
wie 7s ale : . OnO7H700-: aRt 8 
| ~EXT# Sareea | 06076800 T 003883 ie 
@ ENO . 06076900 7 0039%4 /@ 
SPOUT Lee eae | peewee” Q6077000 T _ Ogagt2 FS k 
: Wik eee ESA 3 TeeOTT oO FL wOROE LT 4 
Oh. 7 ? ee , Oeo77200 7 (@ 
XLSSCXH5¢SNEUP A CFF II"13 XoteBuUFFeC30%1BI3 © 06077400 T ‘6 
® FIXARRAY CEUSs AS? X5)5 | 06077500 T |@ 
2 AS” 7 18) 
xSte=13, wit a GE@ ZERO AFTER FIRST PASS THRU Scan 06077700 T 005013 19 
Or SCANS 8 7 06077800 + 005383 1 @ 
_STREAM(AS=O*SIZ ISOs EUL$"*19£U292" 1, ERRIOGIEOINOI=Q 7900 005113 | 21 
- & Gi axs<Oseu! st a56a0000000000005CKt #0 sC1 1 #0, | 06078000 T O054%y 29 
@: CotsOskKTRt=x23 06078100 T 005583 hd 
BEGIN ee | 6078200 Tr 005682 | 24 
ps CyteCls GO TO tas ; 06078300 T 0056%2 2s 
@ oy arg Seto, THEN wos | 06078400 T OOS7IO | @ 
OR AO} BEGIN TALLY33} 4. ‘NO. rt AL Tesctx ENO} Oao78500 - 2 
p IF SC=12 THEN GO TO ACs 06078600 T pe 
er Olt=4QC S123 06078700 7 3 @ 
po SC GEQ 0 THEN } 06078800 T 0059! a0 
a Mae ee Bee ~ 06078900 7 G060': 3 
er MEL VOLE OE Os Peas ae 06079000 T 900084 | @ 
aSlei3 : ‘ ee | 06079400 Tt  0060!2 , 
GO TO Lis 06079200 T 006083 
@ ENDS 06079300 T 006430 1 @ 
pe NOt=TALLYS | 06079400 006110 
‘ SitaSy*noy a Seat 8 06079500 T O13 : 
er DStanO OCTS . ont 06079600 T. ba @ 
: TALLY#203 NOISTALLYS : ~ : | | 06079700 T : 
CLt=Cx3 06079800 7 0 
e C2t=Cls GO TO STR; 06079900 T «| @ 
TALLY SE 15 DIt=LOC EUS 06080000 T a2 
A IF 2 -SCeOC THE: ‘AN EUS Tél 060801400 7 4 
° 06080200 T 4@ 
TO 43 Bn he = 16080300 Tt. 00: {ss 
IF SC GEQ 0 THEN IF SC<l2 THEN 06080400 7 0065!0 o 
e BEGIN 06080500 T 0066%0 ol @ 
; STtsS]ezs OLF=LOC FUL 06080600 006640 
i ~ AF $C GEQ 0 THEN IF Sc<l2 THEN ' 06080700 7 006682 49 
on |. TALLY S82 USE G0 TOats | 06080800 7 006712. |@ 
oe _SLfeSrers NOlata Paes ae _ 06080900 7 O068%1 weit 
J DStsNO. ey TALLY S=03 06081000 Tt 006833 5 
Or. END ELSE GO TO Als 06081100 T 0069%2 «1 @ 
- i ENDS 7 Qg0giz00 t og7gig 
a ee a QO. 13 -END DPB OK Po ee be egy ee ee 
‘ STRs SIs=KT@s Cls=CI+B3; GO TU L5s GO TO L4S 06081600 T 007210 


IF SC="e" yan GQ TO ExT; 
3 C¢ 3% SIZE 


NOCJUMP gut TO LS)s 
Cxtecls GO TO L433 
git, TH IN 
GO TO ERRS 
GO EXT 
AtsC1s CIt2C23 % EU CHECK 
~~ NOCJUMB OUT 10 aan 
j ble a THEN" : 


"ShsSIe43 Cxt=cls Go TO LaF 
CxescCls Clsscy3 % SIZE CHECK 
__NOCJUMP OUT 
 TALLYEWEULS EUQESTALL YD 
ete C13 Cliscey & EV CHECK 
2 NQ@COUMP OUT TO ERR)DF 
END3 
L7% AteTALLYS & ZERO OUT A 
If Sc="e" THEN GO TO EXTS 
If SCs%s" THEN — 
BEGIN SyteSyeqs AteSys GO ExT ENDS 
FRRO TALLY #213 ERRTOGS «TALLY 
EXTS 
END$3 
FP THEN * ERROR IN INPUT MESSAGE 
BEGIN i 
‘SPOUTERR?: 
cS ‘srou PCBUF 5 
FORGETSPACE(AS)3 
PCXIT)3 


Data Documents/inc. 


Ie_txareh: STEP 1 UNTIL X4 EN G0 SPOUTERR 
PCDEL)4 GO CK3 N 


“XS taP (KER) ‘&® SIZE OF SQUASH 
tf (xaESP ) Gee i ew IF ade THES GO SPOUTERR cee 
ELSE. ‘SAS IZEtaX53 
Ck? JF sees THEN GO SCANS 4 NOT FINISHED YET 
END A P MESSAGE 
SUBROUTINE. “F IKANOWRITEEADER) 


M AGs9eX2. 2815) 348¢ 


DISKWAITCAG*30sX2eLCFI])3 
END WRITING NEW HEADERS 
SUBROUTINE BOUNDARY CKS 

: RESIN engeet 

LSTONT##O WeAzmatieeas 
EMORE 


aa ee 3 
FOR JtsCnf STEP #3 UNTIL O OO 
IF PCMVEI)» OUP) DEND>X3 AND Cet THEN. 


he i 


a 


f an - a 5 ‘ 3 * 6. 7 eS ee ee ee > 7 
& & 5 & 3 x o ca op = rs a oe g 


ooo Get ae 
oY: 


06081900 
Osaazoo0 


06082200 


06062300 


06082500 


oenaze00 
06082900 


Bao baghy 


06083200. 1 


06083300 T 


06083400 T 


06083500 


06083700 


06083800 
06083900 
06084000 
06084100 


046084200 


peeaacon 
06084700 
06084800 


06084300 © 
06084400 
06 500. 


ele ee 


oorate 


oe 
Oorets 


“oo77ts 
(907ete! 


‘007983 


0080%1 
0080 


‘Gs0aayo0 7 006 


0085!0 
008530 


008s! 
008610 
0086'2 
00873 
008733 
00873 


008840 
‘bobete . 


EBS 


On0n? NO. 


06085200 
cone 


06085800 


06085600 1 


O60R5700 
06085800 
06085900 


OA0DA O0O00 
06086400 
06086200 
060686300. 


06086400 
06086500 


06086700. 
Oe08sg00 
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r $ SET OMIT = NOTCPACKETS) 06258099 T 022784 |@ 
Np% = eect 046259000 rae 
“ELSE ‘BEGIN’ r 06260000  Oga7ii ? 
e Hs DO BEGIN 06260100 T Ozart: |@ 
ORGETESPDISKCA O00 T.. 022910 | 9 
pe LOGLJ#1 13% 06262000 T 022983 c 
e ENO UNTIL A = 03% 06263000 T 023483 |@ 
ei ; 3 12 
re yl 
@ : 4@ 
“WHILE (J © Je27) <1 00% eo a 06267000 7 0239%2 te 
& BEGIN A + Ae255% 06268000 T 7/@ 
STREAMCX¢(LOGL JI), YeCLOGLAI 25% 06269000 7 0243 ia 
"BEGIN SI « X3 pS + 25 WpS ENQAS “Oe270000 T 024510 an r 
er If TIMEX 2 A THEN TIMEX ¢ TIMEX=23 06271000 T 024533 ry @ 
SS F TIMEAX 2 A THEN TIMEAX « TIMEAX"33 06272000 1 Onset, 2 
END#% 06273000 T 025083 23 
@: Ne (N#L) DIV 54358 06878000 T O251%4 5@ 
; 7 SoS Pee Et Ps OR BP INNO TO gg ate 24 
PT TIMexe? ‘LSS @ AND TIMEAX#4 |SS Q THEN 06279100 7 025431 2 
On TIMEITS LOgsPace cles. INK LOG* CN" 1355 06280000 tT 25710 7 29 @ 
wie ee oF. 6499 0:2 6: 0 : 2 
7 END#& 06327000 T Q262to 1@ 
or | 06328000 t 026210 ie 
bof 06328099 | $0 is 
or 06930000 T 026243 is 
3!" & 9 s 076 “wOoRD : 
06350000 T 000010 e 
e- START OF REL SEGMENT? DISK ADDRESS = 00145 ia 
Be AL 00 NOON O 86 
i i BEGIN rare 06350600 tT O000%0 Sen 5 
ee,» REAL BUFF #0,NeuyZeutsEsR Y | eee 6351000 7 Oo0o10 1@ 
ae SeT OMIT = NOTCSHAREDISK ) 7 06351050 7 00 | | : 
$ SET OMIT = SHAREDISK 06351100 fF 000080 a0 
@ 
& 
@ 
] 
@ 
@ 
6 
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SS TH 3 53 Ry 


SPOUTER(Zs0*e(NOT LIBMSG) AND 1)3 
ENDS 
END OF RESERVE CALL UP3 
IF AUTOUNLO THEN 
BEGIN PCPIM. AWTQUNLOISPIMIXis¢ 
STREAMCASSDATEsZ##=ZiaSPACE(10)+2)3 
BEGIN 0St®23 LIT"CC UNLOAD EXPIRED TO XP"; 
SItSLOc As’ ST PsS]+3s DSIFS CHR; 
psts9 Lit" MCRTEND GG 
ENDS Beans a iY : 
NDEPENDEN Ru ER P¢ CON ROLCARD)» & 4335) a433 
PIMIX3 =P} 
IF N GEQ O THEN 
soe f STREAM(Z3=2 PA Q 
—psisie. Lite AUTOUNLD RESET#") — 
_SPOUTIZDS : 
ND: 5 LM AT fy ' ADING 
IF NOT N sf2t4) THEN 
BEGIN IF PAMIX#0 THEN 
= N Baise bBo cares cin satiate ees 
WHY STREAMC GERJARROWLPIMIX TePIMIXsNeBUFF)3 
BEGIN OSet4 LIT "#NO USER DISKi"s 
Sle — SpeSle+); -pSe HR 
OS*LIT "/";3 Slesl+1; QOS¢7 CHR: 
SleLOC PiMIXs PSeLIT “"e"3 DSe2 DEC; 
JeeDI3 DissDI%2s OSt=FILLS Di geJs DSgsLlT"="3 
“STtalOc Ny 0S#88 DEC; DSts7. ae SEGS,«" ; 
eoaaatag OSts7 FILLS 
NDB. 
SPOUT (BUFF) . 
23 REPLY(PUMIX] ta"VWYSVOK(3624286)5 
i e | COMPLEXSLEEP((REPLYLPIMIX] GTR 0) OR 
By < CTERMIXs CCR YePIMIXIDE 
06203700 AeLIENT AG: ENTRY AT. BIMTX. oe 
IF TERMIX.CCFJSP1MIX THEN 
BEGIN PRTROWCPIMIXI,C781)] «13 
GO TO INITIATES 


7 A 


TS 


NDS 
TF NOT WHYSLEEPCVWYEVOKE3604216)) THEN 
BEGIN BUFF eSPACE(1023 


Ae ee 


5 eS 


GO TO WHY3 


END# 
END ELSE 
BEGIN 
STREAMCNS BUFF) 3 
BEGIN DSt20 ot pang USER DISKIMCP = 45 
~STrs0¢ Ns DS'*B DEC; 
D3s36 LIT" SEGSeN;3 
Ols=Clei43 OS%=S7 FILS 
END 
SPOUT CBUFFIA we : 
NEL E04, 00: SLEEPC CLOCK». NOT CLOCK) 
ae UNTIL: CNTIe#NT 14128303 


ND 
ENO eLse FORGETSPACE (BUFF )3 
P¢xIT) 3 
G2t UCUitsEs 
SET OM: 


QS Ses sees s i 


a in b F enon JAN 2,NT1L)3 E1803 


$ POF “OMIT 


06353551 
0 


06353570 
06353580 


TEEEECE 
06353610 


06353620 
06353630 
: 06353640. 


0 
paasaat 
06353670 


O 4 A650 


06383690 


06383700 
0:4} q 0 


06353720 
06354000 


06354100 
06355000 


06356000 
QAR FOOK 


06358000 
06359000 
06359500 
06360000 


06360500 


0464360508 


06360510 
06360520 
06360530 


06360540 


06360560 
06360570 
06360580 


06360890. 


06360600: 


96360610 


06360620 


06361000 
06361010 
06961100 
06961200 


06961300 


06361400 
06361500 
06361600 
06361610 
06361700 


06361705 


06361710 
06365110 
06380070 


06380100 


06380420 


06380140 |; 


06380441 


002433 
00% 3 
0o25%2 
0025%2 
(7 {) ° 

002981 
0032!3 
00 6%0 
003683 


004083 
0041%4 


Qo4siy 


Oo4ato 


004833 
004983 
OO e 
0051%2 
0053414 
ons§st 


005680 


005740 


_n05 ato 


005942 


o064'1 


006 
0062%0 
006213 
0065! 


O065%s 


90794 


O0Qe210 
008630 
0086t0 
0086!0 


008682 


008712 
00908: 
009033 


(009183 


0092s 


011383 
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@ @ 
@ UPt IF CNT423E MOD 30) LSS CNTSS=CNTLSZULCI]e¢STARTWRD) MOD 30) 06380150 @ 
_THEN NTGSenT3 3 06380200 
‘7 sep Said SUC NUNE NTN 48983 GTR 1023 06380250 1 
e OR Case soerNE OV 30) GYH 36 THEN | : 06380300 + |@ 
DISKWAITC= [CUACNEU V1 (UAINEU2$/15*SPACECNT21) «NTA NT3)°Q4NT 3? 06380400. T 0136%0 ‘ 
® USERDISKBOTTOM#NT1 LIV 30) 3 06380450 T 0443te2 |@ 
$ SET OMyT = NOT SHARED I SK_) ie curse 06380490 7 O145'0 : 
‘S$. SET ci rT = SHAREDISK © ee o ~ 06380520. 7 0145t0 | 7 
e If daa THEN BEsUAs CCF. enTenT ot i a 06380525 T O44sto i @ 
? Me ae 7 oe aa OAFROR24 * 20748 9 
“MEB+J)!2UCd JRELTOSTARTHAD] ; 06380550 7r O1L49it fre 
s If (NT123Q@ OIV 4) LSS AVDIFFMIN THEN NTLISAVDIFEMIN 5 06380600 T O0452%2 /@ 
BOS | 06380650 7 015532 12 
eo NTSERPCXCH) AND NGNENTH ; | y : @ 
s DUPIZJ JR CNTGeMCB+Je17 STARTWROIDIV 30 THEN jATB0800 Tt ay h5 
; MOVECNTLENT2 MOD 30,UALNEUL]#NIS@NT1pNTL*UACNEUL41 “NTS MOD 303 06380850 T ie 
rd] O1SKMAIT (UACNEUII“NT N13 MUD 3Q¢NTYtNTSsUSERDISKBOTTOM#NT3 DIV 30)3 96280900 T ®@ 
. § T TC SHAR 0¢ O16 ‘a 
FORGETSPAGE CUAENEGRSUID> : : ‘Oeaa0ese"t 018533 i 
er IF PCOUP) GEQ Ji@J+1 THEN GO PU CZ : : 06981000 T 018830 1@ 
. “OMTT. = SHAREDISK.:: ; ms O63 alp0e0. +t 0190 ; 21 
:  NOVECNTs LUACNT#NT] ]e CAVTAGLECLII) ; . ~ 06381070 T 049084 22 
@: $ POP OMIT 06381071 7 019233 24 @ 
$ SET OM]T = NOT(SHAREDISK ) | ——— 06381075 01923 2 
FORGETSPACECUA) 3 oa a 06381085 T 019293 as 
@ | $ SET OMIT a NOT CSHAREDISK ) ao es, eet cee T 019383 23 @ 
; D AV ED “OM 2 2 049: C 
2 L3 PCUCNEUPs NEUF +a+lQsa¥ DIV Ge DIv ale TF Q THEN Pe Cet20) ELSe 06381300 T 049680 . 22 
@: P,£28320)) 5 06381310 T 0203%4 ny @ 
CQ+1).SPEED = 2 TH 06381320 t 020183 : 
“BEGIN ¥ @O*MTLL MASK SENSTRUCTION, 2 | | 06381330 T 020393 an 
_ STREAMC 812010)3 ot! & igs 2 . 06381340 T 02043 
BEGIN 06381345 Tt 020680 
e@ STt=LOc Qs SKIP 28S5B3 pyt=slOc S# SKIP BpB 3 06381350 T 020670 . ; @ 
Bs 5(4CI1F SB THEN DS#eSET ELSE SKIP DBsSKkIP SB)s SKIP 4 08B)3 06381355 T 020730 36 
SttelOC Qs SKIP 26 SB} Ofss_OC Si OrssdI+o3 ) 06381360 T 0909%3 a 37 
@ SCOCIF Sp THEN ne} SEF “ELSE Srp DBISKIP “Bo SKIP 4 DB)3 06981365 T 921093 © 1@ 
END STREAM 3 06361360 tT O213%2 ps 
END 3 06381390 T 40 
@ STREAMCMSK SeOsVse47eCuse((Qs3uy MOD PCML))+ABSCRI@1) DIV PCT10))> 063g1395 7 4|@ 
mt=iedea OIv P(T10))3 06381400 T a2 
“BEGIN DItsLOC MSKs SKIP V DBs Ostsw SET? ENDS 06381405 + r 
@ |. PCLNDeLNGs Oe LNGsSeRTN) 3 06381410 T 4@ 
Mgt @36411003 % DECIMAL 1000000, . 06381450 7 as 
TqOsts @234203 4 DECIMAL 10000, 96381500 T 0225'0 Gj 
e ENO OF USERDISKSPECIALCASE 3 06381550 7 022610 td 
| SIZES 0228 A 
meGCEDNRE RETHOREGUATO ESRC HIXD | 06400000 7 d000To 
@ ad oo ee Pg ele eo aa START OF REL SEAMEN Ota RODE SS " 
Up MIXgs 0 i oe 0 
INTEGER MIX3% 06402900 fT O0000%0 
@; BEGIN INTEGER [241-3 06403900 tT 0000%0 «|@ 
3 | 05404900 2ondt9 
a: myers AaAAT ; if 
@ Fs ote ed @ 
: o. 00 Se eas 
06407000 T 000080 
e e@ @ 
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LABEL EXITs4 
D N DALOCMAXS2Z = 


$ SET OMIT. = NOTCAUXMEM) 


1 
‘ $ SET OMIT @ AUXMEM 
3 ; Alf) wl 2G N 
4 $ POP QMIT 
5 —PCOs O» OF O)% TOGLE © TOGLE OR STACKMASK3% 
6 CTeDALQcIMI x20) J+1)SDALOCMAXSZ THEN BEGIN 
7 TERMINATECMIX & 370CTFI)5 - 
8] GOTO EXT T3 ENDS 
9 = “TsDAL -QCROWLMIX 8810) THEN? | 
jo BEGIN [IF (J¢T+#P(DUP) = 1)2129 THEN Se DALOGWAMSZ) 
na WHILE CI &3 GETSPACEC Qs O» 3)42)52 DO 
2 SLEEPCECLOCKI]» NOT cLOUCK)3 
fon er a oe MOVERT® DALOCROWEMIX}, 192 
h4 a ee ie er okt haan ha ah 
| ome _ DALOCROWEC MIX] $e C#PCD R ILCTC) & wr6s38440 
6 MCI= Pie ara 25 MIX} 
7 END AIT TYPE ACTIONS% 
8 IF CI * GETUSERDISK(500 OR MEMORY) )=0 THEN GO TO ExIT3% 
9) 


DALOCEMIX?0) © CaPCDUP) QC THL)(CTCI34 

he DALOCEMIX#eTJ © I3%. 

1 DALOCEMIXsT41) © OF% 

ExIT! OLAYMASK © TWOCMIX) OR QUAYMASKs% 
KILL CCMSCWI)3 


_END GeT MORE OVERLAY DISK FUR A MIX INDEXs% 
REAL PROCEDURE SECURITY CHECK(MID*F 1psUSERIO* HEADER) 5 


VALUE MID» FID*USERIDS 
REAL MIDsFID»sUSERIDs»HEADERS 
y 3 MID MULTI FILE Ip OF FILE TO BE CHECKED 


FIO... FILE LO OF FILE TO BE CHECKED : 
USERID USER IDENTIFICATION ee 
HEADER 


CORE ADDRESS UF HEADER JN 33415, JUST CHECK [T, 

VALUE FOR DIRECTORYSEARCHe FIND THE FILE AND PASS 
BACK THE HEALER IN ADDITION TO SECURITY INFO, 

<0 DISK ADDRESS OF HEADERe READ IT IN AND CHECK IT* BUT 
DONT PASS 17. BACKs 


>542 
>0, <5142 


ede ae de) ae DR De 


SSS SRE SER SESEBRBERPSEE SE & 


RESULT FROM SECURTTYCHECK 
=0 NO LEGITIMATE USER FOUND 
ze TERTIARY USER CC INPUT ONLY) 
a3 SECONDARY USER CINPUT/OUTPUT) 
aT PRIMARY USER CINPUT/QUTPUT/LIB | MAINT )* 


GD ae Be ae a2 Veiae ae 


START OF REL SEqMENT?. 


REAL Tor DuSGRON« CODESs BUNS? AON DRADRS ROWSZ/CsUSERATYEER SHI 
REAL IT=DKSGROW» FPBSIZESCODES3 
ARRAY FHC *JsFPB=ROW #13 
oo GABEL FOUNDS 

LABEL EXYT#NGTFOUNDeLOOK»MRY>FORGETS 
AL SUBROUT DLRSR 

BEGIN 

LOOKS IF CT2tsDIRECTORYSEARCHE MID sf IDsHEADER) ) LSS 64 HEN 


WH BEGIN _ . : 
ee TR a EWEN. MESS ¢ FILT ON DISK™sMIDAF 1005050) 
ae bs THEN’ pe bei hee TYPESRSS) ‘GO one END 
Eo: ie 7%. Ay we TERROR We. 
MID»FID»0s0°0)3 


mh oe 


06408900 
04 or. QO O 
064084199 
06408299 
D448 08 ore 
06408301 
06410000 
06 000 


06411010 
rete badd 
rere: 


‘NOOO 
06413000 
06414000 


06 ohere 


06416000 
06417000 


eure re. 
06418000 
06419000 
06420000 


06421000 


-06422000> 


06424900 
06425000 


06426000 


06440000 


peueo0e 
06460200 
06460300 


06460400 
06460500. 


06460600 
06460700 
06460g00 


064s 

06461200 
06461300 
06461400 
06461500 
pai dae 


UAE hone 


06462100 


Soaccte 
04646 


REET: 


06463400 
96463200 


OF.’ e 


0e4eag20. 
96483225 


EEG 


06460950. 
06460960. 


06462200, 


AAS aH 


coin 


‘tH 


44 


000080 


000080 


000030 
O000 () 
0o00tO 
000010 
ON004 f 
Co00to 
000080 


000913 


0009t0 
001340 


00163 


OO 2 


oozaly 


T 0030%2 
T 003392 
tT 003732 
T 0039384 
00400 
SIZES 0064 
T 900040 


0000%0 
0000%0 


o00080 
000080. 


000d 
0000%0 
000030 
090040 


0000t0 
0000t0 


000080 


d000t0 
000010 


(Oa07t0. 


O007 


OOtat2 
Oo20's — 


900010... 


000040 
00000 


000180 
000440 


ELED 
000740 


Reo + eee 


O01ste 
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a a * 0 3 zy ry oS co TS - Th 5 3 
EA i > oD & b G & a i, 5 3 


kh SrteSl+1s IF Sc#"l" THEN GO TO LL; 
Pe pee ei Tatesii 


 ] 
®& REPLYCPIMIX]# a2 (SHH SVWYEVOKL 9614226 JRVILE 3084216) 5 
_COMPLEXSLEEP( (REPLY PAM ix >0) QR TERM =P x 
06360540 AE CTOENTAG ENTRY am PEMIX. 
 ] IF: TERMIX. (CFI ‘= PAMIX: THEN. 60 TO: INITIATES 
oy NOT. WHYS PPtSH THE EN: Smeg “WHY 3 
IF CSH8=TeteREPLYCPIMIXI,CFFIJ) GTR 32 THEN * IL 
6 BEGIN STREAM(T28) i 
BEGIN SIi= 
@ 


ENDS. 
T2tzsP3 
— FPBSIZEtS(FPBTSPRTCPIM Xs 3)),(8%40)5 
FOR It320 STEP ETRLNG UNTIL FPBSIZE BO 
+ _4+— FeetTy EOV MID)=NOT.O THEN 
-EQY ABSCFID)) "NOT 0 THEN Go FOUNOS 
3 NAMETOCC, T2)3 


NAME TOCCOT2)3 FID@t=c&FIDE1191); T 005484 
er IF I LSS 1020 THEN 06463640 T 005780 
BEGIN FPBCII]?>MID5 = 06463660 T 00573 
FPBCI4+1)4#C; 06463680 7 0059%2 
@} ENDS ee 06463700 T 006141 
2 FORGETSPA Sh» 06463720 00613 
END} 06463740 tT O062%2 
REPLYCPIMIX]%=0;3 06463760 T 0062%2 
GO To WOOK as 06463780 T 006333. 
ENDS 06463800 T 006481 
SIRSRH te Tek O6463gi0 T 006481 
NO RSRHS 06463820 00644 
IF HEADER GEQ O THEN . 06463840 ry 006530 
SH3=I1F HEADER GTR 511 THEN HEADER ELSE DIRSRH 06463860 T 006940 
SE DISKWAIT(} nC SHi=SPACE (30 2 30sHEAD Rs ECF 23 = 06463880 007294 
FHERTOQUESSH(CTC)3 ; 06463900 T 007810 
“IFCFHE2) EaY O)anoT 0 OR. (CABSCUSERID) e0v. ABSCFHE23))aNOT ) 06463910 T. 007992 
OR CUSERID EQV MCPJSNOT 0 THEN TYPE*7 ELSES. 06463920 7.00823 
IF HEADER<O THEN GO EXYT ELSE 06463925 T O087%2 
IF CFHOCS) E@y @©14)=NOT YU THENS 06463930 T 0088'3 
IF CFHC6)] EQV @14)*NOT O THEN TYPEe2 ELSE TYPE 33% 06463940 0091!0 
IF TYPE #0 THEN GO TO ExYTs me 06463950 17 
06463960 T 


IF FHES). tata) THEN 
BEGIN IF “€3H SeDTRECTORYS | 
THEN BEGIN TYPE?=03 GO TO €XYT END} 
MCSH#4J,C1it1)}%=13 
STR AMCDATEs Ji#5)3 BEGIN S]ssLO0C eae! OSs=B0CTs sND 3 
MESH#3]¢CL2918)tsUNKS 
_DISKNAITCSH, CCF J9"300SH, CFF IDE 
UNLOCKDIRECTORY3 
$ POP OMIT 
DKSGROWESMCSH INX B33 
CODES! *GETSP ACEC300000 )#25ROWSIS (MESH INX ¥7 AMO TLE 
FOR ROWEsO STEP 4. UNTIL ROWS CO. : 
BEGIN IF (OK ADRI=MESH INK LO4ROW]) #0 THE N 
BEGIN TYPE ts Q3 
FORGETSPACE (CCODES)s FORGETSPACE(SHIJGO TO ExYTs 


NOTFOUND! 
FORGET! 


KOC CODE S930» DKADR: Ye 
SLEEPCE CI)» TOMask); 


06463280 


VA4A Q 


6 8; al 
06463380 
06463400 
06465 e 


06463440 


06463460. 


AaéA i oC 
06463500 
06463520 


06463540 
06463560 
phapier bet 


06463 
06463980 
06463982 
06463984 
06463986 
06463988 
06463990 
06463992 
06463994 
06463996 


06464900 | 
06464190. 
06464200. 


06464300 
06464400 
06468) 00 


Ooa6aRd 
06464900 


06463340. 
43360 


06463620 


970. 


+ 44-4 


004480 
OUaa TS 


aA te 4 


001730 


pogst2 


0032°0 | 


003483 


arte 


003881 
003883 
04! 


01404!0 
010384 
01068 

0108%4 
Oitite2 
011430 
011480 
0141732 
0117%2 
011982 


OL2633. 
- Ose720. 


0130%0 
Or3i%4 


e@ @ 
@ FOR C+=#0 STEP 1 UNTIL 29 LO 06465000 T 01398 @ 
B N VERESN A “ODES N Q @ 4)s 0646 0 0 
1 NOT O THEN GO TO NOTFOUND!. Dadesn00 O1data 
@ » IF CUSER EQ @14)4 NOT 0 THEN wid 4g 0144810 
3 20 TH oy QOF4G8bo | 
i BEGIN 06465536 0147314 
@ |: IF CUSERID EQv ABSCUSER))= NOT QO THEN 06465300 oe 
6 GIN TYPE t= gs 
7 If USER < 0 THEN 2 ELSE 3 06465500 ater 
@ |: 60. 70: FORGETS reba ater: 
9 : * oR OO 3 : ; 
of END ELSE 06465800 7 0153%% 
r BEGIN 06465805 T 015344 
12 IF P M x g (8) T EN 0646 Py 0 9 $ 
en ; ats MARCPAMIX90) DE QV 06465820 tT O154t2 
@ | Sigge Mag a oe kong Me oe 6442))8 NOT O- THEN 06465830 7 O1S6!t 
ae IPCCIE JARLPIMIX#0}<0 THEN "DISK — “ELSE JARCPIMIX?1] )EQV : 06465840 7 035832 — 
16 MCCODES INX C+1).(6842))= NOT 0 06465850 T 0162383 
eo.” THEN 06465860 T 0146684 
8 BEGIN _ 06465870 016780 
TYPE t= USER,C3t3]3 06465880 T O16730 
er. GO TO FORGETS 06465900 T 016883 


ND = ste 064465910 047 ‘ 
ENDS 06465920 T OQ172%1 
ENDS % 30 USERS 06466000 O1y72%y 
JKADR $= DKADR + 13 | 06466100 T 04743 
ENDS %& ROW a 06466200. 017543 
ENDS ® ROWS es : we : 06466300 O47 hs 
BO TO.NOTEQUND?. Py a 


017940 
017980 
93 


END’ & NO SECURITY BLOCK FILE 06466400 
TYPE 303 . 06466500 
EXYT3 : a 1793 
IF HEADER LSS 512 THEN A66610 7 017913 
If HEADER GEQ@ 0 THEN HEADERISFH ELSE FORGETSPACE (FH) we OT 0180t2 
SECURITYCHECK ta TYRE3 018510 
END SECURITYCHECKS 018583 
S$1Z—* 0187 WORDS 
000030 
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06466800 


06499999 | 
06845900 7 000010 
06845999 o000t0 
07000900 7 O00080 
07000010 000080 


$ SET OMIT = NOTCDATACOM ) 
Roe ee RO ee ee OR a ke ke ek ewe we wa me ETS 


$ SEY OMIT = NOTCOCLOG AND DATACOM ) 
73. 3 DF 


OF 2. IS RESERVED F THE SK DRESS 

COMMENT LASTCONUM» F RSTOECKs AN LESTDECK ARE STORED ir THE 
FIRST THREE WORDS OF THE DISK SEGMENT LOCATED AT Brace Gaye 07000015 000030 
+3-e IN A NOW SHARED DISK SYSTEM _Y_ARE W f) 070900920 000080 
TIME ONE OF THEM IS CHANGED SO THAT THEY WILL BE PRESERVED 07000025 0000tO 
IF A HALT/LOAD OCCURS, IN A SHARED DISK SYSTEMs THEY ARE 07000030 Ood0to 


“READ INTO THE PRT WITH A READ®LOCK COMMAND fACH TIM HEY AR 07000035. 7 000010 
USEDe THIS PROVIDES CUNTROL DECK INTERLOCKING BETWEEN SySTEmS 07000040 T 00000 
In ADDITION TO PASSING TRE INFORMATION BETWEEN SYSTEMS, 07000045 T 000080 


END COMMENT 
INTEGER LASTCONUNS@1 
REAL FIRSTOECK #617: 


07000950 0QQ0Q3 
Q7000400 Tt. 000010 
Palot O7000200 Tt. 000010. 
REAL LASTDEGK=0176) ee ee Sie 07000300: 000010 
DEFINE LOcKCONTROLDECK <BECIN LEEPCCTOGLEJ*COMASK); LOCKTUGCCDMASK )3 07001000 000010 

$ SET OMIT = NOTCSHAREDISK) 07001099 000030 
END#>» 07001200 
Fel beeen 07001300 7 
Ha ito 

070038500 7 000080 
07001600 000080 


+ 


— 


UPDATED BOOLEAN UPDATES 


DURE NEXT TNUMCUPGAT “3 VALU 


“REAL PROC 


Data Documents/inc. 


‘ a a a zy * * a n n Cy TS < TS = 3 
op bs 5 aD 3 a a oF 5 : & o op ab = 


r 


START OF REL SEgMENT3 OISK ADDRESS = 00462 @ 
BEGIN 07001620 000030 
LOCKCONTROLOECKSS : 07001640 T 000080. | 
LASTCONUN 1* (LASTCONUM MOD 9999) 413 | 07001660 7 O005ty |@ 
STREAMCCDNUM? 20% LNUMS sL ASTCONUM) 07001680. oo07toO 3 
BEGIN 7 07001700 7 o0d8'4 ‘ 
ST}SLGC LNUMS DI#=LOC CONUM$ DSt=8 DECS 07001720 T O00Kts |@ 
N se en 2 0700 0 0009%0 6 
NEXTCONUM #8 Pj 07001760 00098: 7 
If UPDATE THEN 07001780 7 d009t3 |@ 
REG. a : 07001800 O010to 9 
nD LSRNADTCKEUNPs29. DIRECTORY IER Oa: | 07001820 7 001082 
UNLOCK TOG(CDMASK)3 07001840 T 001282 l@ 
ND 07001860 T 2. At 12 
Oe oe noe O7@01g80 T OO1etO ii 
: at Guns sole oe ae . : 7 oe 4 an : 'sy2es 0019 i | bis fe 1@ 
PROGEDURE STARTABECKCN)? VALUE NJ REAL NJ FORWARDS 07002000 ¢ Oo0nto 15 
— START OF REL SERMENTS DISK ADDRESS = 00163 16 
PROCEDURE ENTERCONTKOLDECKCH)$ VALUE Ks ARRAY HEL *)3 FORWARDS 07002100 t 000080 |@ 
START OF REL SEeMENT; SK Ress = ia 
REAL RUNUMBER?% ~ 07003000 t O000!0 =. 19 
PROCEDURE cOM23/% : O7004900 tT 0000%0 @ 
START OF R MENTS DISK ADDRES 2463: 1 
BEGINS - 07005000 T a000t0 1° 
REAL INBUFF 93 ADDRESS OF THE INPUT BUFFER 07006000 T 000080 23 
0) B Li asd oot et AT ae $0... 24 
FIRSTCARDs& ” m " CARE IMAGE OF THE FIRST CARD 07006020 T O000'0 25 
ou TRpENGLO LN echo " "CAST OUTPUT BUFFER. 07006030 000030 2 @ 
SERVESS bid "30 WoS OF cORE USep TO BUILD TH Seder seas te! 07006040 000080 5 
TeTleT2s% TEMPORARY VARIABLES, 07006050 T o000%0 28 
RoLoNek " USED TO COUNT CARD IMAG 07006060 T 00080 23 @ 
Q@,%  USUALL DICATES CO HAS A QUESTION MARK 07006070 7 0000t0 p 
(Wes. UNIT NUMBER OF THE INPUT UNIT, 2 07006080 tT 000080 a 
QUes Ong” cOUTPUT UNIT 07006090 T G000t0 , =| @ 
RST2% A E F HE. F RS ARD A DECK = 07006100 t  gnootn 
USED AS A TEMPRUARY VARIABLE In SUBROUTINE 07006440 T 000080 
AND TO HAND THE UNIT NUMBER TO SUBROUTINE § 07006150 T 000010 a @ 
Tt 
‘ 


USED AS A ASK To SLEEP UNT DISK QPERATIO 0 6 
ARE COMPLETEDe 07006161 T O000% 3 
$ SET OMIT = NOT CPACKETS) bia ec nae 07006169 T 900040 /@ 
R ‘ : § , 39 
INTEGER Avida 07008000 T 000080 J 
$ SET OMIT = NOTCPACKETS) . 07008199 7 0000%0 «|@ 
LABEL AGAIN» INLsER ROR» SUPER» BOMB s SKIPIT* EXITS 07009000 T 000080 4 
LABEL INPUTL? 0700900 T ‘ 
ARRAY FPBL*}sH[*J]3% | 07040000 7 ®@ 
SUBROUTINE STOP3% 07011000 T 45 
BEGIN I S 4 18 THEN? 070432000 T 6 
BEGIN READY « NOTC@ « TWOCS)) AND READYSS 07013000 T 1 
RRRMECH © NOT @ AND RRRMECH UR w AND SAVEWORD3% 07014900 T : 
GABELTABLE(S] © @4443%. 07015000.-T 4s 
 RDCTABLECS) © MULTITABLELS) © O% . 07016000. + 1@ 
ENDS nee, | = OT 51 
PBtT+1 Je *PCOUP)SCLUCKSPCRTRIFS 07016000 T i 
FPBCTJeC24$12) ¢ TINUCS].[(18212]3% 07019000 T «4 @ 
TINUESJ.C18312)3303 aoe 07020000 T 
J 7 ae TOO. 7 i 
Tee sj @ 
@ @ 


“ 


Data Documents/inc. 


$ SET OMIT = NOTCPACKETS) 
SIN Ti © H(91+95% 
“FOR T2 ¢ 10 STEP 1 UNTIL T1 00% 
ae FORGETUSERDISRCMETAD*HC8] 25, 


J TENGE: 
$ SET OM]T = NOTC(PACKETS) 
SUBROUTINE BOMBTIMES% 
BEGIN IF STOPJOBsPiMIX THEN STOPM(FALSE)3 
Ce Semel ee kee gar ENTE Aide GO BOMBS ee 


SEL OMIT = CAGKETS. ENDCARD? 
BEGIN IF @ THEN a 
BEGIN MCINB arent 


“OLSSLOC Xs. DIt=D 1453 me 
IF 3 SC#DC THEN TALLY3=15 
Xts A 
ENOs 

END. ELSE ee ee 


ENDS 
$ POP OMIT 


; “BEGIN IF he « Er * R OLV 2000+103) = 0 THENS 
BEGIN Ho) « - Peeie® rele 


§ SET OMIT = NOTCPAGKETS) 
$ SET OMIT = PACKETS 
BEGIN IF FIRST THEN’ 


croeees euee ae 
0 


ETT TTT 
Sassanid 


OPTE 3 ogg7 at 
07027000 002734 
07028000 


07041100 T 00320 
07041410 Q032%0 
0 0 ¢ 


076041430 7 

OFEaI OG 

07041160 O03at1 
070414370 7 0038683 
O704 BQ. 003193 
07041490 7 003993 
07041200 7 “ao4oto 
4) 7.01 &. ¢ : 
07041220 Obaats 
ares 004083 


oyuesgno T 
07044000 


G70 nsn0G 
07047000 


07051099 1 005383 
07051999 T 005333 
07052000 005333 


ee ‘WATTTOCE140000000 + INBUFE*% 07053000 Tt O0054%2 


O40, TUES : tae — BGS ErO 
6 : ; T10(@120540000000 NBUFFe% $000 abe 
@2000000*1U)3 x pyonecoe T 0058t} 
$ POP UMIT 07086001 T 0059%2 


Q_¢ MCINBUFF*11=93% 07057000 T 00593 


07058000 7 (006210 
07059000. 7 006210 
070859300. OO6743 
07059410 T O070%4 
07059200 YT 007180 
070589300 00733 
07059400 re Ogt1S 
Wee 07089500 T ' 
Ht -ENDE. ae oh oe 07060000 
Ir qeavrgo THEN 07061000 7 008210 
BEGIN SteCTHSUNITCIUJ), CFF JS 07062000 ~ 0083%4% 
RE TURNS OSTACECS )) 07063000 T 008610 
rene wel i PT 070 oo 7 OC 


ENO 
ELSE BEGIN: HHILECQ*AITIOC@40000OOO+INBUFF AF IRSTxAs 
@400000001U)).045%1) DO 
IF FIRST AND CDONLY THEN GO EXIT ELSE 
BEGIN SLEEPCCTOGLEJ»STATUSMASK); 
RRRMECH#RRRMECH AND NOT QeTWOCIU)S 
SLEEP CREAD ND. 


009211 


~~G7 068000 1 


Fn °| = =<: Sa eS Se <= an <n CR 
5 6® 3 2 SS oS Ss os > 


Data Documents/Inc. 


a a * a 5 ES Ky gy =. =. > 
: 5 a 5 K KR 5 


Ww i ty ts 
> © & & G&G 


FIRST © 


“SFIT1000-7 


ENDS% 07069000 fT 0092384 
% SET UP INPUT VARIABLES - ay 0094!0 
$ SET OMrT s NOTCPACKETS) 07071899 7 0094 : 
See COONLYamCPRTEPIMIxy@25 3022) THEN 07072000 1. 009: 
BEGIN: IUtePRTEPIMIXs6 07072100 r O10ita | 
PRTLPAMIx»@25)3203 ® DISK 07072200 tT 010382 
ENQ ELSE © Ua esne T O10584 
BEGIN I lus NDIN "CON RO a AAD #*,0,0,0,0,0 QO, Q VQ 0105! 
EE SO yy LSS 0 THEN GO INITIATES 3% BEEN DS#ED ATE T 070640 
ae Tu Ges 32 THEN Teeter vighe % EOW IF PSEUDOoNCK 07072600 7 031083 
e : END : 170 Ol6 Hee i}: ai 4 
$ SET OmIT = NOTCPACKETS) 07072899 T O112%y 
STARTIMINGCO*TU)DS oper aoee. T are 
mi ; 0 Od 0 
$ SET Omit = rE ee 
poe Tp RN 4EN eS | (07074000 TF 
IF NOTCJARCPIMIX29),(231]) THEN % DONT SUPPRESS MESSAGE 07074990 T O11ste 
FILEMESSAGE(" IN "&TINUCIUIC6830218)s0> 07074,00 tT 041733 
"CONTRUL"» "DECK "2020 OPNMESS)3 1749 : 
~ ROCTABLECIU] .£826)] «© PIMIXs2. 07075000 rT O12153 
OTF TU GSS 16 THEN BEGINE eo aed! 7 See 
FPBC3).C2ItLItF ly: XSET INPUT AG: Q oe 07076010 7 O125% 
T ¢€ WAITIOCE 54000000509 ITU) 07077000 T 012810 
aoe 07677010 tT 012940 
; = AND READERA | 0 = - 
care FORGETSPACECREADER AT) A% QO7079000 T 043633 
READERA ¢ 07% 07080000 fT 013812 
) Ae oF: A 0) £3 j ¢ 
ELSE IF Ius24 AND READERB NEG QO THEN 07082000 T O130tt 
BEGIN pr ORGETSEACE CREADERB™ 2)? % 07083000 T O141%2 
ADERB + 05% 07084000 0143! 
Py EnDTE a 07085000 7 OYsato 
ENBUFF ve 'GETSPack (41s 094 ¥: + 23 07086000 7 014440 
FIR STCARD ¢ GETSPACE(100001)423% O7TOR7000 tT 014641 
% SET UP OUTPUT VaRIABLES3 07088000 T O0j148t2 
IF PRICPiMIXs@25] THEN% 07089000 + 014882 
BEGIN OU ¢ LABELASCRATCH(T ©¢% 07090000 T 014498 
: TAPELABEL CY CONTROL ts "DECK We40491900 07% O7O091000 7, 015044 
. If OU<O THEN GO INITIATES BBEEN DS"ED 07091300 7 015341 
» FORGETSPACECTI3&% 07093000. T 015530 
PBC3).Ceaty]iz0s & DUTPU LAG FOR LOG 07093010 T 045513 
END 07094000 7y 015881 
ELSE BEGIN OUTBUFFOLD © OUTBUFF © GETSPACE(602091)4+03% 07095000 Tt 0458! 
RESERVE © GETSPACEC 3020014254 07096000 ¥ 016393 
HK. ©, (MEGETSPACE(30+0012¢2]38300 8136810133 O7097Q00 T 016640 
OU « 1834 s 07098000 ¥ 046983 
ENDS % 07103000 y O17082 
STARTIMING(520U)3 07104000 fT 047082 
FPBtsPRICPIiMIxe3)3 % STARTIMING MAY HAVE MOVED IT, 07104500 7 017132 
$ SET OMIT = NOT (PACKETS) é a 07105499 7 O1473%0 
% BEGIN ONE QECKS : 07106000 T. 017350 
AGAIN: — -OUTBUFF + OUTBUFFOLDS% TO 
Le N © O38 07108000 T 017343 
$ SET OMIT = NOTCPACKETS) 07108099 7 017510 
$ SET OMIT = PACKETS OE L08999, a 2 47340. 


OVTOhy 
017740 


MOVE C20s CHC OJ I]»CHL10]))3 07112000 T 017883 @ 
H{8)+2003 Q og y 0180! 

| : 07413000 7 Of8240 
07114000 © ~OLbato 


a7 11 e0o8 “O182t0 
07115200 


ENDS. 
“BEGIN ONE CARDS 


SET omit = NOT (PACKETS) 


NoT 
IF FIRST Seen 


oer oo OF F WH = 


Or1teo00 + 16 
Me a BEGIN: | hee ee o7147000 + 
ie $ SET OMIT = PACKETS PRETTY: yr ...018333 
ib FIRST?:sFALSES er iilees y. 018393 
12 : Poe OM ul. ! e . 
1 


018610 
018610 


o18eto 
feet 


azsssone 
07119041 


07120000 
eeacee 


IF ; NEQ 4 ek 
NOT CPAGKETS ) 
GO KR 


1 be 

BOMBTIMES 07121000 O1a7 ty 

IF OU < 16 THENS 07122000 018880 
3S P BEGIN 0 O10 0;8A3 
Spy NOTCPACKETS) 07122999 7 01898; 
sOr ae 3 TeWALT Oc INBUFFLES00C 81331151 O7125000.7 0 vty 
5 7 ; acre. : (95800 +. 049 
8 : PACKETS | 07125599 
29 f IF NOT ENDCARD THEN GO TO INLS 07125600 

wee  OMET NET CBACKETS) : ere “Os 

py ae MPINBUFF 42. e437 006000000000: 07127500 7 

Pee Age ete ow T-# WAITIOCINBUFF@ 420-01 07128000 

‘ SUPER?3 07129000 

: $ SET OMIT = NOTC(PACKETS) 07129099 

ps $ SET OM[T = PACKETS 07129999 

ee x “STREAMCX#S*CONTROL" 2 INGUFF D3 07130000 7 049833 

BEGIN SItsINBUFFR 07130400 O2008, 


Et IF SC NEQ “E™. THEN 


: Q2001; 
BEGIN $1 ¢« Szy#1s GO TU E ENDsS 


07131000 


7 0201%0 
St ¢ SI+33% 07132000 r O201%2 
If Sc =" " THEN 07133000 tr 020133 
BEGIN SIT « SY¢1s GO TO. L END3S : 07134000 y O20211 
OD] * OC Ms OL «© O1eigs% 07135000 7 O2d2t3. 
If 7. SC w.O0C THEN X ©. TALLYSS 071436000 7. O203%) 
ENDs% 07137000 tT O204%0 
If P # 0 THEN GO TU AGAIN ELSE GO TO EXIT;% 07138000 7 O204%]4 
$ POP OMIT 0713800 02058 
= Bea ENDs4 oh 07139000 7 Og05t3 
age eR po THEN. SLEEPCLDJ+NOT OF os, oie De o7 457300 7 -0a0513. 
_§ SET OMIT =. NOT CPACKETS): oe 7 : ‘ 9909 7 “O208t3. 
MOVE (10+ INBUFF »OUTBUFF)> % ae tT 020883 
$ SET OMIT = NOTCPACKETS) . 07140099 tT O210%4 
IF Q THEN®S : : ee _07141000 7 02103 
25 SIN IF L IV. 6 FN DIN : 2 ee 07442000 7 Garon. 
| S oP 83000 
DISKTOCTs1*RESERVEs 302A )3% 07185000 T O216t2 


Data Documents/Inc. 


* . * Gi 5 3 a BS 5 Ti = mm < x. 3 > 
3 og D iD op 3 ie ee ea z. eS be e : 


SLEEP CLTJ]* IOMASK) 3% 07146000 t O218!2 ®@ 
Mi lel MOD 3Xx10+9+RESER + N33 —__—________O7147000 7 _Q22gto : 
: * 07148000 7 Og24to 
i O7450000 7 0: Pao 3 
“ELSE MUL *(L°N)x10¢9*UUTBUFFI *€ N3S 07151000 O227%2 Ie 


L « MCOUTBUFF +9) «© NSS Sees ech 


023510 
0 


ND 3% 


: 
r 
¥ 
4 


TF N = 12000 THENS | O7tsag00 7 
BEGIN T GETSPACEC1Us020 929% 07155000 7 | | |@ 
PERE AMC ARDs 9 : a £000 oN og i Pee 9 
F "BEGIN DS « 32 LITX 07157900 T 024210 
SET OMIT = NOTC(PACKETS) 07157099 + O242N4 1@ 
M 1 
THAN 12000 CARDS IN "3 13 
fe ; | : 11 @ 
ees STCARDSOS¢OWDSJDOSeLIT. Me"; i 1 : 
ENDS% 07160000 T 024781 1g 
GO.TO. SKIPIT3 07161000 T 024782 |@ 
END3% ¢ A2N00 O24 90 Ng 
ok ch: ¢ aeraee MOD 6°* 0. THENZ 07163000 T 024910 19 
“BEGIN R +N DIV 39233 07164000 y O252%4 py @ 
Ae ADRIS ee 0 AS O00 0 } 21 
OUTSUFF * OUTBUFFOLDJ& 07166000 7 0255%2 22 
DISK IO(D*OUTBUFF*15600A)3 07167000 tT O256ty 24 @ 
END ELSE OUTBUFF ¢ OUTBUFF +1038 07169000 T O0258%4 24 
SET OMIT = NOTCPACKETS) - ae 07169099 T 0260°0 25 
SET pol ® NOTCPAGKETS) : 07169499 T 026080 | @ 
SET OMIT = PACKETS 07149999 026040 2 
if NOT ENDGARD THEN GO ia INLG% | 07170000 T 026040 28 
$ POP OMIT 07170901 T 026132 7 @ 
07173000 + Og6ate. 31 
07174000 y O265%y so] @ 
O7175000 7 O267%0 83 


0268%2 
026983 
o270! 


ae a 
te to co Shen 
BEGIN 

DISKIOCTsOUTBUFF 712 60sA)5% 


07175400 
07175200 
07176000 
07477000 
07178000 

ge 4E sin, : ood 07178;00.. 
BEGIN HC8] © R+2; 07178200 


4+ 


27313 ” 


= 

FORGETUSERDISK(A+20R*198)3 07178300 t O277%4 «|@ 
ee 07178400 1 02798 «2 
"99479000 T O279t4 ‘ 

0F179050 T 028140 4®@ 


HE Bo 07179300 
NOT (PACKETS) 07179399 

ENTERCONTROLDECK(H)3 07180000 
SEAS, 07180009 
Cp To eee Tees : 07181000 7. 
" ERRORG C12e0s0)e238 ae 07234000 
‘$ SET OMIT =. CKETS) ae O7214099 
SET OMIT = PACKETS 07214999 
STBEAMCFIRSTCARDsT 13% 07215000 

BEGIN OS « 16 LIT "#READ ERROR FOR "5% 07216900 


SET OMIT 


SET QM]T 


DS « LIT Moms 


“07219000 


SKIPIT3 


Data Documents/inc. 


oweon~ @ 7 F& wh = 


== 
= 9 


Aca 


tS 


A OE 


TRYAGAIN! 


OO BEGIN Boa 
BOM 


PACKETS 
END UNTIL ENOCARD Ax 


$ SET OMIT = 


s BOR OMyT 
$ SET OMIT = NOTCPACKETS) 
[fF OU < 16 THENS 
SEGIN 00 BEGIN T ¢ WAITIOC 340000005, 060,0U5% 
- BOMBTIMES® i 
END UNTIL T.C42t233% 
“TT ¢ WAITIOCS 4000000! 1 06000U)58 
ENDS 
ELSE FORGETITs% 
uQ TO SUPERSA 
Bombe: FORGETITI: 
“EXTTE. “SLEEP(UTOGLE) /STATUSMASK)3 
oe If IU GEQ 23 THEN UNI TCODEL IT UT233 1203 
S$ ¢ IU} T © 33 STOPS2 
S ¢« Ous [T © B85 STOPS4 
FORGETSPACECINBUFF 03% 
FORGETSPACECFIRSTCARD 3% 
IF OU 7°16 THENS 
BEGIN FORGETSPACECH) 3% 
FORGETSPACE (QUTBUFFOLD)4% 
FORGETSPACECRESERVE ) 34% 
-NDS% 


‘END COM235% 
PROCEDURE STARTLOAONCKTR 93 VALUE KIRS R BAL KTR 3% 


eee 
07221999 


START OF REL SERMENT? DISK 


BEGIN REAL HORsSEGOsI*F*eTe cs ARRAY SHEATE*)4 
LABEL TRYAGAINsLOCNTRL eOISKS 
STREAM (Ro CHR TAD ES ae oe 
“BEGIN SIT * KTR3% 
Rego TB SC UP THENE 
BEGIN SI « SI+ei3 GO TO L END#® ¢ 
D1 * LOC Ks DI © DI+6s DS © 2 CHRSS 
END3% 
Com PSS 
T # KTR, ciseysuwyse ie td 
IF cc. NEG "MT AND C NEG "DK") OR 
cc = "DK" AND CDONLY ) THEN 
SPOUTCT INX MET#1)) 
ELSE BEGIN C + C = "MT"5% 


If (AOR esOIRECTORYSEARCH(PCLOCNTRLI»PCOTSK) #39) ¥ 0 THEN 


SHE AT t= TMUF12GETSPACE(319000)#201 & 3008338819); 
STREAM(S:=F"]15 93=F)s % ZERO OUT THE SHEAT ENTRY 
BEGIN 
§11#S3 05:30 WOS3 
END? 
SEGO. as. GETSPACE( 300000) 423. Pane 
DISKWALT(#SEGUs 30* MCAHDR INX 10))3 
F.CFF) t= HORS & CORE ADDRESS OF HEADER IN cFF] OF PARAM, 
SHEATI7 } t= SEGOs 4% CORE ULE OF ed ZERO IN SHEATE?] 


Ass PCLOENTREDS 
oe wf ¢ 4 F 


—SHEATC2) $e 00 8. t 2cesae tow : 
& (at) IN SHEETC2 MEANS SUPRESS TRETAG aE Ssicee 


o7razzo00 


Beerqe 


029680 
er 


WORDS 


00474 


07222099 O297%2 
07223000 0297892 
07224000 029831 
07225000 7¥ .O300%2 
07226000 ¢ 030230 
07227000 03033 
07228000 tT 0305%0 
07229000 r 030580 
07230000. 0309%0 
07231000 7  O0309%2. 
nll deh Y baree 
07232500 
07233000 T Osists 
07234000 7 031830 
07235000 0324!0 
07236000 tf 032193 
07237000 Tt O322%2 
07238000 7. 0323! 
07239000 T 032493 
07240900 T O325%2 
0 N00 ‘K 
072402000 T 032614 

- SYZES Q327 
07243000 Q000t0 
ADDRESS = 
07244000 t 000080 
07244,00 tr O000!0 
07245000 Tt 000080 
07246000 Tt 000380 
07847000 00031 
07248000 ry 0003%3 
072499000 r 000414 
Q 0900 000530 
07251000 7 Q008%4 
07252000 tT 000583 
07253000 OQ078 
07253100 tr O009%4 
072549000 y O011%1% 
0 000 0013!0 
07255400 tr 001844 
07256000 y Qotett 
07256400 T 002110 
07256600 rT OQ025%14 
0 6800 0026! 
O7257000 Tt 002643 
07257200 7 OoOa7ty 
O7287400 7 O0eTIa 
07257600 y 002983 
07257800 Tt 0032%2 
07258000 Tt 003333 
07258200 7 OO3StO.. 
Q7 25600 7 “O036%! 
07258400 tT. OOart2 | 
07258800 T 003993 


Data Documents/inc. 


a é 5 ; eS 2 a eS = aS 5 x. x » 


LOCNTRL #3 
, Kets 


$ SET OMIT = 
$ SET OMIT = 


Gi 


$ SET OMIT = 


Ee 


NOD» % 


VALUE BeCUUNT® REAL BeCOUNTI a 
BEGIN REAL IsTsNsAsTUSTAs TEL BUS 


‘$ SET OmtT = 
Lt 


S SET OMIT =| 


NOTC PACKETS) 
LABEL Le EXIT, Gis 
NOT CSHAREDI SK ). 
AteBeCiSti5)13 
TUSTA2 SMC ae1);5 
LOCKCONTROLDECKSS 

AtSFIRSTOECKs 
NOT CPACKETS). 

145 (GETSPACE (442070) 42) INX TUSTAS 


If A @ 0 THEN GO TO -EXITs% 


DISKWAITC= Tre ias2A)3 
ASIMCI+6),0CFI3 
NOTCDATACOM AND Rgk ) 


07268100 
07269000 
07269099 
Or270000 


07270099 . 


07271900 
07272000 
07272500 
07273000 
07273099 


07274000. 


07275000 
07276000 
07278000 
Q7278499 


O7279IA00 | 


precios 


4 tle a 4 |: 


ab te we 


SHEAT(A6] t= SHEATCA7] $3 @3777777777773 & TIME LIMITS 07259000 y 003983 @ 
SH ATLAS t= MUN VA U ae 07259200 I o 80 
SHEAT(C20). t= 4b X CORE ESTIMATE 07259400 7 004394 : 
SHEATC213 #= 1505 RB STACK SIZE 07259600 T O0aata — 2|@ 
- cm oy qo O7 259800 004533. 3 
STREAMCAS#O & S t= P( ,SCHEDULEIDS))3 07260000 7 004583 4 
BEGIN preou2uu T OU4780 |@ 
S[t%=sS5 : tear cute ee rae : ye ite 6 
JSTCSKIP Sas SKIP DBs TALLYT=TALLY+33 07460600 tT OOM7hy ? 
TF $B THEN ELSE JUMP. ouT)s 07960800 tT 008894 /@ 
- pstas Tp AtaTALL YS O7261000 TF. O04gF: . ae 9 
END STREAM STATEMENTS 07261200 T O050%4 tg 
07261400 T 0050%e 1@ 
07261600 J  0050%2 os bes 
7101.38 I> “S SCHEDULE NUMBER “07261800 T fio “hy 
CLOCK + PcRTR) DIV 603 07262000 + 1@ 
SHEAT( ES) ts HOReLFFI3 % p1SK ADORESS OF FILE REaAnER O7z62000 7 05583 i 
STREAM(C> T)3 07262400 7 0057 #2 16 
BEGIN 07262600 1 00582 |@ 
DIts01+163 ere ee 0726280 0058 19 
DStS34LIT"CC EXECUTE LDCNTRL/O 1SK#COMMONS") 07263000 1 005633 . i, 
SI#LOC Cs DSts8DEcy 07263200 7 006340 bd @ 
—DS#76LITMIENDs e™3 Sapte ected ca flan te eens 079483000 00632 ' 21 
END STREAM STATEMENTS 07263600 T 006489 24 
MCT] $® OF MET#1] ts 4103 07263700 T 006433 3 @ 
SHE 2 6 = | “SPOS R Q 8% 333 J: Se Bee Ret Pantene: erates | ; i 24 
DISKWALTOCTe 11 SHEATE GI CRIS 07264000 + 007014 25 
FORGETSPACE(T)3 ae | 07964200 7 007214 2 @ 
NDE PENDENTRUNNE RCE MRA 60 Feeney eee eae re F 244400 Oo 0 2 
END ELSE 4 IF IN DIRECTORY 07265000 Y. OO74%4 fe 
BEGIN 07265100 1 OO74!4 /@ 
NN a 
60 TRYAGAIN3 07265300 7. 1 a 
MLDENTRUMS 07265400 7 1 
Dis! Ea reeee ane eee eae ie AO: } 
END: 07265600 T OU81%0 
ENDS 07260000 T oceito 1®@ 
6 e O00 UVO8G 36; 
Pi, eas  SyZEs 0082 WORDS a7 
PROCEQURE TABLEOFCONTENTS(BsCOUNT) 4% 07268000 . oo00to | 4@ 
mee ain START OF REL SEgMENT# DISK ADDRESS # o0 77 


00000 
0000%0 
000030 


00000 4 
oon0to a @ 
000016 45 
0003%2 ‘6 
000582 | @] 
0010!92 ; 
001184 as 
OOluty 1@ 
001410 5) 
001584 5 
001633 st @ 
001984 
"O01sty a 
SOLE. . sd @ 
O0arty : 
oFe 1 1 
e@ @ 


Data Documents/inc. 


@ e 
e STREAMONs Ts TUrBUs1)3 07284000 T e 
BEGIN SIT ¢ LOC NZ S]_¢ S1+135% 07285000 1 
| | ! NOTCPACKETS) | 07285099 TF 
@ 2 ee ste ah OMIT = PACKETS - aes hs pela et oe 07285999 : R64! 
Ae aPeeenoy Saeeto 
® 07266100 002830 
DStes LITh wy oe | 07286500 7 002840 
& cee ee es Ss 07286501 O0R9N, 
ws NOTCPACKE oe Sees Ope aged  - 902¢ 
NOTCRYE AND DATACOM ) 07286599 002984 
er OStsa LIT " "; 07286300 002984 
“ ‘ ‘i 7 : : mone] $ 
oe | $ SET OME? 3 “PACKETS we nooters 
eo“ ee ee “0s ae ur a 181 ie r 003082. 
| IRD Caan REA GRRE D | | © ON3tts: 
$ POP OmyT i” 07288090 003232 
eo, $ SET OMIT = NOTC(PACKETS) 07288099 0032%2 
ee eee ¢ RYOOO oTe , 
: SPOUT(I)3% | 07290000 7 00325 
@F $ SET OMIT s NOTCRACKETSY 07290099 7. : ; 
; ‘ [} a ; ; OF 2 Ot Ooo 
: EXITSIF N®Q THEN | 07292000 
OF {BEGIN STREAMCI)3 07293000 
2 ; 2 Q 93099 
ale | OMIT = PACKETS ; | : 07293499 T 
i |  DStet8 LIT " NO DECKS ON DISKeN; 07293200 © 


OM I 
. SPOUTCI)3% . 07294000 
OMIT = PACKETS 07294899 
END ELSE FORGETSpACE CI) , 9 o 
OMIT wes he ee 07294901 7 
GATT = dette : ey ar ae O7agnods T 


07297000 004514 
s 4 
PRUCEOURE REMOVEDECK (Ns TUSTAISVALUE Ns TUSTASREAL Ns» TUSTAS 0 298900 °F 0000t0 
eS : ve START OF REL SEqMENTS OFSK ADDRESS 
_ BEGIN REAL” ToToArLisdaTebarven | 07299000 7 O000t0 
$ SET OMIT = NOTCPACKETS)  - s 07299499 y O000tO 
LABEL LoEXITsREMOVEs& 07300000 000080 
LOCKCUNTROLDECKS3 07301000 0000!0 
If (I ¢ DIRECTORYSEARCH("DECK "sNs5)) = 0 THENS 07303900 000632 
NOTCPACKETS) ~~ | : 07303499 7 000613. 
BEGIN-I * GETSPACE(Ss000)4+23% 07304900 7 000833 
_STREAMCN® 123% ae 07305000 r O014%2 
= NOTC(PACKETS) 07305099 OO12%2 
PACKETS 07305999 
BEGIN 9S ¢ 6 LIT * DECK "33% 07306900 
3 | 07306004 
SI # LOC Ns SI] © Sl4#l} DS ©°5 CHRIS 07307000 
OS + 43 LIT " NOT ON DISKe"s3 o7308000 


ENDSS 07309000 001694 


CeeVTee Tess 


GO TO EXITs% . 07310000 ' 001632 
07311090 0019180 
07311199 7 OOL9I0 | 
oe | O7311499 7 OOLFtS ee 
mi UE, EE Os J E fy ate ~~ OPRSL2 000 +7. .00: Qe 
IF (At®FIRSTDECKIR(Lit2=1.CFFJ) THEN 07313000 f O02it2 
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BEGIN 07314000 7, 002333 

SE OM s PaCKE TS eat ere zat! 002 Ls 

pen ar . IF SE TRRTOECK (aLai89 ee bo 07314,00 7 O024%1 

$ POP ON]T 07314101 7 OB26t3 
OMIT « ior (PAC! 3 109. 002633 


POP 


DISKHA[T(KLUMP> 3,0 ]RECTORYTOPS3)) 


SET OMIT = NOTCPACKETS) 


10 Te fic MOVES 


ENDs 
dood, (aasisies 


Baia soo T 002633 
T OC28!02 


pelle 


00283 
07314400 002910 
07315000 ¢ dQ02gto 


Be eg . t 6000.7... 0030 
REPTUVA TERE RY 07317000 0030%1 
07318000 0031'3 


IF (ViSMCU46),0CRI)=0 THEN 
4 . 


“Te V 4 Lt THEN 
BEGIN Ae vs GO TO L ENDSx 


a’ 


nde) CoP FaLe 


NO mA i at i 


DISKWAITCve 30eA)8 
IF L2 = O THENS 


7 ne NN es : 
SET OM]T = PACKETS 
~~ LASTDECK1 843 


SET OMIT = NOTCPACKETS) 


POP OMIT 


T 
T 

oF348019 00348 
7 


07319000 fT O035%4 
07320000 tT 0036!0 


07321000 t 003783 
07321001 tT 0040802 
0 ak S D040 

07322000 T O040!9 
07324000 y 004483 


07325999 
07326000 
0732600 


004 3%0 
0043%3 


1 4 


07326099 T 0043%3 

DISKWAITCKLUMPs 34 DIRECTORY TOP4+3)3 07327000 T 0043383 

$ SET OMJT = PACKETS 07327999 T 004532 

END: 07328000 T 0045%9 

($ POP OMIT 07328001 7 0045t2 
$5 OMrT 3 NOT (PACKE TS) 07329999 1. 00453 

REMOVES 07331000 004589 

FORGETSPACE(T)3 07332000 0045!9 

Ts sOTRECTORYSEARCH( "DECK "sNe8) CCF IS 07333000 OO46%4 

T © MEI4+9933% 07343000 t O04a%2 

FOR V¢ 4 STEP 1 UNTIL T pox. 07344000 OuS08a 

IF MC14+¥49)20 THEN. FORGETUSERDISKCMC I +yv+9)] ,M01+8))3 07345000 005310 

STREAMCNs T)3% 07346000 0062!%4 

$ SET OMIT = NUTCPACKETS) 07346099 006381 

$ SET OMIT 2 PACKETS 07346999 0063%4 


BEGIN DS © 6 LIT " DECK "3% 073470006 00634 

$ POP OMIT O7 347004 O064%4 
SI « LOC Ns ST © St#13 0S © 5 CHR3S 07348000 006484 

DS « 9 LIT ™ REMOVEDe"s% 07349000 0065t0 

ENDs& 07350000 0066392 

$ SET OMIT = PACKETS 07350099 006633 
IF LISMSG@ THEN 07350400. 006693 

$ POP OMIT ae ane ne 07350101 o0e7I2 
EXIT#t SPQUTERCLSTUSTAL9OF9S9 IF TUST As TBMSG) 07351000 006732 
$ SET OMIT = PACK 07351099 006810 
ELSE FORGETSPACEC1)3 07351400 006810 

$ 07351104 0071380 


fs UP es 5 eR ON ee ee +4 +4. 


07952000" TOOT 110 


0043!0. 


orate 


Se . 3 <n ne Se ee Se Ry 
D & o in ol on 7 o op 
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. * * a . * 3 * E F 5 <a> 


53 = s. 


x ~. ~ 3 


tS A 


A Oe A 


BS & 


INTEGER U3 LABEL ONS ERR: 
REAL Ds : 


rar 3, cistis)- Lik 
STREAMCK# 1298144023 3% 
3a 
"Se 2" THEN BEGIN SleS1+13 GO TO U ENDs® 
en THEN BEGIN DleLOc xy DIleOl+63 DS*cHRs 
; + m4 i OE NU 
Sc = "yt THEN SIteS1413 
S¢a" " THEN BEGIN SI##S1415G0 TO BLS ENDS 
; T "#00003 
JUMP OUT TO END. 
(EN JUMP OUT TO ENJ 


SLssSIeaAs OL seDIeas DSasA CHR; 
“ THEN BEGIN SIe*SI+1s GO TO N Endsd 
B ¢ S\s% 
E% ENODSS 
PC eBoee Nee )3% ; 
FeN, P3I6t6T3 NC 36to]ete§ 
IF Fste" QR Fs," OR Fsts" THEN 

BEGIN IF F2"=" TREN 

° 3IN F 20 TH N DeG TS A €30 2020 + 

LOCKCONTROLDECKSS 
IF C(NS®FTRSTOECK 20 THEN 


BEGIN Fieve"; 
UNLOCKCONTROLDECKS3 
_GO ON} 


wae a 
TRYITS = DISKWAIT CDs 30ND 5. 


$ SET OMIT = NOT¢SHAREDISK) 


NieM(D+213 
UNLOCKCONTROLDECKS3 


ENDS 
FOR U « O STEP 4 UNTIL PSEUDOMAX OQ 
IF. CIOROWCUI FO THEN 
IFCCIOTABLECUL2) EQV NosNOT O THEN 
IF LABEL TABLELU+32 120 
$ SET OMIT = NOTCPACKETS) 
THEN 
BEGIN 


ENDOFDECK(UsMEK@1 93 
GO ONS 
END ELSE GO TO ERR3 
REMOVEDECKCNs MEK" 1) )5 
z#"e" THEN GO [O Ls 


FORGETSPACECK) 3% — 
END ELSE : : 
SPOUTCK INX MEK™£ 23 


IF D#0 THEN epee TePATECa) 
ENDs& 


ae 18s ARK 


oheke 


07355400 t. 


G7 se5208 T 


07357000 T 
07358000 T 


07360900 7 
(07360100 1 


07361000 T 
07361500 7 


07365500 T 


07366000 T 


07368000 7 
07369000 7 


7O0O05 
07371000 T 
07371100 T 
073 00 


07371300 fT 
07371400 7 
Q 1a50. 

07371500 T 
07371600 T 
07371700 T 


O7971750 7 
07371800 7 


07371809 TF 
07371900 T 
07371950 T 
07372000 T 
07372090 T 
07372100 7 
07372200 1 
07372300 7 
07372309 T 
07372330 T 


07372600 


07372700 T 
07372800 T 


07372900 
07373000 T 


07374000 T 


07374100 


005683 
OO57%4 


07372400 T 
07372500. 7. 


elelen Xe 
000010 
Sepia 


o000to 
000330 © 


.0007%3 


Q008%2 


001410 


001533 


001784 


poare 
THRE 
O@2uty 
00 $ 


Oo29gt2 
O03at2 

OO38% 
0036!%4 
003720 
00408 

004230 
O04at0 
Q0043%2 
004332 
004582 
004930 
O0agtoO 
005150 
0052%0 
005433 
0056%4 
00563 


Qosot 
006030 
0062%4 
00642 

006533 
00662 
o066% 


07374200 7 0069%2 
07375000 tT OU714%2 
S1ZEs 0Q7 


Oy 378000 T 


07376000. ws. 900080 
START OF : Mabie SEGMENTS is AD! 


o000t0 
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* * . E E a 3 %. Ry 


ae ne lag ae ae lac 20 


BOOLEAN PROCEDURE PRINTORPUNCHNATT (g@PNCH)SVALUE 


HO) 


Ht2] 
HES)» 


WLS) 
He7) 


$ SET OMIT 


' "hoet 


ADDRESS OF BU+i (B)% 
ADDRESS UF B2+14 


“DECK NAMES. 
soralaepeli (N)% , 
i i RO u ARD : % 


RECORDS "USED IN TRIS BLOCK x 10 CR)% 
H030) ARE FILE HEADER* 
Aa k ®, & 
a4 DEFINE NOME 2] del eHlCalaoRsy( 5) 83% ; 
INTEGER. Twa; DEFINE pa ies ent ac oe 


_$ SET OMIT = NOTCBREAKOUT) ~ 


8 ¢ H(O)3% 
IF R = 0 THEN% 


ae “| ( oo 
Loe STREAN (BOB +R 185% 
; BEGIN SI © 8s. DS. « 10° wos ENO} 2. 
MC IB INX NOT OJ © 103 
LF CREADEMFROMDISK © NSL) THENS 
L «+ IBC9]3% 
IF CA @ N @ #PCDUPI¢1) > HO7) THENS 
‘BEGIN helene ela ei 


3 AM 
= NOT(PACKETS) | | 
DSt=? LIT "CC END."3 


$ SET OMIT 3 gaa ona 


FORWARD} 


END}. ENDS ENDS 


ELSE BEGIN IF ic we *PcUPI#10 e 30 THENS 


N TB e CM )33% 
R¢ a3. 
A « A DIV 3413 
eHCA D HC8)4+10)+A MOD Hl8 


 DISKIOCIB+1°Bs 3001) 5% 
HCOT we. HET 


ge? PNCHS REAL 


sPNChG 


PROCEDURE ENDOFUECKCR» TUSTADS VALUE Re TUSTA. REAL Re TUSTAs 


BEGIN ARRAY H[*13% 


REAL Bells’ 


START OF | 


$ SET OMIT @ NOTCPACKETS) 


LABEL EXITS: | nie se 

‘If CHI®CIOROW(RI)S0 THEN GO TO EXIT 
LABELTABLECR+32)] ¢ @1143 
MULTITABLECR+32) ¢ ROCTABLE(R#32) © 0; 
UNITCODELR4+9J3 3-03 


IF NOT Dhak eehay THEN REMOVEDECKCHE2I*2ABSCTUSTA)) ELSE 


BC OSREDT OR IE EARERCaPBE CK: 
row © OLSTEP. i 
BEGIN B ¢ 135T % 

IF (MCB"2] AND JOMASK) = 0 THEN 


meH(2)> 14)*DEL 3 


sap g ——SREEPLAMEB™2112 LOMASK) 
ENDORSE aes : 


FURGE i401 fiatisi-2)3 


Tp & -Frxes TIMING, PROB, 


START OF REL SE@MENTS DISK 


EL SEeMENTS OYSK 


WORDS 
@0187 


00187 


07379000 T 000030 
) 0 () 
07381000 T O000tO. 
pil doh Q000to - 
A 3HOG. OHfooth 
Spasicde + 0000tO 
ra etapa T Qo0Qato 
BOOO0 D000 () 
07387000 T Q000to - 
07388000 7. 000080 
07388010 YT. .0000t0 
07389000 fT 000080 
07390000 7 000483 
07391000 7 000213 
ay 2000 7 | (3 
: TT. 
Gs »3< 945007 “OO1061. 
07394500 1 O011!2 
07395000 7 001430 
07396000 T 00453 
07397000 7 Q01733 
soraeeaes T 002140 
08400 H022% 
07398,09 T 002384 
07398200 rf 002384 
i 
07398300 7 002433 
O7399000 tr 002483 
O7F00000.F On 1 
07400400 7 00300 
07400500 T 003181 
07401000 003310 
07402000 T O0036!2 . 
07403000" tT OO38t3 — 
O7408N00. Tt. On60 . 
07405000 tT 0041432 
S1ZE= 0042 
07405300 T 0000!0 
ADDRESS = 
07405410 7 O000'O 
07406000 000080 
ADDRESS 
07407000 Y Q000%0 
07408900 eKeKekeR Ae) 
07408099 T 000% 
07408500 fF 0000180 
07409000. 7 ..00004%0 
07409100 tT 000233 
07409200 T 000482 
07409300 Qoo7 
07410000 7 000983 
07440100 7 Oo1ets. 
og THY A00 ; ats 1 ee 
07412000 tT 00147840 
07413000 7 OQ1B8t0 
O7414900 09208 
07417000 T Oo28T3 


$ SET OMIT = NOT Re e2 


INTEGER 


» : pe Qo AY: , ~ 
ROCE DURE STARTADEUKUN A N 


_1eres 
MEAL SOEGs 
AREA ACedRS 2 
o LABEL AGA INASTARTS 
START! 


rArse. 


LOCKCUNTROLDECKS3 
AGAIN! . 
IF PSEUDOCOPY > ; 

NLOCK 


06463300 ACCIDENTAL ENTRY AT 2 


TARTO 


END3% 
FOR R_+ 0 STEP 
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g S , a % 8 * a Ry s- 3 Th >. BS 53 


SPOUT(5)3 
GO TO EXIT#S 
POSSIBLEt& 


 HeCEOROWIRJ © EM 


L3 DISKWAITC*Ss30sA)3 


- ONT 


“Tr CRUNUMBERe RUNUNBERYI 1>0 THEN . 
sls Maas TUSTA. CLt4) THEN *HO2] ELSE O93 


GO 10 STARTI% 


amiss teat EXITehePOSSIBLE*NEXTS % 


ONTROLD 


UNTIL PSEUDOMAX DO 


3 CHRIDSIs7L 


i es Loe Bi a ey 
SPOUT(S)3 


KS3 


DS 36 


T" 


IF NoCiti) THEN BEGIN SOED*ABS(N)S Neo ENDS 
IF RUNUMBER LE@ 0 AND N®Q THEN GO TO EXITS 


THEN®S. TOO MANY COPIES CONTROLCARD 
IF STARTOG AND N®0 THEN GO TO EXIT % 
ELSE BEGIN STARTOG * TRUE 


es 223% 


~ ot TF Gd DROWERI. ® 0 THEN GO TO POSSTOLEs% 
Cae REAM(S*S@SPACECU))3 
_OSte27 LIT" ALL " PSEUDO"RE ADES Ss. IN USES"; 


“TR CATSFIRSTDECK)#O THEN GO TO ee 
LABEL TABLECR4+32]¢20@ 1143000 
+GETSPACEC9ds 20 
MCS"2)e[9%36], « OF MLZ) © O38 


N# a 
BEGIN 
IF H{21, C1282) THEN. G0 TO NEXT; 
[FOAL 4), N 
BEGIN 
STREAMCASS(CHC2))» 
QM = NOTCSHWARED 
$ SET OMIT. = PACKETS eee ee ee oe 
ae ou BEGIN STMsagSLtaSyo) 
$ POP OMIT 
$ SET OMIT = NOTCPACKETS) 


IN USE"3_ 


tT" Op 


PeEUOnCGRTS® USED BY STARTADECK TO CONTROL THE NO OF "COplES« 
) nae pe esas OF lop tal abehor ta ‘ag yepiole PSEUOOSRE AGERS 


eae ne 


07420400 
07421000 


078200007 
is Gaotenty 


003292 
, o03ats 


0039%0 


OUS1I4 
00 


003940 


eee aeees 


START OF REL SEAMENG Q1SK 


otnes02e 


07820400" 
Graesa00” 


Tene 
07425600 
07425700 
07426000 
07426400 
07427500 

3 AGU 
07427610 
07427620 


") ° 
Bivedee 


07427645 
07427650 


07429900 


07429100 


07499200 


07429300 
074309000 
07431900 


07432000 


07432100 


07421500. 7 
Oneersos t 


ADDRESS « 


: 
t 
t 


caliwa Gee 


U7 AP thao T. 


002882 


() noo 5a 


07434000 
07435000 
() O00 0 
07436400 
o7 esgene 

4300 
rer eTy: 
a aes 


*., OY 


07436320. 


Rcreae 


£00. 


oF aaesUl 
07436609 


O74 $700 _ 
a6790 7 


07437200 


Oo0oto 
000080 


-g00onte 


003483 
0046283. 


0 8 
O05e!4 


“OO86 


“006310 


yar ee 


“900010. 


000080 
OUD £0 : 
00189 
000010 


000080 
000483 
Qou4gt: 
0009%3 
001244. 
¢ : 


ooa0r6 


o031t0 


Q0g7I2 
004182 

004234. 
00433 


Qoaata - 
NOAA wa 
005442 
0056%0 


0058%3 | 


soerae. 
O062ty 


004330 


006510. 
006510 
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@ 
@ CIDROWCAI8=03 . 07437300 T 006830 
___ GO TO EX1T3 THD T 09692 
ENDS). 07437500 T° 006943 
rd] ENO ERS Ee sale i ey : 07437600 7 006983. 
TF HC4]) £214] OR CSpEn#O AND 2ISSDEN) O7 437 A00 9969% 
$ SET UMIT = NOTCSHAREDISK) 07437899 T 007282 
@ THEN GO TO NEXTS 07438000 T O072%2 
H(4JteCePCDUP) R20 ZING t2IRSYSNOL4It46says . 07438400 Oo74t 
DISKWATT(S#300A)5 | 07438200 7 007783 
rd] $ SET OMIT = NOT. COATACOM AND RVE) . 07438250 T 007940. 
: a Oj} ee S43 OFZ poo OO7 E20 
HCl) « S+643% 07442000 T 008083 
@ T ¢ CHE3OI]$ DISKIUCTsL“HEO}s30sHL10])3% O7444q00 t 908282 
at 074459000 T 0086%0 
: fetHi62)is IF HC@le1 THEN” oyaeeeOg L OReLEL 
er. OISKIOCTe LPH 1) +30*H0113) ELSE 07445200 7 009184 
“DISKIOCTS1°HE1),308H(10}4103 . 07445300 + OQ9G1y 
ENDS ) 07445400 T 009783 
S _TEsGETSPACE (1322020) +443 07446000 T ON97Ig 
$ SET OMIT = NOTCBREAKOUT) ee _ 07446 0100!0 
MET OUNK $0] fe HES D3 07446400 T 010040 
or $ SET OMIT = NOTCPACKETS) ro | 07446149 T O102t4 
in HE3] $3 Hea] 32 HLS) 12 HL6) 8% 03 th ee 07446200 T O40a8 
P MCT#*4]6£986) © O83 07447000 T 010682 
@ > LABELTABLECR+32]¢"014; *LET IT BE MOVED 07448000 T 010933 
: LeREAVEMFROMDISKCHe LM ¥10(68:38310))3 07448500 ¢ 041133, 
DE a INDEPENDENTRUNNER(P( CONTROL CARD) »Te 07449000 TY O115%0 
@ -: $ SET OMIT = NOTCDATACOM AND RVE ) 07449099 y O1158%3 
’ R $612195) 07449500 0 5 
be PSEUDOCOPY ¢ PSEUDUCOPY + 13% 07449500 T 011783 
@ F = Se nennees 1) LEG 9 an N¥QO THEN GO TO EXITS 07450000 T 011980 
0 AGATA 50500 0) } 
NEXTIIF Chishtey, CCFI)#0 THEN GO Te Ls ne 07451000 tT 012310 
@ “h IF len THEN 07852000 7 O125t2 
O7 aS, 9 
" STREAM(NS S3 07452200 T ECE 
@ » $ SET OMIT = PACKETS 07452299 7, O12783 
B6 BEGIN SJ[tsLOc NéS[t=S]+aspSt=7 Ly" K #5 ae 0745230 Q 3 
P $ POP OMIT . 07452301 T O129ta 
@ $ SET OmrT = NOTCPACKETS) 07452309 T O129%2 
: OS%s4 CHRIOSt213 Tt" NOT ON DISK+e" 07452400 04298 
ENDS 07452500 T 043483 
 ) SPOQUTCS)3 7 07452600 T 0132!0 
END ELSE FORGETSPACE(S)3 07452700 013233 
CIDROWERI © O3% 07453000 tT 013440 
@ EXIT# UNLOCKCONTROLDECKSS , , 07455000 T. 013594 
Np3s% 3) 07456000 T 013883 . 
) SIZES 0140 wORDS 
@ PROCEDURE RUNTHEDECK(B)s VALUE BS REAL BIR 07457000 T O000%0 
START OF REL SERMENTS DISK ADDRESS e& 00194 
BEGIN REAL Io uss 07458000 fT 0000%0 
@r. STREAMCS!wO%BeAsell})3 . 07461000 T 000080 
BEGIN.SI ¢ 83% FO REAL INI . 074861400 + O002!0 
52 Es IF SC =" " TRENS 07461200 T O002t4 
@ BEGIN Sl ¢ SI # 13 GO TO LS ENDS3% 07461300 + 000233 
; IF Sc=#"#" THEN - 07461310 00038 
P “BEGIN: GLtSltsSleigiF Sts* "* THEN GO TO Lis . OFME —y  000373- 
Or. Ves AORERS: LIT*agOg" 105884 ee TO ayy oe 990483 
a CL de : : 3 oe OFM61940 7 OOOGEY, 
ST + i¥ ~  - 07461400 T 000614 
@ 
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g 2 * . 5 * 7 + ° ~. Tk x cs kS ~, 3 > 


IF SC $ "9" TREN IF SC 2 "0" THEN GO TO TWO3 
S]_« SJ] = > OS ¢« 0 4 
“ GO TO EX3% 
TwOs Sloe STo* 43°08 ¢) 2 OCTs 


Tf J THEN 


BEGIN : 
FORGETSPACE(B)3 
STARTADECK(I)3 
END ELSE 
BEGIN is - 
ee eee ATR PSEUDOWAXI THEN TPMNARS CRUBUMBERD” ELSE 
“BEGIN ee , , 
RUNUMBERIS 13 
FUR j#=0 STEP UNTIL PSEUDOWAX po 
RUNUMBER fSRUNUMBER®@(CIDROW(UI20)3 


oF, : 
STREAMCXLselele Chel J »Xas#RUNUMBERe Cleljels2ABS¢1)0B8)3 
BEGIN Crnci ents GO cee OS te1OL IT" WILL USE “sg0 La; 
. D =z tet 
STteLOC oeiee nee 
" DS « 13 LIT " PSEUDOPRDORSe"3 
D3 % 
: SPOUTCB INX: MCBei])3 
IF RUNUMBER GTR oO THEN ATARTADE GK CON 


END3% 
PROCEDURE EXTERNALEND(B)$ VALUE 83 REAL 
BEGIN: REAL UPD LABEL ERITS | 
Be By L15t15}= 77 ; 
Ip 32 $ U AND U § PSEYDOMAXT THEN 
IF LABELTABLE(U] 2 O THEN 
$ SET OMIT = NOTCPACKETS) ae 
“: IF crOROWtU=32) 4-0 THEN 


“ENDOFDECK(U= =32°MEB@1))3 
FORGETSPACE(H)3 


MENDES 
SPOUT (B INX NcBe43)3 
KITPENDS 


PROCECURE CHANGEPRIORITYCBUFF»MIX)5 VALUE BUFF» MIX3 REAL BUFF »MIX; 


START OF RE 


BEGIN INTEGER PRIORI. YS REAL Bs 
s SET OMIT = NOTCPACKET é 
BUFF © CCBRBUFF) [ISIS "2 28ME SPCDUPIN1IE919193)_ 

STREAMCPRIORITYIB)3 
BEGIN SIeps 


aoe T 000682 


Q007 4: 
07861820 
07461530. 
(6) ey a ae 


07461550 T 000984 


07461560 000982 


07461600 


(07461700 


07461800 7 
07461900 
alot 


6 oye 


o7agaad0” 


ik 2 : O47. 
07462400 001880 
07462500 001940 
¢ KA2AD 0 
07463000 ‘O023t1 
07464000 T 002614 
O7 HES 00. + O02 010 
07465000 003044 
07 466000 

Af OU0 
07468400 
O7 86000 

aahe 


07473000 


07473100 
STarnl OF REL SEqMENTS DISK ADDRESS. * 
aratecgs:t 000010 


Byareno0 000280 
07477000 T 000393 


07478099. 


07478800 
07479100 7 poste 


07480000 Ool2%4 


07482000 


Ne ie ay THEN Go TO X3 
Te fulseuaaee T. ia ee pe IN St *St413 GO TO NS ENDS 
THEN | om ae 
+. $7 eS i eo. To K eed. 
ry ae PALLY 3 DS5¢B OCTs GO TO 23 


Ine pie whe 
ST*LOC PRIORI 


~OP4G1000. 
OP ARIN GO: 


07490000 7 9006+ 


af 58 2 


07494000 


07462980. bolets 


7  OO13t2- 
07483000. 7 Q01342 
OF GR ao000 00 one 
S{ZE= 0017 
07485000 Y 900030 
ENTS DISK ADDRESS = 
07486000 7 00030. 
- 07486499 7 000040 
~ O74e7000 T  OOO0tO | 
07488000 T 0005%0 
07489000 Tt O006'4 
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‘s 0 * , a 1 * n a n a yan ae < aS 53 5 53 


WORDS 
00199 


) WORDS 


x3 DI*LUC PRIORITYs SKIP DBs DSe11 SET; 07495000 tT 001133 
Z3 Sere RAG 6000 FT 0012S 
END STREAMS | ; : 07497000 tT O0012%2 
IF SRR TORT EV SRT. 2 o THEN O7a9B8000 T OO1243 
FO PRYOREM ¥ TREN Peers _ OF8O1000 | GO : 
IF TRA MEG IFO THEN 07502000 T 0015%4 
BEGIN JAREMIXe2]eLCFJ]e PRYORUMI yle PCPRIORITY~ 07503000 T 001633 
LF_PRIQRITY232766 TH 32766 ELSE PRIORITY» DUP) & PLCTFIS 07503500 T 00193 
STREAMCU*JARECMI Xs *]oMIXsPRIGRITY *BUFF D3 07804000 7 002313 
BEGIN DS*10 LIT " PRIORITY="; 07505000 7 OO025%2 
“SI*LOG PRIORITY) BUFFeO1Ls D0S*6 DECs DI*p1l 63 -O7506000 t 002710 
DS*5 FILL; DL +BUFFS DI*DI+6s DSeL TMI"; 07507000 T 002880 
Sley3 Slesl¢1s D0Se7 CHRS SIesi+13 OSseuIT sn; DS«? CHR} 07508000 7 0029%4 
OS*LIT"s"5 SyelO Te"5 07509000 T 
“orworeas OSeF ILLS ae 07809500 7. 
: END ENDS eae 07549000 T 
_ SPOUTERCBUFF SUN TNO, 4030 O7811000 7. O033t1 = 
END aT CLEA SARE 07512000 T O034%0 
SIZE= 0036 
PROCEDURE El RCONTRULDECKCH)s VA Hs AKRAY HE «13 Loo O000%0 
| we eae ae | START OF REL SEqNENTS DISK ADDRESS = 
BEGIN REAL ReSsTeTlsT2i 075420900 T O000%0. 
158 ae une 0 HOD 0000 ) 
$ SET OMIT = NOTCPACKETS) 07543099 y+ 900040 
Te"DECK "@HCGICL8472133 & FOR SCRATCHDIR DELETE 07545000 T 000080 
=NF » ; estes , ” iio 
DySKWAITCKLUMPs 32D fRECTORYTOP43)3 x CHANGE LASTCONUM ON OySK 07547400 T 000433 
$ SET OMIT = NOTCPACKETS): O7547499 T O00bte 
MoO 2 @006 O00 340003013 0! HOOD OOK RL 
$ SET OMIT = NOTCPACKETS) 07548099 T 9000783 
STREAMCDATEsB8*lH[3]))3 . . 07549000 tT 000733 
BEGIN ST¢LUC TEspSes U Tj sD1¢O1"8 DSe2 LIT"+7"ZENDS ees 07549400 000980 
ot HLA) ta 08 neces 07550000 y 0010382 
$ SET OMIT = NOT: SHAREDISK on 07550003 T 061184 
E. 443 oe {0} 0n10 00448 
Hide CXCLOCKsP(RTR) OHLSIL6? 3021 OIF 07550400 7 001233 
HL2}$ SS! oO 14 QO 42,634 226 JaSp 128 248 |4 j gO37 (36814236); 07557000 T 0015!3 
TItSEUF(T»Sah, CCF I™4)3 es 07559000 T 00202 
$ SET OMIT = NOTCPACKETS) 07559099 7 202382 
HO2IJeLASTCONUMS 07559500 T O0023%2 
If FIRSTOECK?0 THEN FIRSTDECKS3T1 ELSE 075600900 T 002413 
BEGIN 07561000 T 002683 
$ SET OMIT = SHAREOISK 07561990 T 003080 
LOCKDIRECTORYS 07562000 0030!0 
$ POP OMIT 07562010 T O036%2 
DISKWAIT(#(I3 8SPACE(30)) "30> LASTDECK)3 07564900 T 003642 
ME L46 ‘CR JIstd3 07565000: ooact 
DISKWAITCI »=<30eLASTUECK)$ 07566000 T 0043%0 
FORGETSPACE(I)3 07567000 T OQ44ita2 
$ SET OMIT = SHAREUISK 07567990 T 004584 
$ POP OMIT - 07568010 T 004883 
END} 07569000 T 004813 
LASTDECKt=T |S 07570000 T 004833 
CISKWAITCKLUMPs*3eDIRECTORYTUP43)3 07571000 7 O0049%2 
UNLOCK TOGCCDMASK)3 ———— 07572000 00548 
TF RUN waER GTR 0 THEN ARTADECK(O)3 ~ 07873000 T O055t0 
| : Mi gute Ors7rsocgar, 00a7t0. 
“BOOLEAN SROCEDL E MTXIN Tour sct 3% OnoO0d000 7 “000080 


Data Documents/inc. 


START OF REL SERMENTS DISK ADDRESS = 00201 e 
U,BUFF3 T - jh oF: Velob Wenene 


REA 


1 BEGIN LABEL EXITsx32.- Ogoo2000 7 000 

2 ai inet al FON TAN Ton) BOE 1 secre i 

3 ia } 2 re ~ : 4 ig 4. 

’ IF U > 15 THENS 08005000 T 0004t} 

5 BEGINSSTREAMCBUFF 5 O05 ¢« 8 LIT “INV KBO “5% 08006000 Tf 0005%0 

8 ' q : Qadd7000 00073 

Y END ELSE I+ “TWOCU)S 0g008000 Fy O00e8'; 

8 iid a hata a at celta ale ed ol 08009000 71 001044 ae 
8 : N S$! whew. 53 nS TT" "3 Ob : Re 2 Oaosonoo.:: OO47 22 


i OS ¢ LIT ™ "3 A © DI3% 08011000 7 001380 
Ms ENOS& pao tears T 001393 
er Ma aus LABEL TABLE [U} =. ee OR ‘LABELTABLE (U1 z 0214 THENS ogotagod + OOLate 
My . : oc Fag oe BEGIN aa A : 06015000 T 001683, 
5 ee : a ae cao - AM e{(tl. AND -SA WORD NEO 6. : O15400 7. Horzis 
5 “BEGIN 08015200 T 001984 
u Poet espene aed READY e "3 08015300 T OOlgtt 
54 iV22DI%13 OS3 sb " Dje"): ORO O00 0 Q 
“ ENO} 08015500 7 002310 
GO TO EXIT: 086046000 T O023% 4 
1 NDS % wa 08047000 3 Jo2 7% 
: Ip LABELTABLE(U] < O TRENS 08018000 T 002383 
P BEGINSSTREAMCBUFF)3 DS © 7 LIT "IN USEeZ2 08019000 T 002433 
D ENDS Oa0 0.00 mele iy 
aa . ELSE GO To X3% 08021000 Tf Od27%2 
pf EXITIMTXEN © TRUESS » ee 03022000 T O027%2 
BI) e ¥YIEND SS. | : : : : ate. 
Pt : SIZES 0029 WORDS 
be PROCEDURE TAPEPURGECBUFF); VALUE BUFFs REAL BUFF 3% 08024000 T 0000!0 
0 START OF RE En 


3 Q ADOR = 9020 


P BEGIN LOBEL EX1Ts3 On025000 T O000t0 
P REAL Teus 3) 08026000 00000 
‘ REAL Rat? 202 
: BOOLEAN TESTS 08027100 0000%0 
p REAL WHAT = BUFFS% 08028000 0000%0 
IF MTXINCI*UsWHAT) THEN GO TO EXIT3% 080 
‘ ~. STREAMCBISBUFF eo TeCT]);3 TLE 

BEGIN SYt3B; SETRS L405 Osdz29020 FT 000484 

IF SCa"=" THEN. oso29o25 Tt 00 on 


BEGIN S]s#SI4+135 
5C1F SC=%e" THEN SUMP GUTS 
TALLYSETALLY #135 22S T4193 


=p 


LABELTABLE[UJ+@2143 


Ab IEF 30 Le 
LABELTABLECUI «© 61143 


a * * ey * * BS 


08029035 
080299040 


0031100 


TUPLE 


000St) 
0005%2 
00063; 


BRasTALLY3 Cuda OStaB OCT; 09029045 T O007%2 
ENOL 08029050 T. 000883 

= ENDR 09029055: T 00088 
LABELTABLECU) ¢ eiai 08029100 t 000990 
7 IF CRENAITIOC@500000000%@1772U))#0 THEN 08030000 001082 
IF R4@120 THEN ZERROR OTHER THAN WRITE LOCK 080301300 001233 
ae BEGINASTREAM(USTINUCUI] BUFF 3 08030200 Tt. 0014%0 
BO) ‘REGEN ‘OSe14 Lit. “#ECANNOT PURGE. "3 | 08030300 7 (001543 

es J*#LOC Us SIeS1+53 DSe3CWR: 08930310 tT 0017! 
“DS*LITe"3 08030320 +r O018%2 

ENDS 08030330 T 


001910 


Soren 
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a . am 53 3 x 
a 3 b Zs a h Gg 


IF 


GO TO EXITs% 
FNDS 


IF TRO Te 
“BEGIN: TS @PRNTABL 
STREAMCALSTSBUFE 


vaet3081893 TESTI a. TRUE END} 


BEGIN DL ¢ DL + 7 “DS ¢ 8LIT ™ LABEL "3 
8¢CO0Se¢2 LIT "Ox" )3 

4(pSe¢2 LIT "O")5 DSe- 

Or +. Ole2is St «LOC Ad 


\ T Woes 
DS ¢ 5 DECsS 


~ anmwech + 1 oR “CRE 


PCWAITI0(€4200000000,0sU),0EL)5% 


— @340000012>850 


Se iaihaelenisinadaiti 
3 F OG 
RRAMECH # RRRMECH AND NOT 13% 
READY * READY AND NOT I38 

R= -O THEN BEGING. 


LABELTABLELU] ¢ €@1143 % 


TEST THEN BEGIN STREAM (BUFF D3 DStS6LIT"PGRECe"FEND 
ELSE BEGIN STREAMCATSTs Bie 


RNTABLECUI.£C30%48 
BEGIN DSt=10L1TPG*EDCPRNE"} 
Sttsboc as. 05925 pecs 
OSteSLITewAs. "5 5 
SyTteLOc Bs CS#=5 DECHDS#®2L IT" )e"3 
END 

PRNTAg bELUI. 


Js BUFF )3 


03 {81 a 


ENOZ 
exqTs SPOUT (NAS (BUFF INX: NEBUFF#120058 


END EL SE BEGINS 
CABELTABLETU] ¢ 62143% 
FORGETSPACECBUFF 34 

END3% 


08032000 


08033980 
08033990 


O A)" AAOO 
08035000 
08035100 


Of0 26000 


08037000 


08038000 


08041000. 
0042000 


T 


4a 


arPTTT TN 


08045000 
08046900 
08047000 
08048000 
08049000 
08050000 
080510006 
08051010 
08@51020 
08051030 


08081049. 


08051050 
08051060 
0805106 


(08051070 7 
0a052000 T 


08053000 1 


08054000 
08055000 
08056000 


0026%2 
on Lae 


002730 


ooarts: = 


o034%2 
0033140 


“003592 
Oo36t1 
goat. 


0039!0 


004880. 


00483 
) 3 


005710 


00Sata 


OOb60to 


0064%4 
OCSate 
0065%4 
006910 
OO7O% a 
O071%0 
0072%0 
0073!0 
00733 


0075t3 


007543 
OO783 

0079%0 
0080%4 
008130 


ENDS® ji 08057000 T 008170 
S1ZEs 0082 


PROCED URE GIMEDATE(B*DT)3 VaLUe as 0Ts Sea: Be OTs FORWARD3 aRH 08070000 7 O000tO | 
START OF REL SERMENTS DISK ADDRESS = 

08079000 rT 0000!0 
START OF REL SEGMENTS O[Sk ADDRESS = 


PROCEDURE REWINOANULOCKCWHAT)# VALUE WHATS REAL WHATS% 


Ceereesges 


“RRRMECH ¢ RRRMECH AND NOT I3% 


BEGIN REAL BUFFEWHAT»Us4 


INTEGER 13% 
LABEL EXITss 
If MTXINCI#9Us BUFF) THEN GO TO EXIT$% 
RRAMECH ¢ RRRMECH UR [3% 
LABELTABLECU] ¢ “@143% 

MULTITABLECU] © 03% 
P(WAITIO(€@4200000000%00U) »DELIF% 
SLEEPCUTOGLE J »STATUSMASK)3 


READY ¢ READY AND NOT I5% 
LABELTABLECU] + @2145% 


_ -STREAM(BUF #08 ¢ 5 LIT "RW LOM ss 
T UTCBUFF INX M(BUFF® " 


08080000 
08081900 


Osds2o0od. 


08083000 
08084000 
08085000 
08086000 


0g0a7o00 . 
08088000 


08089000 
08090000 
08091000 


T 
T 


4 og a 


000010 
0000#0 


00000 


000040 
000212 
0003! 


00 7. 9 eh ieee 
“STZE® 0020 WORDS 
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5 5 3 ey FF fs . x 


PROCEDURE PRINTOLRECTORYC BUFF »CUDE); 
VALUE BUFF CODE 3 REAL BUFF se cQDE; 


PUNFUTEMP (SHORT iat a1 jaleolanagiout 


1 
BEGIN ARRAY HORE *TeNBL #33 
: REAL STAsAsBeCoTeCRe 
‘ REAL INFOTYPEsINFOsINFCTEMPS 
7 LABEL cen eere 
6 
4 CREE “GETHORs Ie OUT» ARGUND/XOUT 
: ARRAY. pore 
9 ‘ . REAL USERID SP 
ho —_ NAME ADDR 
bs INTEGER Jiledv2eN3eK{9Ke} 
N2 REAL PRBTOGsLABELRECS 
a: a FINOWHATINGOS 
Nay : eee BEGI ; 
gine eae F INFOTYPES"DATE "THEN 
ka BEGIN 
7 INFOTEMP$ =HOR(C3}),030818)G10184385)3 
a GO GETADATES 
ig END ELSE 
po IF WLS aha " THEN 
: 3 
22) 


RB = = 
6 o 


$8 8 5 eS 3 6 8 8 


STATEME 
$ SET OM]T 


END ELSE. 


VENOE 

NBtaCMESPACECGO2I3460001 3811035, 

(BUFF Ie (CIMBUFF | : 

WOTCDATACQM) 
NAMETOCAsC) 3 

_NAMEID CB» C) 


eer, a 


GO GETADATES 
ELS 


NU 
IF INFOTYPES*RECS " THEN 

BEGIN : : 

SUF (CA EFQV "Pap ") = NOT Oo OR 


“CA EQV. "PUD ") s NOT O THEN 
INFO t= (HOKC7]%5)630194385] ELSE 
INFOt= (HORE? 1916301443151) 
GO. TO" INFQUTS ; 


IF LNFOTYPES"SIZE “mn TREN 
BEGIN PGS=HORCY] AND 6373 


INFO?tsQs WHILE CINFOtsINFU+1) LE@ PG DO ITF 
HOKRCINFO+9I#40 THEN JNFOTEMPSSINFOTEMP4]3 
ee INFOTEMP? =0s 


‘60 TO JNFOUTs 
Dio. 
G@ TU INFOUTs 


GETADATE? 


STREAMCASSINFOTEMP el 3021) o1sSCINFO))3 
BEGIN SIt*Loc aAsDSt38 DEC ENDS 


GIMEDATECEINFOJ SL CFI e*INFO)S 
Cte 3 F 


{NFO ,CEISI R= INE OTEMP 


INFOUTS 


PCDEL Is 


( 0 Np 
}* eg). 
TEE Tren NAME LDCR? C3 


ee At 0. fay QV Ne, . 
TyaNOT 0 THEN ne "3 


aRh 
%RH 


, : ; RH 
cM) aNOR 02 THEN GO. xXQUTS: 


cara 


09096000 
URO9 O00 
08097100 
pee ak bas 
980900 
aadea roo 
09098200 
08098 300 
08098400 


08098500 
08098550 


08099000 
Gacseree 


sO99700 
08099210 
08099020 
08099230 
08099240 


08099300 


URODS 


0a099320 


T 


"08098100 7 


08099330 1 


02090934 


08099400 


. 08099410 


O88 09 9.4: 
09099414 
08099416 
08099420 
08099430 
08099440 
08099800 
08099510 
08099520 
08099530 


08099700 
08099710 
08099720 
08099730 


020909740. 


08099750 
pea at 
A099770 


08099800 


08099900. 
“ QGOB4OT000-' 
08101039 
08102000 
08102 0 


08103200 


0a099540 | 
lala 


ETE 


epeore 


0000! 
aac 


decor 


900040 


0000!%0 
000080 


“000040 
000410 


MOG L400 


000433 
oodaty 
00043 

00070 


000710 


Ondats 
000883 
OG11%4 
0 ie 
001370 
OO14t4 


WO 4d 


001641 
001418!0 
002110 
O027TI2 | 
002810. 
dodgato 
ag029'4 
003184 


“004gt3 


004384 
004 8 
004483 
Ooasta 


Ooarts 


Q04gG%2 
0049%2 
00493 


050% 


o050t2 


D6O! 
006413 
006433 


00658: 


007483 
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7 Ky TS * aS 3 x. RY 
x = 


IF (B EQV "ee "Js NOT O THEN Bete "3 
iz s205 K sak i=M QL om ap. 
IF CODES THEN 
BEGIN — 


Fd, ( 816) NEO 31 THEN JiteKtsaCAylO216)4A,¢24 1241) MOD MOD Us 
IF B, C616) NeEQ a) Tee J3t=K2t=(g,[6818)4B,(24824)) MOD MODULUS; 


EKDs | 
NFOTYPE fQy ‘te "2% NOT QO AND CODEEO) THEN CODEs=53 &R 
TF CODESO OR CCODESO AND STA,(949)%0) THEN oe BRK 
HOR ts CHESPACE (30)39830(61 988 1097 oo | %RH 
FOR Jiteut STEP 1 UNTIL KY 00) 


FOR Jeted3 STEP 1 UNTIL Ke OO 
BEGIN JUSSCRAMBLE(J1sJ2)3 
00 BEGIN 


Tee “0 814 THEN ee 
IF COUEs3 THEN COMMENT UDs Go GETHOR ELSE 


If ¢T EQv A)= NOT O OR (A EQv %e "= NOT O THEN 
IFCNBCI+1jJEQV B)=ENOT O OR(B EQVie "Jenol O THEN 
‘ye IF’ peers AND USERIOe«0 THEN GO To IN ELSE 
GETHORY MEG SR TiehbRsCorlenatreas cored 


SKWAITTCeT ef CF Ff 
TF CODESS THEN IF USERTOSO THER SINDHMATINES ron 
IF SECURITYCHECKENELT J» NBCI +1) ,USERID»eTIZ0 THEN 
Oo ARO 


OD s EN ‘FTIMNE A 
“BEGINS a ance 
S1acancAeCALCULATERURGECoHDAT214(2110)) 864 0)) 
: ae 
oF ‘adHORE 3, ater Oo 
THEN Go. IN: REGE Se “AROUND? 


LE ” : 
IF CCNBCIJEQY "DECK "SNOT 0) AND 
CCONBCI +1] AND @©77000000007777) Fav 
@ 00000003744 =NOT 0) OR 
“FALSE THEN GO AROUND} & eae 
IF CODE s@ THEN COMMENT. SB. 
LIF HOR Sj=s THEN GO ARQUNOS NeHORT6 aK 
IF CODE22 THEN COMMENT UOsCR»SB3 
IFCNOTCCRKESHDORCIF CODES4 THEN 5 ELSE 2).06442))) 
= NOT O THEN IF CODE42 THEN GO AROUND; 
IF CODE=2 THEN IF CPBDTOG+CPCNBET]*0UP) EQV 
"PBD ")aNOT o OR CPOXCH) EQVY "PUD °° My 


$ SET UM]T = PACKETS 


$ POP UMIT 


 acatN 
pom 4 LABELREC®O. RUEH: LABELREC#SPacEe303>- 
DISKWAITC*LABELREC»s 30eHORI10]42)3 
INFO,C{85)¢03 GO ING 
END ELSE ii NOT CR=NOT O THEN GO AROUND; 


Gio 3 2 8 FB 


"ANDGA cay "6 ")ZNOT O 
TO AROUND) bg 


wi 


06103300 T 
VA 10 00 
08103450 1 
08103460 T 
06103500 7 
06103600 T 
08103650 1 
08103700 
06103800 7 
081203900 T 


08104100 
08104200 


08117400 
06117500 
08117600 
—Oali7elo 
08117620 
08117630. 
08117631 
08117632 
08117633 
08117634 
08117640: 
OB117650 | 
08117669 
08117670 
08117680 
08117700 


08118000 


O077%92 
00803 


0o083'4 


—OOBatO” 
0084 


00agt> 


O094%a 
009 4 


) T. O1013e . 
Of1904000 tT 040513 


Gari0c00 = O1ests 
08111000 012383. 
08112000 T O127! 
08113000 7 O132%0 
O8114000 yr 013434 
OR115000 TO 3 
08115060 T 014081 
OBlti5070 + O1448g 
: 
08115100 7 015180 
08118900. yr O154%4 
6000.7 0456! 
08116700 T O15780 
08116800 T 015780 
OR A900 0) 19 3" 
08147090 7 016083 
hdd boi “T  OL6141 
: 3 ok 
o8li7iio r 0163314 
08117120 f 0465%0 
08117430 01466! 
06117140 T 016810 
"08117200 rT O169%y 
08147200 O47010 
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@ 
STREAMCFSECUL IJ] *>CReNeXtS(CQDE22 AND CODE <5)» 08119000 tr 021283 | @ 
Y§sCCDE=4s INF S=CODE=5eINFO,INFNO?S &RH 081149100 Oe15! 
INFO, CLISJsPBDTOGeLReLABELREC INX 12> 06119200 7. Oa2i7?te 
RVECLF PAOTOG THEN CHORL6O],03959)40) Oati9300. 7 ORseNt 
ELSE O» ee. 08119400 
TU ©€I]F PBOTOG THEN HDOREI6),CI984) ELSE O» 06119500 7 Se2e1i 


THEN HORC6),( 4424) ELSL Oo» 08119600 7 022483 

oF; 9700 oF 3 

BEGIN: SI#sFs OSteL yt" "} SyssSteqs OS8=7 CHR 08120000 022733 

Ppp ele Legh nt a pee? CHR} 08121000 7 0229%0 
OS ims LIT" SECURE N192000 O23010 

cil LIT” BY "3 eaeanue CRI SleSy+43 08123000 023240 

; OS%#7 CHR)S Ogi2sa00 023313 

e 


BU e]F PeDTOG 
3 


of. ~~ oO 7 fF WH = 


= 
i=] 


=> 
yoo 


eTereyTs r  92361g 


i ( ae a7 CHRD pstetgt"/" 93 08125020 7 Og37to 
ts N1tePleit Netea Apo, OareSo30 weECE Eo 
is 2cS[tesypen3 DSt=7 al DStSLIT"/")3 08125040 T O240%0 

? D1ts0l"43 aaa Y 024132 

8 RYECOSts m o"% 3 DSs=2 DECs 02443 

9 OStaLIT#/"; DStw2 DEC3 ~BSPELIT™)) 95 08125070 T 024344 
we INF CCL teCI+INFNOJGO ERRSGO INFiL4GO INF 2s 08125;00 T O24s5to0 
ap GO INF33GO LN “Ta 08125410 Q264t 


INF 13 %RH 08125120 024734 
ba OSt=10L 17" EReaTeD) a *RH 08125130 
DA ts 4RR 08 5140 
08125150 


StseS]+2s0St=2 CHR}DCDSPSLIT*7*3 %RH 
re CHR)3G0 INFENDS : 08125360. 3 
VB129 200 
08125210 
06125300 


"360 DATES 


DSte11L11"™ ACCESSED? 
INF 38. 


Ae KS 3 5S 


GS 


5 0 
DECMH | Oataneso T 02548 
SItsoc INFOSDSO=6 Leelee 08125330 7 O25ato 


Go INFEND3 06125350 


025630 
INF at 08125400 025684 
OSte14L 17" SEGMENTS! "GO DECMS 08125410 
ERR? INFEND?)3 08125420 7 Peset4 


Gstee ree? 08126000 
oe 08 
SPOLT(C INX STAD} 


paecl 
0260%2 


ETE 
08129900 


Ae ee ee ee Amma 
B® 2 8§ © & & > 


AROUND? ENDS ENDS ENDS 
iN UNTIL es fe 


; 08129200 
iF CODEFO. oR (CODEsO. AND STAel919140) THEN FORGETSPACE (HOR)} 06130000 
ORGETSPACECNBD3 08430;00 
IF LABELRECZO THEN FORGETSPACECLABELREC )3 08130200 
IF C = O THEN 08131000 
BEGIN MCBUFF IJtsFLAGC NAGS C "NULL "))3 08132000 é 
SPOUTCOUFF INX STA 0 oe 08133000 028140 
ENO ELSE: FORGET RRR SECBWEE 1) 08134000. 7 - 0281%2 
END PRINTOIRECTORY) 08135000 0265! 3 
StZEs 0286 WORDS 
$ SET OMIT = NOTCOCSPO AND DATACOM ) 08135999 T O000%0 
PROCEDURE PBIOCA»P)# VALUE AS REAL As P3 FORWARD xP 081791300 tr O0000!90 
Ta oe Sane : Pier oe START OF REL: SEqgMENTS Of oD 


OUT? 
XOUTS 


Sb NU 


027733 
Q2788 


int ae 


Gia 2s 


START OF R ERS 3 
0000%0 


08172000 T 


BEGIN REAL Te 10DeLJNKeUs% 


Data Documents/inc. 


i “a S 6 & & 3 eo & 4% & & S838 ep Sams S$ 8 S : 


ARRAY AL#)3 06172500 T 0000!0 | ® 
REAL RGW=+03 % 08173000 T _0000%0 
Whig i Sie Ralie oy ARRAY. Raedtols DEFINE FIBSARS xP 08173100 7 O000t0 | : 
 CHECKSTACKSPaces& RHF O8173200 7 O0CotD fp @ 
“Uf CLINK. © NFLA CMEC 00 + NFL AG(M ePRICPIMIX5993) INXS _.  OB174000 y O0OSsD ods 
P(O*LNG*XCH)? INx NOT 0])), Ci2tojss . 08175000 T 00080 ‘ 
IF U2 32 THEN 0a175100 T 001213 |@ 
BE [NA ¢ M Lis 2200 y 001332 
“TF READEMFROMDISK¢CIOROWLU"32)a) THEN 08175500 t OOLsTS ? 
MET © AGiC2784741]800 204711) ELSE Q8175400 T O017t2 |@ 
ae ae ees “ © KR} 60 ) RE: RNG s f 1758006 oe 60 r a & Coe dul 7 
ENDS. oa17s00 “O024t2 is 
MCIOD INX NOT TUF LAGCLING)} F1pem CT" 33 “P 08176000 T 00242 |@ 
14 ta 3 43 Og 00; 12 
OC a 
4@ 
ELSE ¥P 08179000 1 004232 al 
BEGIN: STREAMCAGFIOC14] 4(CF J+ Bef 1BC14),CFFIIs zP 08179600 1 004293 \@ 
eA N2¢18 wOs ND ag RP 08179 700 I ON4ni0 Ng 
| Fietiai, CRFICFIBC L142, CFF I° 183 S : “xP , 08179800 T Oouets tle 
ENE Clie aes xP Ogi7re900 r OsCty 
IRN ae : os oe ¥ ALanAnD F 00563 : ai 
ENO CUNT INUITYBITS zPo bea oiooo T 005083 1@ 
. STZEs 0051 wORDS i 
BOOLEAN PROCFOURE PR{INTORPUN CHW gp GsaPNchdsVaLUt GePNeonsReal QsePNons g 0.00 000080 2 
POC eles ae leg ns ihe oP OEE oa START OF REL SEQMENT? ‘DISK ADDRESS = 00216 29 
tbe Sha ge oa oll ete el A ata AS, ; 08255050 T 000080 2 @ 
THIS PROCEOUBE 15 RESPONSIBLE FoR STARTING PRNPAT/DISKse IT CHECKS 08255055 T O000%0 | 2 
FoR IvO UNITS AS REQUIRED ANU» IF AVAILABLE» GRABS THEM, THE 08255060 T 000080 ae 
PARAMETERS AREt a | 08255065 T 000t0 | @ 
Q $716 LOGICAL UNIT NUMBER FOR OUTPUTs TAPES AND DISK ARE 3 090010 
— SEARCHED TO FIND A FILE TO PRINT. THIS #8 USED ONLY Oe2sso7s tT O000tO if 
HEN AUTOPRINT Ig SEY OR FOR RYE, se a T 1@ 


08255980 
08855085 


“LOGICAL UNIT NUMBER OF a BaCKeUP TAPE, CHECK FOR AN i 57 23 
AVAILABLE OUTPUT UNI Te 08255090 t 000030 
>0 = Fp OF A DISK FILE, CHECK FOR OUTPUT UNIT, 08255095 T 00010 9 @ 
PACH C47#1] CN FOR PUNCH BACK*UP — | 08255100 7 000080 24 
[39'8] NUMBER Op COPIES FROM Pe MESSAGE, 06255105 T 0000%0 37 
(3116) IF TAPE, NUMBER OF FILE TO PRINT (FROM PB), 08255110 T 000080 2 4 @ 


If DISK» #0 IF ENTIRE PACKET SHOULD BE PRINTED, #1 IF 000080 : 48 


NOT, 09255120 T 000030 
C3081] ON IF =Q0 WAS USEC IN PB MSGy 0g255122 T O000t0 |@ 

9:9) RYE TU/BUFF 08255425 T 0000!0 4d 

oe ONT LE f NTBACKY eka A PB MESSAGE, 082551369 7 O000%0 4 
t1t4) ON TF CALLED © FROM _PANEBT OTEK ae & 08255435 7 000010 4@ 

ae : ay : 06295140 Tt. 000040 4g 

INTEGER UrV? lpdedivdas 08255200 T 000010 6 
REAL As HDR» SEGO=S pF eu3 08255400 T 000080 «| @) 

_ REAL PBTeF aD» PLDs | 08255500 T 000080 ; 
j ee ee : 08255700 1 : 1@ 

DEFINE XN Ve EN PUD ELSE PEDIF Ory: 755900 T 000010 5 
DEFINE STACURR & STATIONCSTA,LGGtH4]»STAL3I9SAI #5 08256000 T 0000!0 s1@ 

$ SET omit = SHAREDISK 08256190 000030 

E 09256200 1" 000070 ! 

PBT &s PUD &= "eUD "> PBOD t= “"pPBD "3 T e e 


$ SET OMIT = NCTCDATACOM AND RUE ) 08256699 T 000533 @ 
Q2¢"15) THEN 32% Pb Ni LOO On257000 2005 


= BEGIN 2. Pa . Qs257400 t 006 
$ SET OMIT = NOT COATACON AND Rue ) ae ay: : ogas7199 7 Q 


001580 
001710 
‘ogtto 


IF LABLLTABLELV©20)#0 THEN 
IF sea as cle THEN eae 


Ge “@>0 THEN, 
BEGIN Uts1a5. 
TF CAUTOPR 


08257600 
eoeeeo ae 


oon mn on fF WHY = 


ae 
0023%2 
ore 


THEN, If bhnstetty TaEA ELSE Go cee 08289050"  O0ebI2 . 
ELSE BEGIN: hide MASS), es) ORR < (99259275 1 003¢ 


08258990 
obe57 200 


6 NOT SRAREDISK 08259325 oo3aty 

7 08259400 003311 

8 08259425 

9 TETCTVEEY A CCFJ*9"30rA, FFI): 06259450 EIT 

RO}. ENO; pdoebeaci ly 0040%0 : 

1 PA q. 08259 . 004 

< SHARELILSK 08259550 T 004083 

pa) UNLUCKDIRECTORYS 08259575 T 004083 
é ’ $ POP OUM]T 08259400 Og44t 
ON oa ENDS | j 08259625 T O04qhy 
y Be END = . 08259800 T .O0K4ty 
§ cf ELSE. GU.TO PE TAPER : 3 On2460000 T NARA 
§ Ps END ELSE 08260250 
£@ » BEGIN vi=sABS(Q)3 % LP (OR PUNCH) GIVENs LOUK FOR FILE. 08260500 004481 
Q 


uS 


082608 


SET OMIT = NOTCDATACEM AND RoE) 99 J 004710 


: BEGIN IF vVaee THEN ae CHECK FOR TAPE ~ OB264000 7 004 
: “BEGIN AbS"PUTMCP cae | | — oeRgL250 7 0 
< PNCHSsPNCH OR Ls 08261500 5 51 


08261750 1 


eS 


cNO ELSE 
Ass"PBTMCP 3 0826200C 
FOR G@i=0 STEF 4 UNTIL : s 
IF CMULTITABLECQ@] EQV eed: 0g262500 . 
if. COABEL TABLE CQ] EQV @1ez2izasaz5ae4a7 NOT QO THEN 08262750 


7 en ee 7: 


OSTABLE a N 63000 7 0 
SEGIN RRRMECH?=TWUCQ) OR RRRMECH> 08263250 
PRTAPE? LABELTAKLELUtSAWS(Q)] 8s 08263500 
PBT&TINUCVIC6130:18J8@21013439t5)5 08263750 
MULTITABLECV] t= Pats | a 06264000 


oa 


LABELTABLEL VI ts : 08264500 | 
: _ PBTSTINUCUTLON30r18I8@21CLI43tsis 08265000. 
GO FIRELTUP; 08265500 
ENOS 08266000 
. ENO SEARCHING FOR TAPES 08266500 
rene : | oR PBGOUNTZO THEN me % TRY FOR DISK | 08867000 
ie oa | a BEGIN DIMIMEGETSPACE(90#0» 034213490081 381103), es 0a267500 T . 
-s Ser OMIT. ® SHAREDISK” s Q8267990 7 
LOCKDIRECTORY3 08268000 


$ POP OMIT mh ox Opeab010 T 
B500 


148] # As 241247) MOD MODULUS; _ oT ie 
STEP) UNTIL ewODULUS*1) 00. oe Be : “onaearoo tT 
Lee oe Noe ah Ho on 2 08268750. 7.0. 


Data Documents/Inc. 


) | 
@ JES SCRAMBLE (J19J2)3 08268900 7 O09P7t2 q 
KWAIT(= Odes Y ; QOR26895 01044 

FOR It=30 STEP 3 UNTIL 87 Do 08269000 T 040613 1 

@ IF COLT) QV AD s NOT 0 THEN 98269100 + ot | |@ 
4:9: awe ania. : 3 
BEGIN DISKWAIT(=Ds LCF J»=30/001*21]1CFI)3 sono s00 ; 

@ _ IF 004),.01!3) # 0 OR ptal.oty] 98269400 |@ 
OMIT = NOTCRYE AND LATACUM ) 08269499 Tr OL cas 6 
7 = NOTCPACKETS) | i : 08269509 tT O119%11 ? 

@ we a OR COL4I4£16420) OR 0693601128))20 (99269600 + O1i91 \@ 
: ; : al Pee : : BVA ee peed o ae : 9 
NOT ShAREDISK 08269090" ! 10 

e ELSE 08269750 @ 
| BEGIN DC4).(6t1}te1;3 0 
eee “PBCOUNT F=PBCOUNT@]3 13 

@ hb. ee ee BISKMATT CDs CoFle=30*%pC142), CCF IDE | @ 
: _NOT SHAREDISK. , | | a2 Ob a1t41- hs 
Utsy6s 08270100 T O43y%4 6 

r @t=DCI41]3 08270200 T 013284 |\@ 
ee GO FUUND; — 08270300 T 0433! | 18 
or ie aa 08270350 7 013474 r 

@ hs $ SET OMIT = NOT SHAREDISK - 08270390 T 04362 d @ 
eee oe : ENO UNTIL jiapr: =0 eee 0.2 0450 01368 . 21 
$ SET OM]T = NOT SnAREDISK 08270490 T 043984 | 22 

@ | | | ENDS 08270550 T 0439%4 2 @ 
ZI FOUND: FURGETSPACE(D)3 04270 043923. 24 
pe: S$ SET OMIT = -SHAREDISK . : a 08270640. 044033 fy 

@ oe UNLOCKDIRECTURYS 08270650 4 014913 ba @ 
P _$ POP OMTT é ; 08270860 7. t 2 
s “END SEARCHING FOR DISKS . 08270700 7 THRE ee 

@ } ENDS . OB270725 T O14gty 1@ 
x __IF we HAvE BOTH AN INPUT FILE ANG AN OUTFUT UNI1> 08270740 O14aty po 
x. oe FIRE UP PRNPAT/OTSR . ; 08270745 1 Ofaaty an 

e "n ar uso. AND V#0 THEN le eee oer Orae Tear aaey shed 
‘ OA270H00 T O14610 3 
é $ SET OMIT = NOTCDATACGM AWD RYE ) OBe70n18 014620 

@- BEGIN LABELTAGLECVJ:=¢8@21[114335]3 08271000 T 0146!2 1® 
be | MULTITABLECV I 3=PBD3 pie ee atte = 08271250 01483 36 
ENDS. Vg ae | 08271500 T 015010 8 

er FIREITUPS — ie ee Eee : 08271750 7 015010 a4 @ 
APE VRYL38I43t 5 RPNCHEO1S3081793 aoe 08272000 7 0145080 | 33 
S SET OM]T = NOT Rue 08272240 T 015283 40 

r IF PNCH,C121) THEN PCa) ELSE 08273250 T 015293 |@ 
| | BEGIN 08273500 04548 42 
TRYAGAINE 08273600 © 015630 4 

@ | If. CHOM 1 =DIRECTORY SEARCH PCPRNPBT)PCDISK)» 39 #0 THEN 08273750 T 015610 4@ 
BEGIN ee Os274000> : 45 
SHEAT t= (MEF t#GETSPACEC31>0r0)+2)) & SOL ataeii ols 08274250 - 

e MCF"2),0926] 3 0; MEHDR INX NOT 1],£936]!=0; 08274260, | @] 
SEGO $8 GETSP ACEC 300020) 423 MESEGO"2),(986)1=0; OB275500 7. 04? 42 

Or. DISKWAITC*SEGO* 30% MCHOR ENX 1013 (08275750 y C177 hy 1 @ 
: : Fi 83 HORS & CORE ADDRESS OF WEADER . : OT @ ae 51 
52 SREAT(?] t= SEGO3 % CORE ADORESS OF SEGMENT ZERU 08276050 5 

@ |: SHEAT{O] t® PCPRNPBT)3 08276100 T 018212 ® 
SHEAT(L] t= PCOISK)} vate eet u i 
3 ys $10] @ X PRIORITY*@OsEXECUTE CODE 5 

@ : Lisortasavaias % SET IF NOT "Pp" ‘hed 
ef SHCA. Jb e..0377. T77773 & TIME LIMITS ee, 210 r .01 ee é 

e MEAT(LCIG) ts a COMMON VALUE 08276220 T 019482 


SreAT C20] $ ; , ere 
SREATL2 203 ACK 3 


08278950 


S1teS) 08276280 019612 
47CSKIP SBS SKIP DBs TALLYH=TALLY413 og27o290 019633 
SB Sf MP_O B L 
DStsSETs ANSTALLYS — 09276910 019984. 
ENDS STREAM STATEMENTS 08276920 T 0499%3 


OA27 46330 O200to0 


I t= PB 08276340 T 020080 
SHEAT(3].£8210) t= I}; ® SCHEDULE NUMBER g8e7 0320 tT 020082 
SHEATE23) t= (CLOCK + PCRTR)) DIV 603 08 360 ‘ 
$ ‘SET OnTT = NOTCDATACOM AND RWE) 08276370 T 
: SHEATC25) t= HOR, tFFuR x DIsk ADDRESS. oF. FILE HEADER 08276400 Tt 
“STREAMCAs Tie lISGETSPACE(112020)4+2)3— 08276410° : 
BEGIN 08276420 fT 041080 
DIt=D1+163 08276430 T 021030 
USt=Z0LIT"CC EXECUTE PRNPBT/DISKS COMMONS" 08276440 T 02103 
STs*_LOc A} DSteBdEcs 08276450 T Oa21aty. 
DSIMOLIT™ZEND EM Os276460 T 021483 
ENO STREAM STATEMENTS 08276470 ree. 


MEL] 3% Gs mMELT+1) 23163 Os2764d0 T 021640 
SHEAT(OJ s= GETESPDISK & 10018233315]3 08276490 T O219%2 
DISKWAIT( Is 119 SHEAT[6] FJ)3 08276500 0221! 

FORGETSPACECI)3 08276510 T Q223%2 
INDEPENDENTRUNNER(P(, SELECTRUN )9 Fs 1603 08276520 O224t4 


07 Aa 30 029653 


Data Documents/inc. 


ej ° A 0 2 a 3 TS = Th =. . S ; 


END ELSE ® IF IN DIRECTORY 08276540 T 022583 
Ps BEGIN 08276550 T 022533 
pa ENTERSYSFILEC3)3 | 08276560 022810 


a | EO TRY AGAING 08276870 1 022883 


PRNPBTIEP: UO RPRNPBT M3 Ose76560 O229%, 
_DISKit3 "DISK " : eee hs hares ane ORP?76RIO TO: A 
ENUS 08276600 T 023210 

END Ose77a00 T Oz32t0 

PR TRPUNCHWA Ox 0 


END ELSE epee ceagte 
: . . | 2790! » 029282 
Bene Ee a 


$ SET OMIT = NOTCRYE AND DATACOM ) O828000% T 023383 
rdaaeHleaa eed 08280030 T pans? 
NO PR N A : ORZA 0.0 
Pe Sizes 0236. 
PROCEDURE PRINTBACKUPCAUFF D3 VALUE BUFFS. REAL BUFFS ¥P Oa282000 TF 000040 


TART OF RE ' 3K ADDRE ® 
% Og2e8210C T O0CO!O 
* THIS PROCEDURE HANULES THE P& MESSAGE» MAKING THE NECESSARY CHECKS 06282110 - 00C0:0 
% ANO THEN CALLING PRINTORPUNCHWAIT,s THE SYNTAX OF THE MESSAGE [9 000080 
% 9 SPB MSG> 322 PB<INPUT FILE><PB SPECS> 08282140 7 000010 
a INPUT FILE> th <TAPE UNIT? 7, <0 15K: FILE NUMBER> een Ogpe2150 T  O000f0 
a <Pa SPECS> tt2 <PB ELEMENT? 4 SPB ELEMENT? <PB SPECS> / <EMPTY> 06282160 7 9000890 
% <PB ELEMENT> 332 P 4 =<NUMBER OF COPIES> / #<STARTING FILE NUMBER> Oa282170 T 000080 
% nooo ohee T O0000%0 


000030 
SORES 


BEGIN REAL a A ae 
e* OMT NY ca Se 


a es 


‘OCD TS 


ioT COATAC " ae 08 450. 
STREAWCPCPY1=1> NUMBt=1 es Niele “CPYSe=08 Bi =BUFF )3 06285000 


Data Documents/Inc. 


' 
a * a a ~ a Se. TE 3 x. 5 
Do & SS b G & & < oo Ps 


BEGIN Sleds Dleloc Nn3 


BEGIN: Brasil; 
ACTF SC sto" 


D°¢B CHRS 
NDs 


F Scergr 
BEGIN DIEFLNe NUMB3 


GG eo Lies 
END 3. 

F S sent 
BEGIN TALLY: 203 PCPY#eTaLLYs SltsS[+13 
SCF ‘SC=ALPHA THEN | i S¢<"o" THEN SIteSlty ELSE 

wa oa [j 8 awe 


GQ TO us 


ENDS 


ae de 


“pWEK UP TAPE, CHECK THE LApeL: 


IF (UteP) < 0 THEN 
BEOTN ) Yi IPY « a x aa! Las 
zi IF NOT MTXINCGI9U08) THEN 
M AB £"PUTMCP 


GO TU SPII4 
N 


ELSE GO 10 SPITS 
ENDS 


BACK Up DISK 


THING, 


ae | Fe ve BE/ZE 


STREAMCTS=RPS Utseudys 
BEGIN SI#=_oc 13 ulteul+5; 


IF ccaey UR T)e (CF 120 
COPYs=CUPY&PCXCHIL 398 4781I3 

BUFF S=BUFF » C15#i51"13 

OQORYSEARCH 


Ls IF SC="_ " THEN BEGIN SleSI+ 
TF Scs"0". THEN. BEGIN: Dass RErrsoboon 083 cHR END TTT 


THEN UMP 
Sl3=83 BreTALLyY3 Diteb1*53 


CNTS SIssSI+13 BtSS13 TALLY1=035 


COPY i= (cOPVisPIaCNOT cOPY = NOT STETET TATED 


+ SET FIRST REEL NUMBER» IF Copies oR REEL NUMBER 
GIVEN» OILAL IN "P™ Blt» ELSE LEAVE IT OFF TO PRINT ENTIRE 


CHECK FOR THE FIkEs THEN CALL. PRINTORPUN HWAIT, 


HEN PCDEL) ELSE 


0 257080 THEN 
— aUe5))80 THEN GO TO BAD 


eo 


Yells Ale Yai; ¢Si+ 


<P 


LLS TF SCS" ". THEN BEGIN STt=sSI#is GO TO LL ENDS 
oe Scatan THEN BEGIN Olt sLoc crys GO To CNT END; 


ALL PRIN QRP IN AIT 


oF CSTAtSMULTITABLELUI#M POT WCE | "OR STA) AND 


BEGIN STREAMCBUFF ); DS?=19 LIT" NOT a BACKUP TaPEee”; 


- ELSE 
eu ER INTORPLUNCHWALT CAUs yacarYt300319173 OR M) THEN 
“GO TO OK ELSE BEGIN MSt==i3 GO TO BAD 


Oa286000 


08286000 


Gazesooo 


T 


OO 


08290000 
08290500 


OR?PS1OOO 


08291025. 
(08291050 


0829.10) 


08291400 


Og291125 71 


062$1250 


Og2sie7s 


08291325 
08291350 
U & 
Os2¢i400 
08291425 
08291460 
08291470 
UR2ZS 1 s 


08291480 
08291500 
° 


08292000 


08292500 


Oaz2g3n00 


T 
1 


T 
T 


T 


+4 


08293500 T 
08294000 T 


OR OO 


08295000 © 


08295200 


08295800 
na2go00e 


OaedeT70- 


082961 80 
08296490. 


08296200 
08296225 
08296950 
082962075 


09296300 . 
Og296925 


084896350 
0868296375 
08296400 


08299600 7. 

pideetade 

: 08297000 - 
08297300 


08295600. 


tape as ah 434 | 


-)}- 


904654 


O0049%3 


- o050ry 


0003%2 
0004:0 


000510 


000984 
0010%2 


001190 
008210 


0018%2 
001883 


OG19%4 
002010 
Oz 

002334 
002382 


2. 
0023%3 
002633 

003643. 


002633 
002633 


00 8 
003082 
003210 


O03 at 

003533 
004089 
0043%0 


0043%0 


004340 


004at2 
0048%a 


00503 


Data Documents/inc. 


5 a 5 TH = TB 53 3 = 


Qs FF Sess ss 


FORGE TSPACECI)3 
IF Pof2tt) THEN BEGIN MSt=2s GO TU BAD 
IF PBCOWNT LSS 1 THEN PBCOUNTS513 


NDS 


oF BE INTORPUNCHNALT CUS MS@cOPY{30%319172 GR M) THEN 
| api 


ELSE 
BEGIN MSt=135 


STREAM (MS» ASEMS<Os USEF PCOUF) THEN TINUCU] ELSE UU» 


BUFFS 2BUFF » tCFI)3 
BEGIN DSteg CIT" NULL. PBN 
SlielLoc Us Clssci+x: ¥ 
a SI+#55 OS%s3 CHR3 GO TO LLs 
=Sil¢i3s O05%54 CHR; 


F Eicon bee Hod 2 E OSi53 ; DILtsB FR 


'O8ts2. Ee Does: a ae 
CPtel+n$3 ae Te LOF GQ TO Las 
DSts ATT" “WUSE"S GO TOL 
13 =14 Seo CUTPUT UNIT'S GO TO Ls 
LOs ee LIT"NUT ON DISK'"3 
: WSs s myer; 
ENDS 
SPOUT CBUFF 
= NOT COATACOM aND OCSPO) 
3 
END$ 
ND 0 B AFYBUAKD MESSAGE RANE Re 


SAVE PROCEDURE INITIALIZE} FORWARDS 


REAL ACTDATESINITIAULIZES 
SAVE REAL PROCEDURE COREND;  FURWARD: 


REAL. WEEKDAYSCORENDS 
PROCEDURE TIMEQUT (8)3 VALUE B “REAL ase 


BEGIN INTEGER MsHs C38 
C #©XCLUCK/36003% 
M ¢ C MOD 603k 
H+ C DIV 603% 
STREAM CH» Ms8)38 


SI « LUC H} DS « 2 DEC} DS « 2 DECIR 
OS « LIT Meng 


> - 7 
SPOUTCO INX MEMORYLB#1)93 
ENDS% 


08297 300 
0p29740¢ 


08297600 
08298000 


PEEECOR 


08298600 


08299000 ° 
09299200 
08299400 


08299600 
08299800 


08300000 


08300200 T 


08300400 


06360600 7: 


08300800 JT 


08301900 


O08 30 O 
8 


08301400 


08301600 


083014650. 


08301800 
08302000 
OR 10 00 


09303000 


08393100 


08303200 


08303300 


08305000 


007774 
0077383 
00790 
O082%4 
Q0983%4 
-Q0b4+ 
0085%2 
0086%4 
0086 % 
008713 
 O08at 
0 a a 
009082 
009233 
00 us 
009510 
6 OO9STY 
009 
0095ia 
T Q096%9 
Q0N96420 
“SIZES 0097 
T. 000030 


000030 
000080 


eee 


sescecoe 


ey: 


oeosgee" 


bilan 


08312000 
06313000 
098314000 
08315000 
08316000 


PROCEDURE GIMEDATE(a*0T)s VALUE BeDTs REAL BebT: 


%% PARAMETER USE JS? 
~*% BsOQUTPUT AREA FOR MESSAGE OR DATE 

%3DTSO0 RECONVERT ACTDATE WEEKDAY | THEN sPOUT TIME MSG 

%% OT>O SPOUT TIME MSG ONLY 


%% DT<O CONVERT MMDDYY USING DT CACTOATEs WEEKDAY NOT CHANGED) 


BEGIN REAL Me De YenCVeNeGs 
REAL SUaROUTINE DAYS 


DSse2 CHR 


ee TeLOC MP OLS LS6F 


iT 000s0x11y2GzvapaTAAd Sa" 


08317000 
START OF REL SEGMENT’ DISK 


08317100 
08317200 


ee a be 
7400 T 


Sachs 


08318000 


08318100 


ogaieagd 


T 
T 
7! 
MoT 
T 


Q003t4 
oo04ta 


34 
000784 
00080 

008% 
000883 
OO11t 
ZE# 0013 
0000!0 
DORESS 3s 
Q000ta 
Q000%0 
000010 
000080. 
Q000%0 
0000!0 
oouere 
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EGIN $ 


SItsLoc. AS. Sta ST. 18 te; CHR: . 
OSt=,1L]1" NOT READYe" 3 


Data Documents/inc. 
a: a. +. 5 % x ar a Ep <n Se Se 


08526000 


08528000 
06528499 


T 


Vale) Omer 


08530000 
08531000 
0 


2 0.0 
08933000 
09833100 


SaSeaioc 
08533499 
0A 35800 
08533501. 
Pipbbeiete 


700. 


ORT 
08535000 
0g 6000 
08537000 
08538000 
08538500 
08540000 
08540100 


08540300 
085471000 

BS Ae OOO 
ie i s605 
08544000 

as 44 OO 
08544200 


08544300 


08544400 
08544500 
08544600 
08544700 


08544800 . 


08545000 
08546000 


START OF REL SEGMENTS DISK 


06547000 


Oesa7050 
08547300. 


08547200 
08547300 
08547400 
08547500 


08549000 
08550000 


08551000 
08551100 


08851200 


08851300. 
Oss82000-" 


08553000 


08547600 
08548000 


ae ee Se ee | 


0000!0 
000030 
000040 
000010 


000010 


001080 


001480 


Ooe6th | 
O029ta 
ake ‘eae 
003582 
O037%4 


H 
004120 


—O0bar, 


00443 

0045%a 
0046%9 
00473 

Ooagto 
0OS0%0 
005,40 
0052%3 
O05 3%, 
005389 
0056%0 


005610 


SIZE® 0057 wORDS 


T 


0000t0 


ADDRESS = 90250 


000030 


AE a mee me a a ee 


0000t0 
0000%0 
0000t0 


OOO4s4 
O002t4 
OG03%,4 
0004%06 
0008%0 
001033 
OO11 84 


001382 
001430 


“001612 
004810 
ae oo oo At oy yet 


O018t3 


fe alg DStSBLIT"™CSAVED) ©"); 


“ee PSEUDOMAXT ab 
END ELSE : 

AeRSEABA RLU <b TENE [15815)"1)3% 

BEGIN SI] © LOC A’ SI © SI1+5s% 

~ " 


ENDIR: Ze 
Ue PSEUDOMAXT id a 
Sp had 


lF us F SEUDOMAXT THEN 


LABELTABLECUI ¢ =CIF IL THEN *PCDUP) ELSE @314)4% 


Mcbeanieeta 


08585000 


08556000 t 


08558000 
pelead hes 


08561000 T 
0862000 © 


OBSAIOOO 


08564000 
08665000 


0020%2 
exe 


903083 


OO3910" 


0032%0 


a ND NCOs OR £6000 | 


PROCEDURE Locour ca): VALUE AP REAL AD 


ee ses Ag i a MEK DISK ADORESS «=. 
BEGIN REAL ROW= 405 08568100 ~. 000080 
REAL MSCW="23 08568125 000080 
[INTEGER J=RCwel 3 : 04568150 O000%0 
REAL JSi+ise Leaded; 


Data Documents/inc. 


3 B * a rs * 5 5 a an Se » Th ~ Ry x 
a: a ey : a 4 
r fe ’ : 


LABEL EXIT Ho 
P¢(OsOsGETSPACEC3359090)42)3 ® INITIALIZES 

IF CUSSDIRECTORYSEARCH( "SYSTEM @,"LQG %54))=0 THEN 
BEGIN; 

STREAM(L)3 

BEGIN DS8=10 LIT "eNULL LOGe" ENDS 

G0 TO EXITs 

EnQ? ' a 
Ir LOGFREE GTR 0 THEN SLEEP (CLOGFREEJ#"0)3 
LOGFREE$ =ABS(LOGFREE)3 


$ SET OM]T = NOT SHARE DISK) 
“ MOVEC30ed0 INX Orb ds 


MrL4+10) © GETUSERD 15K cou eL s8zem tL 981610093 x GET XTRA TEN 
NO BEGIN... x T 
DISKWAIT C*L= 312 300sM(U+10I]41)3 % SIMPLER 

DISKWAIT (€ L#34*3009M( L410] 41); 
EAD UNTIL CI*#I1+10)2MCU+a)3 
LOGFREE * M(J410]3 
wieJ INX 03 e 
MrJJ3sMCJe2]teM(J43)te0; 
MEJ+t]& eMC U48 1x65 
MeUealt="O1SKLOG"S 
Mr J+5)2=43 
~DISKWAITC Js 30sLOGFREE)3 


& SET OMIT = NOTCSHAREDISK) 


OGFREE+NABS(LOGFREE)S | 
P(DIRECTORYSEARCH(* "SYSTEM "*"L GG "514)*DEL)3 
IF HOLOFREE=@ THEN SLEEPCECTOGLEJsHOLOMASK)3 
LOCKTOGCHOLDMASK 3 
-  DYESKWALT Cede "30D TRECTORYTOP D3 
 Tem(Me 207,085.10) 41) MOD. 10007 


MrJtZ20)imCwP COUP) 8106898140) es 
DSKWAIT(J#=30sDIRECTORYTOP)S 
UNLOCKTOGCHOLDMASK )3 


STREAMCJ¢LACTDATE } Geflls_ 


FORGETSPACECU)3 


Y6271800 


08572400 


% L MUST BE LAST DECLARATION, 08868200 7 O000t0 


08568300 T O000t0 
Os848K00 -O000tT? 
08568700 0002%4 
08568800 0004ta 
08568900 000530 
0a569000 Q805%3 
08569100 oo07t2 

; 1200.5 Q: 

— 08569300 001080 
06569400 001330 
08569600 7 001410 
OGSEI TOOT OOTKte 
08569900 Oo22%e2 
08569910 002684 

a569920 T 0029! 
08870000 1 003374 
08570300 003581 | 

_Og570400 7 00361 
08570500 004132 
08570600 0045%4 
08570700 Oo47s 
08570800 T 004954 
08570849 00S50%2 
08570870 | 0o50% 
08570880 0054%2 
065719000 0¢53%1 
08571100 00563 
08571200 1. 0060%0 
ete 0961's. 
Beavitoo 0068%2 
08571600 0G70t0 


007681 


Data Documents/inc. 


) <q 
@ MEL 4d] PeC*PCDUP) IROL 12385 IG1C1 424751 ROLI2I4at QI; 08572500 T OU77%0 q 
Mel +11¢x K+P(R 08572510 7 _Q08214 
| SIRE ANEDATES | ¥ 2 : : ; 08572520 Tt 0¢ 
e + LOC DATE: 08572530 T 008 2@ 
: : BEnleD OS: Oa5726540 7.0 a 3 
ENTERUSERFILE(~ Le"SYSLUG “sLel)s 04572600 008883 : 
e STREAM (191) 3 | 08572700 /@ 
: ise Ne eet iG ; rSle f 3S ; 7 9 g00 6 
09872900 PT OOGSIR 
@ 08573000 009780 /@ 
bin oe tee : ; HOO? ta: ‘ : 9 
SPOUT(L)3 08573200 744 19 
eh IF A THEN KILLCCMSCWI)3 08573300 T 0098tO @ 
- 99573400 | 12 
a. AZES 01046. 205 0. pene 13} 
@ “oas7sao0 t 0000 0 ee @ 
a Ceo Leven ee ee ee START OF REL SEGMENTS OLSK ADDRESS. y 
BEGIN REAL A®BsToUs om] 3 08576000 T BogetS Ne 
@ LABEL AGAINSEXITS 08576100 ft 000080 @ 
MIS=M(B.CyStys)e2)s ee 0857700¢ O000!g 18 
STREAM(BI)3 7 08577100 7 0003%2 My 
@ p- BEGIN Sptse; ever eee 08577200 T 00048» : of @ 
7 .? JF Scs* " THEN B AN SItaSy+) 0 TO ENO ie 08577300 tT 00041: ay 
: BisSsrs 08577400 T 000583 ; 
er END; ; 08577500 T 0006!0 21 @ 
Bi=Ps _ os OR57?7 $4 24 
Ps AGAINS TeRSPACE C1033 08577700 T 000433 
@> aS ea He CUSUNITINGTINU® AD), QTR 31 THEN. | Oa5Feodo 7 Oodgto is 
¥ hoy! Wal Toe:90442 : 2 
BEGIN USt=10 LIT*INV KBD sv"3 08578200 T 001283 
@e SItsas DSt33 CHR; 08578300 T O814'4 | 1@ 
Ba 04578400 T 00148 eS 
: vag ‘Og578500 y 00158, ac 
e : 08879000 T 001582 10 
st EPCtqO Lal ysYATuAMaaiaT: es ees 08580000 0017! a9 
TF LABELTABLECU] 2 0 THEN® = 08581000 T OO1a!3 , 
e BEGIN LABELTABLELU] + @11452 08582000 T 001913 31 @ 
be MULTITABLECUJ¢ROCTABLECUI*O,; 08582100 T O021!2 36 
: RRRMECH ¢ RRRMECH OR 13% | 08583000 7 002333 ee 
@» READY # READY OR [3% 08584000. T. 002510 bg @ 
S -SAVEWORD: t= SAVEWORD OR I}. 08584100 0926%4 ___ fs 
Te" "i% 08585000 T 002782 ad 
r ENU* 08586000 T «|@ 
ELSE BEGIN SAVEWORD + SAVEWORD UR 132 fe 
: cy Pe ED. BE" ss | | 0gsa8000 7 oositt ‘ 
oh ENDSR ; 08589000 T 003280 {@ 
3 STREAMCA*TINUCUJ Ia T 5% 08590000 7 0032!0 ag 
BEGIN 0S « LIT ™ "3% 08591000 Y 003312 g 
& St ¢ LOC AS ST © SI4#53 DS © 3 CHR;% 08592000 fT 003410 «| @] 
S]I_«¢ * QS « 6 CHRs2% 00348: 
yi: os * 7 ur K SAVED#" 4% Og594000 Y 003584 ~ 
of : | 08595000 1 003612 @ 
jas an ‘ : ; 51 
re SPauTcT INX M123 pasereas T 003683 i 
@ STREAMCOK3=Q0sA38)3 . 08597050 T 0038t0 @ 
: BEGIN SIiseA$3 , 5 
5 : aie 7 55) 
de gi tT. _ ha 
08597300 T 0042!3 
e @e ee 


Data Documents/inc. 


* a 3 * o Ayer > me eS TS 3 ~. 3 = 
> & & o & & x oS 


IF Scs" " THEN 


SCs"," THEN 
AtaSy)- 

3 F SCxMen THEN Ta Lb : 

L38 OUKtsTALLYS 08597600 

: eee eee 


ee 004334 
00 $ 
08597450 


If P THEW Go AGAINS . vOeneerae ye 
: ak 06598000" 


08599000 T 0000!0 
START OF REL SEGMENTS DISK 


BOOLEAN see eee eee VALUE MASK} REAL MASKS 


SEMI OSUALEC ST ~ 0960490 


; 1 
DISKWAIT(=BsKEYMSGSZ»MESSAGETABLE[2],(223261)5 08604400 000584 
STREAM(BeMASKsT#e0,0%=0, Dt=O,AtsAi aSPACE(A) 3 08605000 fr 0008%4 


BEGIN ; 08606000 T Oo12t;. 
STtSLQc MASK. — 09607000 T OO0L2%4 
BCIF SC#"0" THEN GO TO NEXT? 0a608000 tT 0013! 


IF SC#VWY THEN _ 08609000 T 0013%2 
BEGIN . 08610000 T 001489 
DItFAG DSHS3LITT" D9"G At=DIs gO TO WE ee ae 08611000 T 001480 

ENDS ce : 08612000 7 0015382 
-  J4aSts Dlbetoe Os OLs*p1473 pS3sCHR3 08613000 T 0015%2 
_Sits_Gc 07 Dit s_Oc OF Olt s01463 DSts2DEc 08614000 + O0i6% 


Slt=g3 | | 08615000 7 0017%2 
R: SI%’3S1+63 DItsDI 23 Oe616000 T C017 83 
IF ee THEN % ENO UF FIRST Fart OF TABLE 


‘60° TO NEXT 6180 
cP occ nea 0c THEN GO TO R3 Beer sces T 001984 
ST2=S1"6}3 Real, OStSL IT" “3 QSta2CHR; At=OIls SI1teT; 08619500 


902020 
S133 00 ’ 


“DEtsAs DStaLIT¥e™s ce pee 3 08690500 7 0022 

“ENG STREAM STATEMENTS ee - | 08621000 7 . 
POUT(A)S Cnet ae ae | 7 08621500 r. 00231 
FORGETSPACE(B)? 08621600 002430 
END & IF "wy" 08622000 T 002433 


SE WHYSLEEPS=STRVES 
END PROCEOURE WAYSLEEPS 


PROGED RE CHANGE OPTIONCBUFF »RS)33 


08622500 OQ24! 
084623000 T Goz6to 
SIZES: Q027 wORDS 
08624000 090030 
START OF REL SEGMENTS DISK aDDRESS = 00259 
VALUE BUFF»RSSREAL BLFF*RS33 08625000 T 0000t0 
8» Ts OP sBUS*MASKsOFTER} 000080 
Tr ROLONASKS Goeeto 


BUS © BUFF .C15t15)°13 8 & GETSPACE(309000)423% OR62900¢ 2006ho 

OLSKIOC T+ i= B»=30*D1RECTURYTOP=SYSNO)3 08630000 T 0010%2 

OPTER « SPACECOPTIONSZ)3 | 08631000 T 001381 
KWAIT(*OPTER»OPTIONSZ» MESSAGE TABLEL OJ el 22326))3 : 


a 


"TO way “LE “TF “SC. GEG now THEN GO L43 08635000 7 oo22ty 


Data Documents/inc. 


9 5 SS 


O3CIF Bre " THEN SI*SI]41)3 
Ole : 
BCIF Ste" w ‘THEN JUMP OUT TO Wi ELSEX 
IF SGa"e™ THEN JUMP OUT TO Ld ELSES 
If. SC2"0" THEN JUMP OUT TO L4 ELSER 
OS*1 CRRISL12% 
TALLY¢OSBUFFESISSICOPTERSS 
O3CDl+Loc Ts JF 8 2C#0C THEN 
BEGIN IF Sca™e" THEN? 
BEGIN TALLY e485 JUMP QUT To L3 ENO0% 
im TALLY*TA +13 a 
END ELSE JUMF OUT TO LeysTALLYe4e3G0 To L3;Lo2% 
IF SC="e" THENS 
BEGIN’ 
STS BUFFIOICTF Sc<ton THEN SI*SI#1 ELSE yUuMP OyT 
ae TO LMIALGIDIeLOC TESTS] +132 
If¢ s <ngn Th EN REG] N Ss *§s et 
BEGIN SS] 140542 OCT END3% 
TALLY@¢ 47S TCTALLY© TALLY +63 )3% 


16CIF Sc="” " THEN SI*¢Sy+4)3% 


EWO3% Peet eee See eS 
eae ee wey , 
ENOS% 
OP <47 H N- 


BEGINS STREAMCA ¢ IF RS THEN ™ RESET” ELSE "| 
~ OeOPTER INX OPsOP « 47*0P»BUS)3% 
———_____BEGIN OS ¢ LIT " "3 S]_¢ LOC OPS DS ¢ 2 DECsR 
OS « LIT " "3% ST © OF% 
BCIF Sc*#0 THEN JUMP OUT To Ls OS*CHR)J% 
L3 Si ¢ LOC As Sy « Szeos DS « 6 CHR3% 
US * LIT%e"5% 
END3% 
MASKETW OP); 
MCBUS@L]) ef 989] baos 
 ENDES 
SPOUT(CBUS. INX 
SLEEPC CTI] + (UMASK);3 
MCBJ*UPTION©IF Rg THEN GPTION AND NOT MASK ELSE OPTION OR MASKS 
SKWATT(Bs™30s0IRECTORKYTUP*SYSNO)3 
FORGETSRACECOPTER)3% 
FORGETSPACE(B)s% 
NL O ‘OGCHULDMASK)3 


SET",% 


MEBUSe4 


EKDs% 


PROCEDURE TYPOPCKTR» PO)S vALUE KTR»ePOS 


REAL _KTR»POs 


STAR 
BEGIN REAL VASE, TUSTAPNsXsOPTERS 
ABEL LINCRS 
REAL SUBROUTINE SETT# 
BEGIN 
STREAMCOPT? SC OPTIONIJ?OPTER»N»NBS3 S47 Ne VASE DS 
BEGIN 


Q1is01+as 
SICOPTERINCST#SI*Q)31F scanen THEN GO TO EXITS3 

OCIF SC<"0" THEN DS¢CHR ELSE DS¢1 LIT” ")30Se2 LIT "53 
~SytsOPTs SKIP NBS SBI 

IF SB THEN TALLY#=1 eESe 

USia3 RL TENG "3 TAULY te ENDS. 


a: 


aLOC NBS DStsLrTe ine tas DEC# OStaLyI" 3 


DS*1 OCT END ELSE 


08636000 T 002383 

(' eo 
08638000 T. 002682 
09639000 + O0Z810 


08640000 7 00298) 
08641000 + 0030%2 
08642000 T 0034%0 
08643900 1 
08644000 7 
08645000 T 
VBGE4EOGD . pS 
08647000 T 0034%2 
Soe bode T 003680 

8649000 00365 
08650000 003682 — 
08651000 T 003810 — 
08652000 7 003913 
08653000 T d0040%a 
08654000 T 004180 


Q $ 
OO42ty 
0043%1 
OO4a3t 

C044 si 
004633 


086 6) 
08656000 T 
08657000 T 
08658000. 
08659900 T 
08660000 T 


08661000 + 0048t3_ 


08662000 T 0049%3 
08663000 0050%ea 
0846464000 00508 

08665000 T 005380 
08666000 


3 
00550 
005681 
0 


O8667100 T 
08668000 T 
08669 


aRerosod 
08671000 


O64 OO 
08674000. 
08676000. 


£OVUO. 


08679000 
OF REL SEGMENT3 DISK ADDRESS = 
, 000010 


08680000 
08680500 


7 


0000'0 


08681000 + 000030 
08681100 T 0001:0 
08681200 T 0001%0 
08681300 T Q003%2 
08682000 7 0003%2 
908683000 T. 000383 
08684000 T 000533 
08684500 7 0g0at1 
08685000 1 000930 


08686000 | 
08686500 - 


08687000 


00262 


~H 019 *) ‘ ne 


@ 

ENDS 08688000 7 001430 @ 
SETT¢#Ps Of 689000 00 H 

1 END SETT. | 08689100 T OO14t2 

. SLEEP CLTOGLE eHOLDMASK)S ce 8 08689200 T OOLat3 

aie OCKTOGCHOLOMASK) 3. 7 0f689300 O04 

‘ TUSTASSM[C(VASES=KTR.[15#15]"1)-1]3 08689900 T O021%4 

5 OPTER « SPACECUPTIONSZ)&OPTIONSZ(8? 3881013 08690000 T 002433 

: DISKWAIT (“UPTER*UPTIONSZ» MESSAGE TABLE, pOlet22t26))s 08690020 00298 

7 IF PO THEN. | | 08690080 T O0032t2 

8 BEGIN | 08690090 T 003233 

9 . 


STREAM(BUFFESKTR» TteO» OPTER? DIa(N})3 | 08690;00 7 0033! 
BEGIN SI*BUFFS63(IF SCH" " THEN SI*SI+1 ELSE JUMP OUT TO L)3Ls 08690110 7 003483 
IF ee Bee "O" THEN GO 10 Las | peeeates T 003780 


0 
risa scer "THEN JUMP OUT TO L4 ELSE 


+ ooaet2 


TE Sparen Baas teh JUMP i 70 ba ELSE r 
5 : “SMP ; BA ~- 8080 
| <r nny we 08690370 T 004240 
7 TALLY +Q3 SUPE St STeOPTERS ape tee T O042%02 
8 e O{¢ y 3 THE rn einen nnn a ud ole 33 
BEGIN IF Scenen THEN © aeasoeno T OO04871 
S BEGIN TALLY +48) JUMP OUT TO 43 END 08690010 T OoMats 
' ; $te oeee OBG69 30. O68 
END ELSE JUMP OUT 70 L223 TALLY «48;G0 TO L3s_e2s 08690930 T 004533 
ps . IF sC="e" THEN BEGIN SIeBUFF#63CIF SC<"O" THEN SleS1+4 08690240 7 0047%2 
S M 2 WB690 250 NOM § OH 
5 IF SC<"O" THEN BEGIN SI*SI@13 DS*l OCT END ELSE 08690260 T 005083 
5 BEGIN slesteas DSe2 OCT ENDS 08690270 T 005210 
§ 7] , a; Z *#TALLYaA2 OB6905H0 00833 
ek is ENDS 08690290 T 0053%3 
: La! TeTALLYS SIeLoc Ts Dleps DS* WOSs 08690300 T 005333 
084690310 NO24 1: 
“TF i LSS OPTER, £8410] THEN PCSETT* DEG )s 08690400 T 005510 
“SPOUTCVASE INX TUSTA)S ee ae Peele INGE atte te 


END ELS 
BEGIN 08691000 


t 
STREAMCKTRE 3 08691200 ~T 0060°0 
BEGIN SIsskTR3 oa 08691400 006130 
IF ScC#"S" THEN TALLY#31 ELSE — 08691600 T 006434 
IF Sce "RY THEN TALLYts2 ELSE TALLY!433 08691800 T O062!%4 
KTREsTALLY3. 084692000 00639 
ENDS 08692200 T 006383 
=P3 Nis@13 08692400 fT 0064!0 
INCR3 | ge eet 08692600 00653 
IF CCKTRSSSETT) AND X) # 0 THEN 08692800 7, 006623 
BEGIN SPOUTCVASE INX TUSTA)3 08693000 T 006982 
VASESSSPACE(3)3 eee 08693200 OO71 
GO TO INCR3 08693400 tT 0073%2 
END? 08693600 T OO074tO 
F KTR=0 THEN 08693800 0074!Q 
IF X#3 THEN : 08694000 T O07493 
BEGIN STREAMCKUSXS 40 VASE); 08694200 T. 007680 


“BEGIN DSte12 LIT" ALL OTHERS "3. 08694400 1. OO78I0- 


XCDS8s4 LIT NOT ")} 08694600 T 007983 

DSt=4 LIT*SETe"; 08694800 T 0081%4 
ENDS oe | 08695900 y 008230 
| -SPQUTEVASE  INX Leen ae m 08695200 7 OOBatt 
Pe £ SEF li ene habe ere 
Ui 95600 : reas 


08695800 r oosats 


+ aan « 7 . 5 a eS ~ 
> bo a o 3 oS & G P. g 
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A 5 TS = aa 3 %, 3 
op r iS is a 5 igi ies 7 


FORGETSPACECOPTER);% 08696000 T 008483 e 
INLOCKTUG(HhOLOMASK )3 enor eee spite iii ee et are ee OR OO OL OO. TORS S 
ENO} S . nies — 08697000 TF 008910 ; 
| RE oy Rie fats ks ee Toe nee nae Sizes 0090 sie ||@ 
. M r 2 ND an K 3 : OaAdg? “S99 is ORATETES ot. 3 
% THE FOLLOWING THREE DEFINES MUST EACH BE CHANGED IF THE 08699000 T O000%0 : 
% DISK ROW SIZE OF PBD AND PUD FILES IS TO BE CHANGED. 08699050 T 000080 |® 
NEF YN PADROANS = = Ng699100 oFeYole toma 6 
- 9008 08699150 T O000!0 ; 
& PpeoRONSZ IS THE DISK i sizer IN BEGHENTS: OF PBD AND obervene ood0to | |@ 
; Se PRDRON : ALR OA699 25 re  O0001n 7 
»PRDRECS = 08699 300 T 000080 i 
3008 . 06699350 T OaQd0%0 1@ 
_% PBOR SsPB ROWS 3.2 NO, 0 Q AL, RecOR PER ROW, 08499 000030 2 
. ones TOTRE 2 REO TE ee ae : . “09609450 7 ~Qo00tO a 
| 0008 ae Ge 08699500 f O000f9 3 @ 
; pap THTRECS @PBDREC 5$x20 a “OF ToTAL RECORDS PER BACK=UP Flifs 08699550 T 000010 : hs 
PROCEDURE PBIUCALPHA»POINTER) 3 VALLE ALPHAS REAL ALPHAsPOINTERS %P 08700000 T Q000%0 
START OF REL SEGMENT# DISK ADDRESS = 00265 /@ 
% | | - 08700900 000080 bei 
& THIS prRocEDURE HANDLES I6 FoR THE CREATION OF BACK*UP FILES, For OBr009g10 FT 000080 19 
%  OISKs IT OBTAINS NEW ROWS AND NEW PILES. AS NECESSARY, IF IT RUNS Og?o00920 tT d000tO 21 @ 
% 0 O ILES* HEADERCS) C441) IS OTHE JOR TERMINATED» aVIN 08700930 000010 2y 
& ONE BLOCK FOR THE LABEL AND US MESSAGE, 08700940 7 000080 i 
% 08700950 T 0000!0 23 @ 
__________%&_ ALPHA IS aDDRESS oF TOP I/9 DESCRIPT ORs <0 MEANS READ  =ssssigp 71ND tT ONOOIO 2 
% POINTER IS FIBC14) i %P Oa¥o2000 T CO00!O . e 
BEGIN NAME HEADERS | xP 08703000 T Od000t0 25 @ 
ReA ee: ' e ee OATOUDOC Oo00%o 2 
INTEGER 1=1003 08704100 0000t0 a 
LABEL OK3 08704500 23 @ 
POINTERe([FFJ+POINTER JINX ; __%P 0 30 
IF. CHEABER*POINTER, T9459) 20. THEN — RRRZPB ON DISK &2%e% = xP 08706900 an 
‘BEGIN -» "Og rTorooe a @® 
HEADER t= EMEC #READER) ee 08707500 3 
IF READEREI7) GEG BBTCTRECS=> THEN % chECK FOR New FILE 08708000 é 
BEGIN _ 08708200 3@ 
$ SET OMyT = PACKETS _ 08708400 36 
IF HEADER OJ— nae Tejy="999" HEN 08708600 | 37 
$ SET OMIT = NOT PACKETS 08708800 | a @ 


IF READERC7) GEQ PADTOTRECS THEN PCXIT) ELSE 08709400 
HEADERE5]el4ii) THEN GO TO OK ELSE 08709500 
BEGIN STRKEAMCRS=PRTICPIMIX93) INX MCMCALPHA"3] NX 4), 08709600 
CL3%1L)» HssHtsNABSCSPACE(12)))3 08709800 

TPs STttsyers : 08710000 


Beaih 


0S%*24 LIT"TOO MANY BACKUP RECS ON "3 OBF10200. 4@ 

OS337 CHR. PSAaLIT"/"F SptaSyeys OSta? CHRI 0a7140400 45 

OSte2 LITM8 es; 08710600 ‘6 
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, Lsr da {EN BEGIN L4$ SleSIeisx. Osvaso0o tT 
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END END ELSE BEGINS’ 08765000 tT 003883 
e IF PRT¥0 THEN BEGINS 08766000 T 0041%0 
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IF 10T#O THEN aEg SINS 8 . |. OB770000. 7 004784 
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@- END STREAM3% 08783000 T O077%4 
IF P_THEN SPOUTERCT INXx a dee ee PAU ANGS ) ELSE 08784000 1 
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LABEL TYPEQUT*EXIT3 
_BUFF.« CCB*BUFF),CIS#i5j¢ 128M CPCDUP! mL LIPO: 
IF TF THEN GO TYPEOQUTs 
STREAMCANS¢02%8 23 
BEGIN SI*Bs DIeLOC Bs DS*BLIT*oQoOOQOOOO"S OleDI@23 
Ls If SC # " " THEN BEGIN SleStets GO To iL END} 
IF SC: <"0" THEN GO To. Lis 
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sresteis 
IF SC < "0" THEN GU TO ONECHRS 
s ¢ e : 
THEN. BEGIN SIeSIl*33) OleDIe23. 0OSe2 CHRS END 
ELSE: ONECHR? BEGIN STeSTols Ol*Olels DSe1 CHR; END? 
dal : 3 
IF SC *# "." THEN GU TO ERROR; 
eh gee 
< wor 
IF ae > "9" THEN ao To ERRORS: 
DS*CHRs 


Ie SC 2 "0" THEN IF Sc "Ot THEN OS#cChR3 
L3% Ip SC = " ™ THEN GU CONVERTS 
If SC = "e"™ THEN GO CONVERTS 
ERROR:DI¢LOC ANS$ SKIP 1 DBs DSe 10 SET GO TO EXITS} 
CONVERT! ST*Loc B; STeS1+45 OT+#LO¢ ANS OS*4 OCT; 
ExITS:. 
-ND STREAM} 
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END STREAMS 


EXITS SPOUTCBUFF QS 
END CHANGEF ACTORS | 
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: oe REAL BUFFsTYPEeSID3 
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@ Qt XS == EXECUTE vOA IN SCHEDULE CFORCE SELECTION)  —«—_—s_ “ss 
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THEN "DS") 
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$ SET OMIT = NOTCPACKETS) 
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NEXTLINK © SL29)5. 
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SLEEPCCTOGLEJ»sSHEETMASK)$ LOCKTUG(SHEETMASK }3 
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BEGIN ote C3 DS+6 eee DIeDI963 ee FILLS DIeBUFFS DIeDI+63 
S " t * : ; 
bSte7 CHR} Jicost=LIT™ HS TstOC vaiSTt=Sto1 108107 CKD} 
 DstaLLTMars ST tel og FEAOS 15 aed 
: 6 FROM NE S7TeLOC 
Dset fea 3 Sleioc BUFS DS¢2 DEChOE : 
DSe7 LIT" IN FOR"S SI*LOC EHS 
3C(0S ¢ LI"i"; Se2 : ;_ ES« b DIl+#+Nr993 OSes 
' “DO YWESS DSea. LIT) NEEDS "2. Poe 
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SPOUTER (BUFF? IF SID463 THEN UNITNO ELSE Or1)3 
IF SID NEQ@ 63 THEN BEGIN TYPE8s53G0 EXIT END3 


€ THEN ao BL) ext 
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GO. 70 SPITs.. ee 
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BEGIN SileTs - i 
IF SC=#"e" THEN GO TO X3 
IF SC<"Q" THEN BEGIN SleSI+13 GO TO NS ENDS TeSIT3 
ceo. THEN IF SCS"9" THEN 
hy BEGIN. PE iitlagoneen SIes 
S1et O1leLOc PRIORITY i Dp 
x DIi*eLOC PRIORI SK 
Zi 
ENO STREAMS 
IF (PRIORI TY«P) <0 THEN QE; £ 
GETNEXT; IF LASTPASSED. THEN aeath SPQUTCOUFF: Se “T0 Exit ENO: 
IF a Catiol*Sio. THEN: Go TO PSts | 
PNK: REL INK: Lie Pla 
DEN INCEeTSPaCET oe eeGyn et Cac eeaatie 
IF NEXTLINK = 0 THEN -SHEETILEVEL 1, bred ¢ LASTL INK) 

F_LASTLINK = 0 THEN BEG N 0 
DISKIOCTOD* = COLNK INX- Ge 1IFS0,CASTEINGDS SEER C1061 TONASK? 
DLNKE29) © NEXTLINKS. 

DISKIGC100e+(QLNK INX O08 e OrLAS a NKDE- SLEEP CLIOD)» JOMASK)# 
SC2),CCF) ¢ IF CSE18J*PRIORITY) > 32767 THEN 32767 ELSE PRIQRITY3 
LEVEL « IF PRIORITY > MIXMAX THEN MIXMAX ELSE PRIORITY 
IF SHEETECLEVELI,CCFE) ¢ 0 THEN 
BEG NY SLEEPC 1003s TOKAI» “TNX Saige cemaaey CFF J)3 
OL NK ERS 


“SLEERC ELD} ¢1ONASK)) 
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e SPIT’ IF BUFF#0 THEN 08947100 fT aoe 
b_SE sat 5 _NOTCPACKETS cen ttnmnnnancrnenm OB PAT AIG T. 015 
ORGETSPACE : 0a947600 7 6: 
@ EXIT# UNLOCK: GcsH Qa997000 T 
 “PORGETSPACE(S): Ogsosocs 7. 
IF TYPES THEN BEGIN KEYEGARDCOUNTER ¢ KEYBOAROCUUNTER@ {3 08998200 T. O19ato 
@ SELECTIONS 08998400 T 020082 
__KEYBUAROCOUNTER * KEYBUARDCOUNTER#13 08998400 --ge0l, : 
a END} rr ee Qa996a00 T 0 
e END SHEETOIOOLER} oggo90d0 + 0 
h $ SET OMIT = NOTCOCSPO AnD DATACOM ) 08999999 Tt 
] $ SET OMIT = NOTCOISKLGG) 09299999 T 
FROGE DURE NHATINTRNSICCBUFF )3 VALUE Burr REAL BUFFS FORWARDS 09400000 000040 
: ae a wea eee oe START OF REL SEGMENT? ‘DSK ADDRESS: - 
om $ SET MIT = NG UXMEW Mee Soret , 09400099 7 000010 
: PROCEDURE INTRINSICTABLEBUT peackn VALUE FHS REAL FHS 09500000 
START OF REL SEGMENT OySK ADORESS = 
@ BEGIN 09500500 tT 000080 
% WHEN CALLED WITH FR= (=4)» TRANSFER TO AUXMEM ONLY 09500510 0000%0 
REAL DISKADORS 444 TS ¢erINTLOCS $37 TITSIZES #Me MAXINTS 65 5 09501000 tT a00dt0 
@ $ SET OMIT = NOTCAUXMEM) 09801600 y 00010 
P(Os Gs O» Ov 0)3 09504870 “OOGOT0 
2 IF (CT8sFHeCFFI)*0 THEN T1sSPACEC3003 0959q5yg00 TY O0QlL#1 
@: $ SET OMTT = NOTCAUXMEM) 09505100 T 0005383 
KWALT(C*Ts 3 ie sMCF ; ee eee 0950550 oyost 
al MAXINT $3 MCT) 4°43. 3° NUMBER OF MAT TAS TES + 1 09505600 7 d009T0 
@: TA7SiZE te MCT INK 172.08410)413 & UNTR.#47 SIZE+1WOeFOR DISK«eALOR, 09505700 fT 001140 
; FORGETSPA wa 09505750 OOLaro 
pe INTRNSCESCMCINTLUGT SGETSPACECMAXINT#T17S1ZE0001)2)18 09506000 T 001483 
Or CMAXINT+T47512E906238:40)3 * SPACE FOR INTRINSIC TABLE + INT, 847 09906100 fT 001880 
: DISKWAITC*CINTRNSC [NX QO)» MAXINTsDISKADDR)3 09506800 0902020 
MCINTRNSC IN, NOT O} te Os MAXINT t= MAXINT. whi Og507000 7 Og@2t1 
@r FOR Ta 1 STEP Y UNTIL MAXINT DOO” 09507500 T O0z26!0 
ANT ay TIPeNABSCCPC*PCDUP) sDUP)  CSE10)J+INTSIZE) & 09508000 002710 
CPCXCH) INX 0 + DISKADDR)L6t21t27195 09508500 T Op2gty 
®@ DISKWAITCSCINTLOCESINTLOC+MAXINT#2) oC TA7ZSIZE@1 > INTRNSCLI79,£6327))35 eee 7 0034%4 
NIRNSCE4U7] 3= C*P(DUP)IS&INTLOC(CTCIJ$ &% MARK PRESENT 09508 On3A! 
MCINTLOC@1)2 s08(TI7S1ZE“1 (CTF I; % DUMMY MARKER FOR DUMP/ANALYZE 09508600 7 004089 
Or DISKADDRESORC4tu? ty ys 09509000. 7 0043t2 
NTRNSCOC2)28 eB COUP) OR DISK ADDR; 09909500 tT: 0045! 
FOR Tiel STEP 1 UNTIL 20 DU INTRNSCLTI$#*PCDUP) OR DISKADORS 09510000 T 00473814 
e $ SET OMIT = NOTCAUXMEM) 095140500 T 0052%4 
NISIZE&SCINTRNSCLO] + 3 DIV 43 09534500 00523 
S$ SET OMYT = NOTCPACKETS) 09534999 7 O054ty 
@ + ENO INTRINSIC TABLE BUILDERS Gesarape 7 005h34 
| Weer te or ee : | ‘goat 
PROCEOURE CHANGEINTRINSICFILECBUFF)$ VALUE BUFF3 REA, BUFF3% 09600000 tT 000030 
@ ; START OF REL SEGMENTS DySK ADDRESS = 
BEGIN REAL ArBelODelsJoKoLs 09601000 Tt 0000%0 
REAL FHo Ts TS LABEL EXI Tew THOUTS 09602000 Tt 
@ | BEAL SIZES LeDISKADDRAT# 1.0 Ges iTeMrsu3 09602300 Tf. 
BOOLEAN SUBROUTINE NULEMIK3*S a 09603000 T_ 
BEGIN PO@LISH(1)3 09604000 T 
@ IF INTSIZE#0 THEN BEGIN INTSIZE + O3% 09605000 T 
09606000 71 
e 
e 


00286 


ms 
) 


a 


90268 


RETIN ~ g9e70000" 


a ak 


& 
e ENDS 09613000 Tt. Oo14%4 @ 
MIX ¢ POL ISH32 ; 096 000 O0145 
END. NULLMEXI® eg : | : 09615000 T. 1 
@ SUBROUTINE FORGETEMs% : 09616000 7° 
BEGIN SLEEPCCTOGLE ) sSTORE MASK. d}_LOCKTOGCSTOREMASK)5 - 09617000 7 
WHILE CM © MCLIJ).0CFJ#0 OU% 09618000 T 002040 
e BEGIN IF K>O TREN% 09619000 tT 002310 
IF_Kef3!12)=@700 THEN | 09620000 t 0o23! 
c COR UE TRE CUPL 2 188: - NG rere bata 002542. 
e@ oe KatChII% og ee Ps : og622000 T Goe7tt 
UNRERS Heat et pois 09653000 7: OO2at 
UNLOCKTOGCSTOREMASK): 09624000 002910 
) $ SET OMIT = NOTCAUXMEM) 09624010 0032!2 
FORGETSPACECINTRNSC INX 0)3 INTRNSC¢O 09624100 7 00322 
ENO FORGETEMSS ae ee : . 09625000 7 OO34tO 
@ DEFINE. ERROR = 60 TO EXITasx Fn eee os £ 09626000 y 003510— 
iE SLEEPCCTOGLE]» FREEMASK)} INTFREE + FALSE}3 es 09630000 ¥. 00 3S1d | 
T ¢ BUFF 3% . 09631000 T 004083 
) NAMETUCAsT)# NAMELOCBsT)3 NAMEIDCB91)3% 09632000 Co4alts 
F CFHFFDIRECTORYSEARCH CAs R917) 950 THEN ERRORS 09633000: 0044%2 
IF CJeMEFH+4).03636])20 THEN 09633100 
or IF JAOCINTYPE AND V#TSSINTYPE THEN . 09633200 
BE N DONT A A ON KNOWN NON#INTRIA et ise SRF, 
STHEAM(AsBeNTLS=BUFFs[15%15)°1)3 09633400 
@» BEGIN OSta2uIT sa a ST#sLOC As 09633500 
S 2 = ; in = H O96 £00 
af ‘SItsS1413 para CHRE: 09633700 T 005710 
s@} USta24 LITs NOT AN INTRINSICS FILEe"s 09633800 OOS7te 
et : | efile ue ere 
§ _ Pa FORGETSPACECFH)} PPeeTy 00613 
0 F FORGETSPACE(DIRECTORYSEARCH( As B4 16) ); p9838109 | 
ENDS . "09638300 T 006ST0 
e IF NOT NULLA. THEN COMPLEXSLEEPCNULLMEXDS- ee . “SPEREE ER | -006510- 
1F a istio THEN FORGETEMS 09636000 T 
 ] $ SET OMIT = SHAREDISK. 09636999 T 
If MCPFREE=O THEN SLEEPCCTOGLE J»MCPMASK) 3 09637000 
LOCKTOGCMCPMASK) 3 “ | | Sune * tale "09638000 T OO07B%4 
@ ‘$ POP Ont ee : : ; 09638001 T 0081143 
: sas SPACE C30. 090) +23 7 us es ee Orae 09639000 TT: O08123 | 
TALIVAG T#=3090)} 09640000 T 008480 
@ 1tsT+13+5xS¥SNO5 ; 09641000 7 006533 
IF _CITHSOIRECTORYSEARCKOME | EES Cee EEL THEN __ 09642000 T 00880 
FORGETSPACECIT)} ea 09643000 7 O092ty 
@ MCDDbRAS 09644000 T 009342. 
“MCTeL] eB “ = 09645000 7 009580 
DISKWA]T(Te=30%0)3 . 09646000 T 009730 
@ $ SET UMIT = SHAREDISK 09646999 T 0C9B832 
UNLOCKTOGCMCPHASK IE 09647000 00988 
$ POP OMIT oe ee 09647001 7 O10at 
@r $ SET OMIT = NOTCAUXMEM) le ees, eet ae . 09647999 T 
- FORGETSPACECT 3 1 er ee 09648800 T 
THTRINSTETAGCEGUTLDERCER. Cera 09657000 fT 
@: FORGETSPACECFH)S 09658000 T 
WHATINTRNSICCBUFF.C15215))3_ 09659000 
CAM(M ESO 5 
@ | 
8 


END CHANGING INTRINSIC FILES On USER DISK WITH MANY PRECAUTIONS|® 
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y * +, «, a. 8 * ry mS 3 x x 3 gy x x = q 


EBD a ra, TES8UFF (158157195 
BEGIN DOt=1e LI x MCP ILL BE 


m7 


DSeLyTte"; 
ENDs. 


Tt3A;3 


3 
DSs*7 CHR3 DStsLIT*/"3S1teSTei 3 OSt=7 CHR} 


NE3JNABSC#P (DUP 93 % set FLAG FOR ay. : 
EXIT#Qe 
DISKWAIT(Z9= 3070 ; 
$ SET OMIT = NOTCNOUT SHAREDISK) 
UNLOCK TOG CHCPMASK 3 
POP OMIT. 


09682200 


09682400 
09682450 
09662500 
09682350 
09682600 
09682610 
09682619 
09682620 


i“ OG GE 00 
09683400 


(09682621 


STZE® 0114 WORDS 


PROCEDUR HANGEM 8 A : A B 000030 
ws, ar START QF REL SEGMENTS 078K ADDRESS = 00292 
- BEGIN: ert ea a 09679200 7. 0000%0 
REAL Ae Be Ts Ze BASES O9679300 TT. O0nDTS* 
LABEL. EXIT: 09679400 T OCOO!0 
Tt=BUFF; 09679800 T. OCCOtO 
NAME A» NAMEJTD(CB i NAM (Be emis. 09679900 7 O002%0 
S. SET OMIT #. SHAREDISK a O9679999 7 00050 
If MCHFREESO THEN. SLEEP CETOGLEI»MCPHASK 5 094680000 T O008%0— 
CLO EG Osi MAOH 2 : a UDOBRO+ 00. oyele?. 8 & Gee 
$ POP QM]T 09680101 T 001123 
Zi sGETSPACE( 30202042) 09680200 T 001133 
et ae 094680300 00 alone 
: 09680400 7. 001513 
: 09680500 T 001840 
ae £ ‘HED 7 09680400 7. OO2Oot: 
BEGIN ; 09680700 T 002341 
IF CTPSDTRECTORYSEARCHC A» Bo 17) )%0 THEN 09680800 T 002383 
2 SLC hx eae ne a ees Ee os 6 10 
STREAMCALSEA]s TISAUFF, tise1si)* 1)3 09681000 T O0026%2 
BEGIN: PStel3 LIT"#NO NCP FILE “JSItaA; SLeeST+is | 09681100 + 002842 
é sage te} | W-§ r 3 ws zs : Paes 09481500 Oo ‘es 5 
DSeLIT"e"; 09681250 T OQ32%4 
END; 09681300 T 003233 
Oh BLO TF 003310 
NOS 09681500 T 0035%0 
IF CNTIeMET#al, £36%6])40 THEN IF NT LA MCRTY PE THEN 09681505 T 003510 
-# A DON A OW: CM ON KNOWN NON@MCP FIie = 09991510 003.6 
STREAMCAt® Lal» TISBUFF, (15815]"41)3 09681515 T 003983 
BEGIN OSts2LIT"# "3 SItRA; Sisssl+)3 09681520 T 004133 
3 HR [Ske "/") STts sete Tete te nae Dc, eo O946R O04 
eS tarcHRy ae ‘NOT AN MCP ens 09681530 T 004383 
“ENDS ah 09681535 T 0045193 
ETS to fens 3 OGHR1 640 COMBED 
FORGLTSPACE(GInEC TUR SEARCR CAT Ea 09681545 T 004683 
GO TO EXIT: 09681550 T OO4at2 
ND>s 0968) 004930 
OIF MEBASES213“22MCPBASE THEN 09644600 | 0049%0 
F URGE T SPACE (DIRECTORY SEARCHCMEBASE) «MLBASE*1 J» 16993 09% gt650 005132 
MEBASE]$SA, 09681700 0055%3 
MCEBASE+1 J%=b3 09681800 0057%4 
MCBASE#2) 22M 1410); 09681900 005984 
$ SET aaa = NOTCAUXMEM) 09681909 006282 
RGETSPACE(T)3 09682000 . O062t2 
ENDS 09682400 006384 


= fe ie iar Wee aie a 


Foret o 
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E 5 n Tk = 
op oO & ob > = 


BOOLEAN PROCEDURE SYSTEMFILECAsB)3 VALUE A»B$ REAL AXBS2 


BEGIN. LABEL DISK*LOGsTRUTH#D IR» SYS» REM» DECK, MASK, TESTS 
ABEL. DMP 
LABEL MAINT3 
$ SET che = ae 
=PCIR 
IF zy EQV. PLoISKD iat THENS 
PCCCA EQV PCOTR))=T) OR 
: A EQV PcLo FF 
no CCA EQV PCDMP))=1)) 
eo. ELSE IF (B EQV P(LOG))=T THEN’ 
2 A WV PSY ok 
$ nd ot Mitra SHAREDISK eee oe 
poke te oR Coe E QV. PEWAINT 873 


oeonrt mo OF fF WH = 


P nega 
C $ POP OM]T in 

@”” )% 
8 b 5 OM = if SHAR ) ; perenne 2 awa A tt ee oe 
‘ ELSE IF CA EQV PCDECK))*®] THEN 

or. P¢cc8 AND Lal oegh EQ PCTEST))=T)2% 
1 : “T OMTT #& Wh ; Se ee eRe ee LS eee 
ba ELSE P(Q)3% 

@ » PCRTN) 3% 


¥ DISK sis “piSkK "5% oer see ae SE 
= oe } Loc. #4, "408, MES eae 
TRUTHELY @377777777777777758 


NTR 28s 5H RY 3% 

SYS 333 “WSYSTEM "3% 

eee ReM 3: “REMOTE 33% 

BO ; tit "DECK "3% 
apa ~~ @770000000077773% 
 @420000000037443% 

“"OMPARE AN) % 


MAINT$#3 "MAINT "3X 
$ SET OMIT = NOTCSTATISTICS) 


Head creinpetni 
SET OM NOTCWORKSET 
REAL PROCEDURE PRNPETSPECASET(L)} 


THIS PROCEDURE HANOLES THE PBELOTENG: FUNCTIONS FOR COML9s DEPENDING 
ON THE VALUE OF. 28 5 

QC. FINDS THE NEXT REEL OF TAPE. 

1 FINDS THE NEXT REEL OF A BACK=UP OrsK FILE. 

2 HANDLES THE QT * OR ™ MESSAGE, 

3 INITAILIZES A NEW FILE CUR PACKET)» 

4 HANDLES TERMINATION OF A pakes: 


VALUE 2? REAL 23> 


Be Bel ve |e ae) ve BE ae! ae 


RCWst02 MSCWER 2, COMMONa@ 43 
INREC® +i tes 


CeeTeetges 


REAL EP ancHvacenst: Pea 7 Ble PIRSTFIDE ae 


START OF REL SEGMENTS DISK 


START OF REL SEGMENTS DISK 
09701000 


09701800 
09701550 
09701599 


09703000 


09704000 


09704500 


09705000 T 


09706000 


09706103 
09706150 
Oe oF. OO 
09707000 
09708000 
UG 7OBOG 

09709000 
09710000 
09 N00 


09712000 


09713000 


09746000 
09717000 


09718000 


ee 


12500000 


12500110 


12500120 
2500130 7. 


12500440 
12500450 
12500160 


12500170. 
12500160 


ADDRESS =x 00295 


T. 


+ 


a4 


09719000 T 
9720000 
SG7s0450° 


SIZES 0030 
09999999 T 000040 


T 


ADORESS = 00296 


2500500 . 


12501000 


12501500 


9292000 


- 42902500. 
REUSING. 
2603800) ' oe 


12504000 


ul eleven as 


ath 


“000080 
900182 


"0600 


i ol 


001242 


4H 


oogate 


000080 


- 900080 
0000140 
000010 © 


OO Oot - 


SIZE= 0081 wORDS @ 


000016 © 


0000!0 
0000!0 


09706089 t OD09" 
09706050 F 900 
NO7 04706 


Oo12t2 
O00 

0012%3 
OoLase 


001633 
OO17%2 
00173 

001940 
O020t0 


002930 


WORDS 


scoala: 


000030 
goneke 


0000%0 


000030 
000080 


000030 


Data Documents/inc. 


@ q 
r SEGNBSFINSTF D415 12504500 tT o0000t0 ¢ 
ad A : X=SFARCHVA RRO x 8 N ZO NR 2 126805000 I 0000! 6 
BOOLEAN 'SIGNEDON™SEGNRS 15 FORMTOGSSIGNEDUN+ 1, ABORTEDSFORMTOG+13 12505500 T OO00I0 oy 
® ~ BOOLEAN be acrrtleieter akeae abies bn lens ut cade a 12506000 T Oo00to = l@ 
ae es : ee ae PACK : : ABH ASOD. “o006 OB aoe . : 3 
$ SET OMIT =. FPACKEIS 12509500 T. 0000%0 ‘i 
e REAL PFIRSTFIDEFIRSTFIDs PCOPY=COPYS 12510000 T 000080 |@ 
SET_OMT = NOT RVE OR PACKE = 340500 OO00O 6 
oe 12512000 t O00c0dIn |? 
 ) LaBEel. Roe RED» SP ACENDs NOMORES ‘NOFILEs AUT» BOMBER,» NEXTFILES 12512500 f O000% {/@ 
eine ees es Ke PRINTITAGAIN» EOF» PRNTDOS» PNCHDS, TAPEND ONTINGE 29813000 t 0000t0  — 9 
RETURNFALSE» "REMOVEM» TESTs TAPECL» STOPTIME» RETURNTRUE» 12513500 T 000080 19 
or RETURNTOCOM\93. 12513750 T 000080 @ 
ABEL 00K 4 TAPE» NOMOREEL $2 Q SPEC ye INL LAL IZE» STARTANEWFILES 000 o000tO 
SWITCH St a. Son ce -:$9844500 T oo0cto. 1 
Om ee , + INDTIALIZEs “STARTANEWFILES 12515000 T 000080 s@ 
: nee y ea A Eee ae 3 he he : Q q HOO 15 
é = (PRTLPIRIN;eoS1KO0 I: 12516060 T Q000%0 16 
er = 43t5te 12516100 T 0000!0 |@ 
=~ gt oes ae ee SO) 50. 000 FO re 
#.30%B#> 12536200 T 0000%0 ng 
e pat. i ae : 12516250 T OO00t0 | | 1 
: BS. 290318 . : € OG00010 : 2y 
COPYO = 21318, 12516350 T 000080 , 
@: $ SET OMIT = PACKETS | 12516500 T 000080 1 @ 
2 REELNO = 30° 18%» ee = 0.00 000080 . 2 
a $ SET OMIT = NOT PACKETS “ . 12517500 T 000030 25 
en. $ SET OMIT = RUE | (12518600 T 000080 by @ 
_ - STA_ S O#s De ee : ; 518700 000010. 2 
7 $ POP UM]T 12918800 T O000!0 ae 
Or SEPARATION = 46#; * FOR 6 [PIs SET IT 10 70 FoR 8 LPI, 12519000 7 000080 oj @ 
Ps Aasssssassssussrattttestesssessistatseatessussudevesersensersentanesags ‘ 30 
; : | 12520000 T 000010 a1 
eH. SUBROUTINE, ROYTAPES | 12520500 T 000010 7 @ 
aa BEGIN _ 00018: , 

« BeTiBtoli=e5ai 12521500 T 0001!0 
@F PCWAITTIOCE 4200000000 Cr UNIT pe DEL); 12922000 T 000233 a1 @ 
Bs PCWAITIOCBsOsUNIT) »sWAITIOC Gs» es DEL» DEL): 12522500 7 000411 36 
ae RECOUNT? #0777773 12523000 T O007%y a7 
e" ENDS : | 12523500 7 000810 3 @ 
; : 2524000 T Q01140 fs 
0 FIO RII IIR III IIIT III IOI IOI RIT Ok ta tk ate 12524500 7 40 
12525000 Tf |@ 

SUBROUTINE REWINDS 12525500 1 42 
: BEGIN : 12526000 T 4 
@ | STGPTIMING (0s 1023); | 12526500 T «@ 
; PCWATTIOC@ 42000000002 OF UNIT) sDEL)3 1252709000 7 45 
IF C(SAVEWORD AND TWOCUNIT))50 AND PRNTABLECUNIT).Cif1) 12527500 T 0013%2 : 
@ AND NOT CSVPBT OR QTEO OR NOCONT) THEN 12528000 T 001532 | @) 
NDEPENDENTRUNNERCP ( ,PURGEIT. eUNIT» 64 528500 0020%0 
| ELSE a 12529000 7 Q02%12 | i 
@ | “BEGIN LABELTABLECUNITI¢@1103 | 42529500 tT OoaTta 1@ 
' MUL TETABLECUN) IT J*ROCTABLECUNTTICOS 12530000 7 Ogasts | ; 51 
SLEEP (LTOGLEJsSTATUSMASK)} 12530500 T O027%2 5 
@} READY*READY AND NGT NT1*TWOCUNIT)S | 12531000 T oc029t0 “| @ 
‘ RRAME CH SNOT NT. AND Pere en OR al AND SAVEWORD; ; 1 2531500 T 00313 5 
Pa wi ‘ Couey oye hrc) cua ee 2 or O03 ny. 55 
@ Fs leq @ 
“SENeNEeTE EATEN AOS CR LOE E Se eT eS Tyee Te eT LT TET reer eer er cee ee ee rere T 
& 
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g * * y y a * 5 <a aS = TS 3 


oor @ 79 & wre = 


IN 
PCWAITIOCB» @20000402UNIT) »DEL)3 


UBRO N 0 - OR AP 3 
“TeBRDCTABLECUNITIJ 
IF SIGNEDON THEN FPBL4)t=FPBL4]= LOSINFOL24 J“CLOCK=PCRTRI 3 


IF PCCTSEFINDINPUTCMF IDS @122212342546447eT (14s 10leteT  C24ti7ds 
rOr0eTt=0, Or0,0)) GEQ O» DUP) THEN 


BEGIN |.” 
ROCTABLELUNITis11, Cete}taPimixs 
LABELTA t=F 10, 


ret TI TERT OED: % FINDINPUT CALLS STARTIMING 
IF SIGNEDON THEN FPBL 4) $=FPBC4]*LOGINFOL 24) +CLOCK+PRTR)3 
RDYTARES 


Lookront are tsps: 


AD 


CL ENe ae hR REDE ED AAR EO ES AW ENERO ORS OWES KORE TERS EWE KE COE WORE Ee OER 

REAL SUBROUTINE READTAPES = 

BEGIN ; 

Rpt. IF DSED OR PRICPIMIX,@25J)25 THEN BEGIN P(5)3 GO TO RED ENUs _ 
IF WAITIOCB*@2000040UNIT) C4284) THEN 


IF MUB INX 3] THEN 
eu een ere THEN GO TO RD} 
GO TO REDS 
ENDS 
OR Te=17 STEP 18 UNTIL 0 
JF McB INX TT), T2081 THER Taase) 
PCT>200)3 
REO’ . READTAPEssP3 
EKO3 


FIO IOUS IIIIDIIIIIGITIOGIDINIGUIGIIOIUIGCIIICIGIOIDIGIOIDIGIDIOIDITIDIGIIOIOI II ICICI It ie ie 


BOOLEAN SUBROUTINE share tenet 


12538500 


OY. 


12534000 
¢ 


12535000 
12535500, 


SO 000 
12536500 
12537000 

7500 
12538000 


12539500 
12540000 
0s500 


“{25atooo§ 


12541500 

A2 000. 
12542500 
12543000 


543500 


12544000 
12544500: 


545000 
12545500 
epee 


12547000. 


“4 


12547500 


12548500 


12549000 | 


12550000 fT 
12850500.-7 


2551000 
12551500 
12552000 
12552500 


12553000 | 
12553500 
554000. 


12554500 
12555000 

555500 
12556000 
12556500 


12557500 
12558000 


BEGIN . 
X?aNUMS 
WHILE (X&=X*1) GEQ O Qo 
BEGIN om 
DO UNTIL CTIFREAOTAPE)3 
IF 7 GEQ 3° THEN BEGIN PC1)3 GO TO SPACEND END; 
yi) = ze 
P(0O)3 
SPACEND! 
A OF $=P3 
END 


Be ee ERE E REET EEE EEE EIR ETE OE EA Reg tak 


eee SUBROUTINE FINDFILEs 


oer Te Sgr rir fe ao certo akg ane WSS 64 THEN 
ma : NG ORE. 
oa: 3a ai 


PC CENRT EO). SOB AUE IX 


12559000 


12559500 


BADNNOO 
12560500 
12561000 

»O0 


12563500 


fO0: 


a4 


thee 


098233 


OO34%y 
O0 34 
0035%0 
003510 


0 365 6 


0037%0 
0044!0 
004 $Q 
aie 


006140 
006130 
006130 


006440 
006410 


O064t0 


006534 
006710 


006940 


botats 


007580 


008442 


008e! 
0082%2 
008253 
008233 


008293 
008340 
0083!0 
008333 
0086'0 


008630 


666810 
009 0 
oe90te 
009033 
00903 


very te 


saree lee 
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ve e Bi . i a 7 a a a 5 5 = Th 3 ‘: 
G > & & © & & f ¥ 


12607500 - 


Lohdbebtlolcl foadechalics helatote tui tuluhetudniel Acbelch-heleBetokint hakcRekalk kaka 


CURROWS2403 12564000 T 009884 ® 
BOR DI F=HE A PLE IN 6 ole NO992O 
TF HEADERE73*0 THEN 12565000 7. 010082 — red b 
ee cour 12865500 T 010210 |@ 
GO 10 NOFILES 12566500 T 040283 ‘ 
END} 12567000 7 040384 |@ 
ABELTABLE(V]t=NABS FIO)3 — = 12567500 O10a%4___ is 
eT : | 12568000 T 010443. ; 
NOF ILet FINOFILE1#P3 12568500 7 O405to | @ 
WOR 12849000 TT. 0405%) 
12569500 T 0105%p bi 
FI ITU III IO IOI UII I RII IG IU III OID Rink toi tk 12570000 fT 040582 i@ 
57050 031058 1 
BOOLEAN SUBRAL INE NOMOREREELS 3 12871000 y O408t2 8 
BEGIN, : | 12571500 Tt 010640 hh 
ee F HE ADER» CCF] GEO. 64 THEN: FORGETSP ac) ECHEADER 12572000 7. 040680 ns 
IF FID. CREELNOJ=0 THEN 12572500 7- 0109%0 
BEGIN HEADER? 203 12573000 T 041084 |@ 
PCL)s = 12573500 T 043138 13 
END EVE | ee 12574000 T O414t3 "9 
BEGIN. us ats . 12574500 T O11153 hed 
‘STRE AM CON tay, FralFinj3: . 12575000 0112! : 2 
BEGIN SIt=L0C ONE* 09258 ADD END; 12575500 T O113%4 . 24 
PCFINOFILE)3 : 12576000 T 011410 ot @ 
NDS 12576500 T 041580 2 
NOMOREREEL St =P 3° CY 12977000 7 011580 ; ba 
ENO 12577500 T 041594 ps @ 
SET OMIT = NOT PACKETS 12578000 0115? 2 
. 12587500 T 0115%2 i 
AIS SIAS SS SEO A ARAN NSPS E ERS LSTA ATEN e SERRA See ANS ERP RET SONS 12588000 T O115%2 2 @ 
ELI 0 5% kat 
SUBROUTINE. REMOVEITS Se ee a 12589000 fT. O415ta e 
BEGIN me a A ce - 1a389500 tT 011640 ini 
TPIRDIRECTO aYS AR CHC De*C(F IDS APPIRSTE IOs SEARCHV aL — 2690000 0116140 E 
IF T GE@ 64 THEN 12590500 T 0118323 
$ SET OMIT = NOT PACKETS 12591000 T 0419%2 5 @ 
p00 IF FIDsIQ HEN GO A NTl NOMORERE ¥ 12592500 04193 3 
$ SET GMT = Not PACKETS ‘ 128993000 T O;22%02 37 
AuTs 12594500 T O122t2 (@ 
NOS -49§95000 ° Terie 39 
42595500 T 012233 
Akeweee keke ett etek tet eee tae nt kth kikk tie ek ee eee 12596000 y 0142233 
12596500 T 042233 
SUBROUTINE PAGESECTS . 12597000 T 012283 
BEGIN 12597500 Tr. O1a3to 
$§ § OMYT. * NOT RVE _. 12598000 OL1aszto 
PCWAITIOC@4000100000209V)» DEL DS 12600500 Y 0142380 
ENODs , 12601000 7 O324%2 
12601500 T 012680 
calc alah cacti ati sla idle ales phe sa Tas licked alatehahala ahaieilalah tales 124602900 fT 
: 126048300 T 
$. BROUTINE WRITEBS 203 T 
BEGIN 12603500 T 
$ SET OMJT = NOT RVE 12604000 T 
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$ SET OMIT = NOTCNEWLOGGING) 


END TDLETIMERS 
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BEGIN 
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ahaa Siena 
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BEGIN =. 

Aer SCMINVALID™ "FILE "NUMG  #" NUM 
ENDs 


Russtssnserstssenstrttestusenaretssaresansssestanstanansnetstenes Raekann 


PCDEL» ZsMSCHe STFS 
Oo TO. SREP 
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peak: 
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INRECSSCNOT 17) JNX INRECI 
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IF UNIT#18 THEN * DISK PORTION 

BEGIN NT2ts(T, £9824) DIV SyeTCi2tayy - 
LOD? s(HEADERT8) DIV 3)x3).. 
IF CT ts3xNT2*SEGNR) LSS 0 HEN _ & SPACE BACKWARD 
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BEGIN 
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reas 
013080 


, 013282 


014283 


6 

044243 
O7a3zto 
U4 4350 
014533 
014940 
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CUMROWFKEHEADER( 9). C4915 )493 age : 

WHILE HEADERECURROWJ#0 DO CURROWteCURROW"L3 

IF CURROW<10 THEN 
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BOMBER? NTiss"RANGE +5 
IF CNT2SePRTCPIMIXe@25]), tein) THEN 
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MESS NVAL ID's tg "sO, 
ote C9324)5090)3 
PRTCPIMIX»@25)3=55 


* FORCE aA QT 


iD-UNTIL (TesrOps7) Ge@ oe : 
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O ANOTHER ROW 
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IF (CURRONt=CURROW +1) GEG CHEADERES Ty C43%5]410) THEN 
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12632000 
12632500 
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END}. 
SEGNRI=T3 

END ELSE | » TAPE PORTION 
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IF (Ttal, (982839 Ess” ANRECEIAD CCF) THEN 
“BEGIN FOOte(T+4) DIV Se. oe 
: pO PCWarTy0¢(89 INX 9) 297 8458: De Qe UNIT) 2 DEL) 
UNTIL CIOD%=IGU=1) LE@ O OR DSED OR QTEDS 
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END ELSE GQ TO BOMBER 
ELSE oe 
BEGIN J@Dta(T, (93241) DIV 53 % SPACE FORWARD 
DO UNTIL CXtBREADTAPE) OR CLODI=10D"1) 803 
IF JOD4O0 THEN 

IF x45 THEN GO TU BOMBERS % S=OS"*e0e LET IT FALL THRUe 
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ENDs 
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T"S OR err 
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ING AND” READYING THE aes PILE, AND Shee ee TNe COMMON, 


Rew. teryiePC. COM19»LOD) INX 13 
$ SET OMT = NOT RIE 
i= OM Me 
tr Pe, INRECeLOD)80 THEN 
BEGIN 
OMIT. = NOT R, 
BEGIN ; 
Ip LABEL TABLE (V],(C1215)4@21 THEN % PRINTER CLeED 
BEG 
IF CUNIT#@COMMON .CUNITFJ)2<16 THEN 
clk LABELT ABLE CUNIT22#21000000606000008 
k 


GO TO INITIATES 


$ SET UMIT = NOT RyeE 
ROCTABLELVI,C8:6]3SP1MIX3 
STARTIMING(SsV)20000° 
STARTIMING( O# UNIT 2=COMMON « UNITED 
eae 


COPY! =COMMONeLCUPYF JS 
If UNIT=18 THEN 
BEGIN | | 
MPD STF ead THEN "PUD" ELSE "PBD NS 
$ SET OMIT = NOT Ry 
FIRSTF Dec ABELTABL. EV) (626273 


QUS SETUP TASKS» INCLUDING STARTING THE TIMING FOR. 


$ SET OMIT = NOT PACKETS 
FID&sFIRSTFIOS 
SEARCHVAL 3 #33 
IF FANGETEE THEN. GO. RETWRNE ALES: 
ENO ELSE | 
: BEGIN 
ABORTED? =05 ) 
NOCONTS #CCNUMS sCOMMONeCNUMF J) OR COPY) £03 
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12665500 


12665750 

ele () 
12668000 
12668250 


esol » (}i} .* 


12669250 
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o281t2 


O283%4 


02838; 


0285314 
O07 & 
O28bt2 
028732 
OQ 2AATO 
028830 
02880 
OXBG 


0290!0 


029443 
059315. 
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BEGIN. 12691000 T 034330 1 
@ if 1s aes INV AL LONU Ms & SET BY READTAPE IF EUTs 12691500 T 034382 |@ 
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SENDE 12692500 T 0346%2 © 7 
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@h % “HANDLES: We END or a faite AND FE dunes our nna To 09. NEXT, BUT 12694640 T 034842 @ 
% RS TAKEN CARE OF BETWEEN HERE AND “Poeedso0 + Ornate 
: % THE a AT eG 12694630 T 034882 
e x 12694640 T 034882 /@ 
ABORTED= ‘NGO TO TaP: gt ke 
TF SIGNEDON THEN 12695000 7 034913 et i 
or BEGIN ce poe 12695500 T- 035010 ) 1 @ 
OGINFo 2itseP (uP +PRO Ty MELPIMIXI*CLOCK+P: RIR i 12696000 0350! 21 
2 LOGINFOL13] t= {OT IMELPIMIXTD CIOTIME SPAM GX Ii LOgNFOl13))3 12696500 T 035333 23 
@ OLOIOLETIME? sOLDIDLETIME+L OGINFOC12)3 12697000 Y 03571%0 by @ 
: PROCTIMECLPiMIX)] t=*P(OUPI=LOG NF OC 3 12697500 T  O5BIo 24 
OLETIMER? - 12698000 T 0360! 2 
@ F: TOeENCOEL ag tavaRcPimiys73¢ “JAREPAMEX» 72 4=LOGINFOC1 4293 13698500 T 036280 2d @ 
gf OGINFOLI7IF=xXCLOck+PCRTA — 699000 Tt 03663 2 
en LOGINFOL18]?=(0SEDx2)&OATEL1316430)3 12699500 7 036819 28 
?@F LOGINFOC23I§aFPBP 31 aT INUCUNITI (24348442); 12700000 Tt 037483 27 @ 
3 fo OGINFOC28 jteFPBCBI&TINULVIL24%18312)3 __ 12700500 037439 so 
of “TINUCUNITT ,Cistiaissor TyNUCVI,cielielseos 42701000 T O377%4 31 
5@; SIGNEDONS *LOGINFOL241+CLOCK+PCRTR)S. 12701500 + 038211  y®@ 
LOGINFOL24) tel OGINFOr 29) 35 1GNEDONS 2702000 0384S | 
FPBLC4]?s(*PCDUP) )=SIGNEDON; 12702500 T 0386t2 
@ » FPBC9J3#(*P COUP) )=SIGNEDON; 12703000 T 0388%2 9 @ 
. OGSPACECCLUGINFOCOI)» 30)3 12703500 T 0390%2 36 
p FORGETSPACECLOGINFO)S 12704000 + 039143 7 
eo» SIGNEDONS®03 12704500 T 039213 @ 
s ENDS a 2705000 7 0393383 29 
12705100 T 40 
rd] If DSED OR QTEDs SKIP THE CHECKS FOR COPIES. ee T «|@ 
705420 4 
If CTERMFLAG#SOSED OR QTEDx3) THEN igrossso + 
@ If vez2 THEN GO ‘TO-PNCHOS ELSE GO TO PRNTDS3 12705500 7 a@ 
: 12705600 7. A 
; AILS. THIS SHOULD ONLY HAPPEN AT THE END 12705610 T 039933 : 
e OF A BAGK=UP TAPE. NOTE THAT IF A FILE wUMBER IS SPECIF LED» INITIaL* 12705620 T 039933 «| @) 
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er. % ARRIVE HEREs IT MUST HAVE BEEN A BAD NUMBERe IF IT 1§ DESIRED 10 12705450 7 0399 sd @ 
ne % CONTINUE DOWN THE TaPE AFTER THE SPECIFIED FILE» THIS TEST WILL NEED 12705660 T 199 51 
B2 s To BE CHANGED, 12705670 y 039933 5 
sa : 12705680 ~ 039933 sy] @ 
IF T THEN x _FIRST GET FAILED 12705750 039933 5 
er. BEGIN. : a 0 ye | @ 
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END ELSE GO REMOVEMS 12707000 T O405t2 & 
a ee FO 0.5 
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BEGIN i. eo ee ——«-t2707S00-T  OMOrtY 
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LFIOseFIRSTF IO: : ; rae OO "(eqs 
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() 
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$ SET OMIT = NOT PACKETS | erias00 
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IF V#22 THEN. % PAGE EJECT AND SEPARATE 12726500 T 0450!0 
BEGIN ) , = 12727000 T 045083 
| PAGEJECTS isc | | 12727500 T 045131 | 
PRNTDS# - | 12728000 7. 045210 
ea FF SE PARATE THEN ee on ote 25 : 28500 t.-0a5240 
BEGIN 12729000 T O0452!3 
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IF ada THEN % TAPE 12740500 T 048030 
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“BEGIN. 12742000 7 
: wy Wea : ' t2S500.-t. i 
REN INOS 12743000 T 048330 
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ENO ELSE Be cere ane 
“BEGIN EE EES TRY THE NEXT FILE 


pe S URa, re eee i : saba 
CONTINUE! SETUP INRECS 12746000 T O487t0 
RETURNFALSE? 12746500 T 048830 
P(O)3 | 74700 048830 
GO RETURNTOCOMI9S 12747500 7 O46aty 


ENDS © 


as 12748000 T 049040 

ENDS oe : rcs 12748500 7 049089 
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REMOVEMS 12749000 T 049080 
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TEST? ® FOR CONTINUATION FOR AUTOPRINT OR pve, 12752500 T 050230 

IF AUTOPRINT AND NOT (FURMTOG OR TERMFLAG) AND 12753900 f 050230 

WO AND SAVEWORD 50 z O 050420 

$ SET OMIT = NOT RYE 12753750 7 O505%4 
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ENOS 12756000 T 050980 

TAPECL! 12756400 T 050980 
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$ SET OMIT = NOT RYE - 12757350 7 OSi1!0 

. SETNOTINUSECVsFORMTOG)3 a 12757500 0 $0 
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SIZE 0517 wORDS 
00 Q 


PROCENURE PRNPB SPECASER(2)3 


ADDL TIONAL THINGS FOR COM19*s VALUES OF Z ARES - 


INITAILIZE LOGGING. 


Agsoanse tT 000080 


Data Documents/inc. 


e 5 . u 3 rs * z : » ES = x. x KS > F 
5 o & & 3  & = So & ob 


ROWS +0s MSCW="25 COMMONS"43 
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TODmFIDels TalO0+1s Bate ds. 
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$ SET OMIT = NOT RvE QR PACKETS 
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BEGIN ; 
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PCPIMIX)? PIMIX¥=03 
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B GIN 
E TREAM(US=TINUCV]» P MIX» INRECs D&tsTs=SPACE ))3 
“BEGIN. pS#sLiTee"s 
oS Lyehge Us SI2aS1453 OSis39 CHR =. eh 
5820 LIT" FM ROOEPRNPBT/OISKe" 3 DSts2 DEC; 
Uta0LS Dl :2O[s23 UStaFILLs DIt=us 
SJ#SINRECS OS355 LIT" FOR "3 
si issiet OSis7 ane OSteb ite ses 
a a 42 DS { iR3 Sts. ae 


mes Ete abs 


pece tee 
12800150 


12800500 


12801500 


12802Q00 
802500 


12803000. 
42803500 
804000 T 


12804500 


12805000 
12895500 


12608000 7 
42806800 
: 0. 


“42810000 


12810500 
81200 


12842500 


12813000 


« OO 
12814000 
12844500 

815000 


12615100 


12845200 T 
RiS 300 | 


12815400 
12835500 


12815900 T 
12816000 | 


216600 
12817000 
12817500 
817600 


12818000. 


42616500 
9000 
12819399 
12819500 
2PB20000 
12820500 
12821000 


ieB22000 
12822500 


12823500 7. 
12824000 
198D4500: 
12825000 


12825500 
12826000 


. 42826900 T 
Barc 


eCELET 


002384 


eect 
Q0008O. 


(0000808 


000080 
Q00080 


900010 
9000t0. 


00000 
0000%0 
000030 


Teo00to 


900080 


O000T4. 


000030 
000030 
000010 
000070 
0000!0 


ooao ) 


00000 
000030 


000040 


0000t0 


DOCOES 


0000140 
000080 
000030 


‘00080 
900080 


000036 
0000!0 
000180 
000130 
O003%t2 
Q00d8a 


00054 


000532 
0005t2 
0008 %O 
O008ty 
000834 
BOR 

Qodary, 
000910 
0900 tQ 


O013t0 | 
00132 


ate as 
OoL7?1 
001834 
00192 


Data Documents/inc. 


a A =. Sn <a 5 ~. 3 > 
et os - ‘5 ve a 7, = s a a it 


a 


ENDS . 12828500 7 002333 g 
—SPOUTC 22 2.000 002420 
VAABSCTIsvanevnyesetazronevarcsoteztozevenczateatey 12830000 ¥ /@ 

END M St BROUTING - ena 5RI0800 7 | Opagti. 3 
12831000 fT 00300 4 
eRe ee ee 12831500 T 0030%0 5|@ 
SUBRQUT : ADEM 2BUI O_AND SPOUT BAD FM MESSAGE 2832000 f 00300 6 
BEGIN 12832500 T 0030%0 ~~ ? 
"STAEAMCAURTINUCTInOXiePaM 4s THeT aSPACE CODD 12833000 fT. 003010 oe /@ 
AG@IN OSt#19 LIT™INVALIO INPUT UNIT "3. Pers: 12833500 7r..0033 9 
S1#=LOC MX} DSts2 DEC3DSt=2 LIT FM"; 12834000. 003681 Ie 
SIt=LQC AZ SI8sS1+53 DS?a3 CHR; 12834500 003784 1@ 
12835000 


__OStsL]T " "3 _D1ts0l"g3 OSt#F ILLS 


igeseace + 


teesTs0G, 


co4oly 


Cree CELE Pee ECTS IT TSI LeS ECL CCCCCererereeererereerirrres 12837500 Oo40ty 71@ 

o 838000 00408 ie 

SUBROUTINE RATTRE ABER AE CTH 12836500 7 OO4G0t, May 
BEGIN. 12839000 T O04110 4 @ 

: ‘OMIT = NOT Rue =. 19500.” 004120 2y 

BEGIN 12842500 yr 004130 P 
PCWATTIOCB INX ©210404000000s0eV)epEL)3 12843000 T 0041!%0 1 @ 

EN. WaT e 000100000 202 ‘Yed = 12843500 7 004310 | 24 

ENDR 9 i 12844000 T 004583 ; 
ENOR 12848500 7 004883 | | @ 

ee x Ae ae ae a fete a p00. O08B30O |? 

Sa Gis aA ARNE NAAGG ONE AR MEN SUNG NR RAOENN a0d SORA WANE ee e¥e es ewe backce daa 12845500 T 004830 28 
12846000 T 4 @ 


% 
cave eee 
SIGNIN! 


HANDLES FIRST RECORD OF FILE» PICKING UP LOGGING INFO AS WELL AS 
~ COPIES OR Fo@m SPECIFICATIONS. NOTE THAT LABEL INFO IS SAVED IN 
LOGARRAY FOR USE AT ABORTMSGe TIMING IS STARTED AT INITAILIZE ANDO 
D. : Ds aT M_OR AT STOPTIME FOR TAPEs DISK. ANO THE 
urPuT UNIT RESPECTIVELY. LOGARRAY IS YSEO TO REMOVE THE TIME 
ASSOCIATED WITH A GIVEN BACK UP FILE FROM THE TIMING IN THE FPB AND 
LOG Ij TO THE USER. THAT IS DONE IN SrGNOUT ThHuSs THE TIME LOGGED 
AT PRNPBT/OISK EQN 1S RHE AD Tl r ER 
FILE’ TO FILE 


LOGINF Ot sCmMeCGETSPACEC31, RELY SRTESECIEL 
IF FORMTOG8sINREC(13] THEN FMS 
IF COPY LEQ QO AND NOT COMMONs({COPYO) THEN 
COPY twlF . ao NOT Se ELSE O3 
LOGINFOLOJsa3s , ees 
STREAMCStaLINRECLs 


3 
% 
x 
% 
% 
% 
a 
% 
% 
a 


+4 


BEGIN STieSs pSis9 WOSF ENDE 
LOGINFOC10)3 853 
LOGINFOCI1) 3323 

INFOCL2 Ita 


~“LOGINFOLLSTt=DATES 


12848000 
Ventas 


12848320. 
— $eed8130 
12848140. 


Fares 


12848160 
12848170 


2848200 
12848500 
12849000 
12849500 


12850000 
“12850500 


12851 
12851500 
12852000 


12854500 


12847000 7 
42847500 3 


126464380 - 
12848490 


i g32500 


004810 
t 


004810 
0049t0 


005144 @ 
0 5 


T 
T 
T 905141 
y 
Tt 
bi 


T 4 
T 4 @ 
ia 
T J 
T 005510 7 @ 
T B 
T 006030 wa 
T 006510 1@ 
Y. 006641 5] 
T 5 
r «1 @ 
i 
bole: fps 
, 1@ 
T 007830 
@ °® 


Data Documents/inc. 


” a 5S a S. = si = ~. 3 


LOGINFOLI6)]:#XCLUCK+PCRTR)3 
CGINFOCA9ISFUSERCODELCP MIX I3 
LOGINFOL20 I: a"PRINTER*S 
LOGINFOC2],]28"6aCKeuPYy) 
~OGINFOC22]3sLOGINFOL 2738203 
LOGINFOC Za] s2==CLOCK@=PCRTR); 
LOGINFOL25]2=INRECLO)} 
GINFOC26]):3INRECCI)3 
LOGINFOC28]#SMLINREC INx NOT 1433 
LOGiNF CERO ¢TNAEGER3/ 
INFOPSOIeINRECT 323. - 
7 FORMTOG THEN 


%® SAVE LABEL INFQ FUR ABORT 


SLEAP3 


12710000 | 


ae ve] 2 de 


ACCIOENTAL ENTR¥ AT O- 


BEGIN COMPLEXSLEEPCHEPLY(P! WL X GEQ O OR DSED OR QTED)S 
IF NOT. WnYSLeercty THEN BOS 
: "M3 GO TO SLEAP END: 
IF "AEPLYCPINTNI: CCF ISVFM THEN 
IF CT&SsREPLYCPIMIX).CFF)) NE@ 20 AND T NEQ@ 21 THEN 
Q N . - A 
LABELTABLELT]232®@1143 
tee 


Ai) AND SAN 0 af) 
RRRMECHISRREMECH AND T3 
SAVEWORO'sSaAVEWORD AND TZ FMs GO SLEAP 
SET OMIT = NOTCRYE AND DATACUM ) 

END ELSE 
IF T#V THEN 


Q iy 


t= LABELTABLELV)3 
t= ROCTABLECV]3 


LABELTABLELT] 
ROCTABLECT] 
MULTITABLECT) t= M AB : 

CABELTABLECV] = MULTITABLECV) | t= ROCTABLELVI te Of 
~ FPBLO), CI6IG TI RCV ERT O15 


ENDs 
eee ee OR PUNCHLCK AND V=22) AND NOT CDSED OR QTED)3 


ABORTEDs3 IMPLIES ABORT HAS UCCURREDs CURRENTLY» NOTHING ATTEMPTS TO 
DISTINGUISH BETWEEN 1 AND 3 BUT ABORTED MUST Be SET HERE FOR TAP 
So WHY NOT MAKE IT RIF ECHENTs 


ABORTE pieay 
STREAMCT#ADSED OR OTED: B)3 
BEGIN 

DSt=#g LIT"#"$ Slt=Bs 

—CIMscisTs GU TO AB; 

D1ltaOl+243 
2 pSte=ae LIT 
GO TO LENDs 
DYT3sD[434% OSts44 LIT" 


Dst=16 HOSS DItsBs 


ACK*UP TERMINATED BY OPERATOR. 


ABORTED "3 


12855000 
85550 


12856000 
12857000 
12857500 
128589000 
1285850 
12859000 
128659500 
B6V000 
12860500 


12861000 
2861500 


12862000 


* ROO 
12863000 
12863509 


—$2864500 


12865000 

B65800 
12866000 
12866500 


42873000 


12873900 
2874600 
12874500 
12875000 
875500 


12877500 
eee 


"42876000 T 
12876500 1 


tgaregod tT 


12879100 7 


Fae scae 
12879610 
12879620 


12679630. 


12879640 


2680000 . 


12880500 
12881000 
12881500 


12882000 


12882500 
12883500 
12884000 

884500 


12865000. 
12gueeNO 


12886500 


683000. 


0079%4 


008120 


008313 
008S5t0 
0087%4 
00894 
09903 


009844 
9095 t4 


0096192 
009824 
O0098t9 


0.09950 


—-On0ets 


-O7092 


0114'0 
011532 


12 
le 


Oyeet2 
neeele 


ETT 
0131%3 
01338 


O14ite2 


014132 
O14733 
014932 


o19936 


Bact 
014930 
014910 
0149!0 


014940 


014920 
014933 
0153%2 
015332 


“015592 
05684 
01561; 


016430 
O164%4 
01633 


016341 
O463T2 
QO16S10 


016684 


Data Documents/inc. 


zy zy . 


12861500 


5.3 6 3S FE SESSRESESSREESER 


STREAM(SeCLUGINFOLIIIJ»T¢0%B)3 | 
BEGIN OS¢ SLIT" LABE "> SI*S; 24 (SJeSI+8 DS#1OCHR} 
—- STeS1#as DSesCHRs TeSIi SIl+S3 OSeOWDS3 Slots 
—SieSi¢s Peet y. “OSe7CHRE etal at Secrets DS*7CHRS 


END} | : 
WRITEBANDEVECT3 
Go TO ExiTTocomios 

" AR: - iF ' pete t Te Sa : 


oe a ee elt 


BUILDS ERROR MESSAGE FOR QUTPUT AND ALLUNS OPERATOR To OK OR DSe 
ED PASS BA nHE THER OR NOT ai ERM NATE 


Tae ae 


BEGIN 22¢DSs™2 LIT ">>")FSI:®LOC A}S14=S1473 
IF Sc="p" THEN Boiss Lit " py]Sk * ELSE 
1) 78 26 AF 
“pSt826 LIT PARITY. ‘ON PRINTER: BACK UP "3. 
22c0St02 Cyt mary) 

ND 
$ SET OMIT 3 “NOT CRVE AND DATACOM ? 
eee 


WHY? 
FILENESSC"#PARITY™/07 09 "ERROR "*040%095 
REPLYLCPIMIX] 1e@ VOTE VWYL 36142863 1303425633 
COMPL EXSNOOZECMIXMAX*REPLY[PIMIx) GE® 0 “i DSED OR QTeD); 

ACCIDENTAL ENTRY AT O 

NOT WHYSLEEP(VQT&VWY 36142161 8VOK (30842161) TH N gO ue WHYS _ 
‘TrsQSED ‘OR ‘QTEDS | oe a 
EXITTOCOM9# | Orage ys 
FX» STF 


P GaRnS £09 XC Hat a 
“NO CF SECOND ROUP OF PRINTER BACKUP SPECIAL CASES; 


PROCEDURE COM193 


COM19>» TOGETHER WITH PRNPBTSPECASEL AND PRNPBTSPECASE2 WHICH SHARE 
ITS STACK, ABE THE wORKING PART OF PRINTER BACK=UP. INFORMATION IS 
PASSED TO COM19 IN COMMON AND LABELTABLE» AS FOLLOWS3 

COMMON. C4335) UNIT_NUM ER oF put PUT UN T 


ie OUTPUT UNIT ‘CONTAINS. THE FILE 10, 

-WUMBER OF COPIES SPECIFIED IN PB MESSAGE, 

IF TAPE» STaRTING FILE NUMBER GIVEN IN Pg MESSaGe. 

IF O1SKs =0 IF ENTIRE PACKET IS TO BE PRINTED» 31 IF 

NUT, 

f21%4] ON IF “s0* APPEARED IN PB. MESSAGE. 
FOR Rye» COMMON IS THE ADORESS OF A TWO WORD ARRAY, THE FIRST WORD 
CONTAINS THE INFORMATION. DESCRIBED ABOVE AND ‘THE SECOND CONTAINS THE 
FILE JD FOR DISK (WHICH IS I 


HEADERE #2) 


F Bi (oe 
SEARCHVALs» CURROWs FIRSTFIOs SEGNR3 


START Of REL SEGMENT? DISK. 
- 43000700. 


13000110 
13000120 
13000430 
13000140 


000040 


000010 _ 


0000 %0 
0000%0 
000030 


13000;60 7 


13000490 
13000200 
13000210 


430004707 
13000160 


0000t0 
00000 


13000215 | 


13000220 


13000230. 


13000240 


13000250 


13005000 


WORDS 


12887000 T 0146633 
B8A7500 01683 
12688000 1 
eee ' 
HOO £ O17 414 
12889500 T 
12890000 T 
A9O500 
12891000 T 
128691400 Tt 
49 Oo 
12891600 T 
12891610 T 
B9iAZO 
“1p89%630 Tt 
Peereo00 -F 
12893000 T 
12893500 Tf 
B94000 018520 
12894500 T 0486t0 
12695000 7. 0789%2 
B9 C0 04901 
1289600C T 019033 
12897500 T 049083 
12698500 7 019382 
128699000 T QO193!%e 
12900000 T 049984 
900500 T 0208! 
12901000 7 O2iite 
12901500 T  0215%0 
902000 021570 
12902500 T 021780 
S1ZE® 0220 
13000000 000070 


Sore ' 


Data Documents/inc. 


REAL X=SEARCHVAL» NUMSCURRKOWs RECOUNTSSEGNR3 13006000 T 000080 
AN SIGNEDONs FOR ABORTE OC 
BOOLEAN NOCONTSFIRSTFID: e ag 13008000 7 d000%0 
$ SET OMIT. get cels PACKETS ee | 13009000" T° OoGgFo 
Res ; : Hak TRS ‘Ms PY acoP -OO002 0 
$ POP OMIT OMIT Tso ia0aD T 000080 
$ SET OMIT = NOT RVE 13015000 T eeaoee 


THE LOCAL VAGTABLES. WRE: SED ° AS ne “e es ; 49047440 7 Ta0008o 
ARRAYS joe ey Be : om ‘ “penne - 213017220 5 000080 
NR fee ARRAY DE RLP oR OR THE CURRENT RECORD. . S oogoto..: 
FPR FPB ARRAY « INPUT IS THE FIRST FILES OUTPUT THE 2Npe doi? 146 T 000040 
LOGINFO te IN WHICH ote 08 ENTRY ee THE pansy TEN 13017150 T Q000%O 
WORD ARG ARD N N : $ 0 
oo WRINTER: ‘BACKSUP ENTRY AND. THE: Mast, 10> THE FUE ENTHIES. 
HEADER = DISK FILE HEADERs 


LOGIGAL UNIT NUMBER FOR INPUT, ; 13017200 T o000to 
LOGICAL UNIT NUMBER FOR OUTPUT, 13017210 tT 000080 

NUMBER OF COPYTES OF THIS FILE TO B 
S NOT SPECIFIED» IT EQUALS 0, ..~ ee 7 oOooot>o 
MF ID — MULTECFILE ID OF INPUT FILE. 43047240 T OO00tO 
1p “FILE Ip OF INPUT 017250 Q000!O 
10D, T TEMPURARY STORAGE, 13017260 T 0000%0 
a ADDRESS OF 90 WORD BUFFER FOR INPUT, Aa04t 270 T 000030 
BOO ANS } oFekeron Ze 
SEGNEDON ON IF LOGGING IS INITIALIZeDs THIS SHOULD BE OFF ONLY , 13017290" T 000080 
B FoR FILES HHECH od NOT START. AT JHE BEGINING» E.G, 13017300 5 ee ~QC0010. 
_ a WHEN A STARTI SPECIFIED ON pISK TY 00006. 
FORMT OG ON JF FORM 1S oopbel 18 OR PNCHLOCK IS SETe 13017320 T 00000 
ABORTED z1» DISK ABORTED BY H/L, CHECK IN GET TO FINO OUT WHERE, 13017330 T 0000380 
=2» TERMINATION OVE TO CL OF INPUT TAPE WHILE SCHEUULEDs 13017335 T 000070 
Ee TAPE ABORTED BY H/o FOUND. ‘bY RECOUNT MISMATCHe 19017340 T OO0DID. 


. ai peering 

THE. FOLLOWING APPLY ONLY ‘ta DISK. FILESS ae j 7360. _ 00008 
. HIRD PARAMETER FOR DIRECTORYSEARCH, I? IS 3 OR 5 DURING 13017370 T o000t0 
% PRINTINGs DEPENDING ON WHETHER IT IS THE FIRST COPY OR 13017380 T Oo0C0t0 


ashe AND 13 OR i DURING FILE TERMINATIONS 13017390 7 090010 
oe ae % FIRSTFID FILE. Tp OF FIRST. REEL? ‘USED FOR MULTIPLE cUP IES oF 13017410 tT oocate 
J | % _ _MULTESREEL FILES) , 13017420 T 900010 , ey 
A i a 

a 13017440 rt 000080 

& TRE EDELONINS APPLY ONLY TO TAPESS 130137450 T 000030 __|*4 
J aed z x "TEMPORARY STORAGE, 13017460 T OO00TO © vee 

% NUM NUMBER OF CURRENT FILE ON TAPED useo FOR COPIES, — -.  13QL7A7O- 7. OOCOTO 

bd RECOUNT NUMBER OF RECORDS PRINTED IN THIS FILE. THIS IS CHECKED 19047480 7. COODTO. 

% AGAINST THE CeFIELD OF THE I10 DESCRIPTORS IN THE FILE TO 13017490 7, 0000:0 

% SPOT ABORTS, 13017500 T 0000t0 

x NOCONT TRUE IF CONTINUATION FROM FILE TO FILE 1S NOT ALLOWED 017510 y 0000380 

Se’ | a. : CUE ase Org ges EES re Py 13017320 7 O0COtO 
ee THE FOLLOWING APPLY. ONLY TO PACKETS! ‘aot 43017530 7. O00010. 

a PCOPY. NUMBER OF COPIES FROM PB. MESSAGE» WHICH MAY APPLY TO. THE sss 430175407. O000I0 

% ENTIRE PACKET, "COPY" IS SET ONLY FROM LABEL EQUATION, 13017550 T 000010 

% PFIRSTFIO FILE 1D OF FIRST FILE IN THE PACKET» USED FOR COPIES ae 13017560 tT 000010 

% THE PACKE STFID APPLIES TQ DIVIOUA 

z THE PF RCO PECIFIED VIA LABEL 

x PACKET IF_ONE: OF. 43017600. 3 10010: 

% THE FILES SPECIFIES MULTIPLE COPIES, IT IS USED TO 13017610 T 0000!0 


Data Documents/inc. 


si 5 a * a 3 a E G A Ayn > 5 TS ». ~. 3 


% RESTORE THE VALUE OF 3 TG SEARCHVAL WHEN THE FILE Is 13017620 T O000!0 ® 
OM Q | a 017 490-2 Onn to 
% | Sige — - 13017640 7 000080 | 
% THE FOLLOWING APPLIES ONLY TOURUER 13017680 T go00t0  ® 
x A “RAMINAL UN AND BUFFER NUMBER OF. THE R RMINA -ROCTABO. + O00010 “13 
% 13017670 T dov0s0 : 
LABEL  TRYNEXTs TAPEROR» TAPERD»s TAPECHKs ABORT» NOGET» GOTTEN, 130 18000 T 000080 5|@ 
____-S_LAR RESTART» MAINLOOPs Q ES NO 3 ae 0.00 NN0020 6 
“CEFIENE . OSED. a “CTERMIX CCF ISPIMIN)#, : 13020000 ry OQ000I0 = | ? 
eS QTED = (PRICP1MIX» 025) 40285 13021000 T Oodoto |@ 
MOrEIN OOKFORTA 2 PRN 5 OL#s o22000.: DOOOED — 9 
NOMOREREELS = PRNPBTSPECASE1(1)#» 13023000 T Oa0dta 10 
QTSPEC = P(PRNPBTSPECASEL(2)*DEL)# _ 13024000 tT 000010 |@ 
INITIALIZE. = AURSVAREGESEVEaOa? 13025000 12 
38 AT AWE FILE « P TSPEC rae deg r 0 gi 
~ 13026000 1 12 
ABORTMSG ow Pea Peery ys 30208000 T0000! 5 
PARERR = PRNPBTSPECASE2(2)8} 13029000 Tf 000080 16 
13030000 T 0000%0 |@ 
Sees tase sane Ree vnds seks twee edna Ses eines wares ste iae days tet ta ese s See eus 13031900 T 0000380 ne 
| 13032000 T O000t0 "9 
BOOLEAN SUBROUTINE GETR te 13033000 T o000%0 od @ 
IN _ VO34000 | O001TO a 
IF INRECEI7J6 [20%1) THEN GO TO NOGET 13035000 T 000180 2a 
IF CINRECtaCNOT 17) LINX INREC)eLCF) GE@ BelCF) THEN 13036000 7 000233 oy @ 
F_UNIT#18 THEN GO TO TAPECHK ELSE 7 13037000 T 000610 2 
ELSE. % Ese NEXT BLOCK 13038000 T 000731 baa 
TF UNIT#18 THEN ae 13039000 tT 000783 bd 
BEGIN epee ena 123040000 000940 2 
IF SEGNR > HEADERL7I%3 THEN GO “TRYNEXTS % END OF FILE 13041000 0009!%2 28 
IF (SEGNR GEQ HEADERL8J*1) THEN 13042000 T O0011%2 od @ 


— “CURROF 
Fr NOMGREREELS. THEN GO TO “NOSE: 


“TRYNEX TS: 


aes SEGNRI AO} : : 33 
END$ 13047000 fF pore 
INREC3*90 INX INRECS 13048000 T 001984 sf @ 
OISKIOCIGDs =B,9OshEAVERCCURR +SEGNR)3 13049000 CATT 36 


13050000. 
13031000, T. 


“SEGNRIFSEGNR433 
SLEEP( CIGD] + IOMASK)3 
IF JO00,.C2831] THEN Bi 
BEGIN PARERR3 RTC 

IF T THEN GO TO NOGETS % DOSED OR QTED 13054000 


002613 
Q02ato 


ENDS . 42 
F ABORTEO. THEN % TEST FOR BAD 10 DESC. z 4 
If. (MCe INX 18], torwad FOV " " SNOT O THEN 13057000 «4@ 


GO ABORT 088000 as 
END ELSE 13059000 T 0034%4 46 
BEGIN » TAPE 43060000 T 003494 8 
TAPERDR? Kt=Q3 13061000 003640 ‘ 
TAPERD! IF. CTOOHsWAITIOC BF 20000402UNIT)), (4322) THEN 13062000 T, 003643 i 
ae oMEGTN PARERR}. 13063000 7 0039%0 | @ 
UF TU THEN GO TO NOGETS % DSED OR aTec 130649000 T O040%) ae 
END} 13065000 7 004131 ‘ 
i: 10D. C4281) OR X THEN 13066000 T 004481 1@ 
067900 7 0Qu2' | 5 
iB : 55) 
ls @ 
GO NOGETI ee Lina! O464). ee 
13071000 7 O04ate 
@ ® 


Data Documents/inc. 


A , ° y ry a ey : a . mS. 5 


owonnrx @ TO &® WH = 


IF Sar see oe NOT 03)490 THEN 
I x 3 6 , 


BEGIN 
: aNNEC: Lor lip INK 19 
{x ‘ 


END ELSE GO TO NOGET 


ELSE 
BEGIN 
INREC##90 INX.INRECS 
TAPECHKS IF) CRECOUNTERRECOUNT INX £2) 4 INRECEA72 eCCF) THEN 
BEGIN . | 
ABORT? ABORTMSG3 
NOGET? P(Q)3 
0) ( QTTENS 
END? oa 
ENDS 
_END3 2 san 
P(1)3 
GOTTEN! GET%=P; 


ENDS 


% 
% START IS USED FOR A NEW FILE COR NEW PACKET)» RESTART Is USER FoR 
% A COPY COR A NEW FILE WITHIN A PACKET 


START? 
COMMON=0 3 0 TO IN ATES 
IF INITIALIZE THEN | 
BEGIN. . | 
RESTARTS GE HEN 
BEGIN 
- TF INRECO 73201311350 THEN a 
IF _UNIT#418 THEN RECOUAT?® 7), 
END ELSE eyo? 25 * "BAG FIRST BLOCKs USUALLY EQT, 
BEGIN. POLE OR 
Bey 


ENDS 
MAINLCOP: 


OPJOB=P4M[X THEN STOPM(O)3 
IF (T#sPRTLPIMIX,@25])40 OR DSED THEN 
BEGIN. 


BEGIN 
GTSPEC3 
0 MA N OP; 


END} 
ABORTMSGs 
GO. TO QuIT3 


% DSED OR GTED 


END3 
IF GET THEN ® VALID REC, WRITE IT & CONTINUE 
EGIN 
$ SET OMIT 2 NOT RYE. 
PCWATTLOCINRECEI7 I&(InRECIECTCIEBLZL 142161» 0¥V 94 DEL) 
GO TO MAINLOOPs 


13093000 


13130000 
13131000 
13132000 


: aes . FoF GET FAILS, ELSE 0, 
IF STARTANEN TLE THEN Go Ta START ELSE a0 TO RESTART3 


ily 
13074000 


eee eh 


13077000 
13078000 
079900 


13080000 ° 


13081000 


$35 O40 


13083000 
13084900 


139086000 


- 13087006 

VEBEBOUD 
13089000 
13090000 


09100 


13092000 


L3egeolo T 


992020 
13092030 


09400 


“13095000 


13096000 


42097000 


13105000 
13106000 


13108000 
13109000 


13111000 
13112000 
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er IF INCWel3291) THEN? 14031000 1 
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14242000 7. 
14243000 
14244000 
14245900 T 028 
14246000 7 02861: 
‘baeaTaOOsy 26614 
98000 7. 02683: 
14249000 + 028983 
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5 SoS ss > 
5 & a So & 6 KS 3 “i 


[F MCMOM), are at 
F MCMOM 
BEGIN If sites AND NOT PRTROG).C2%19% 
AND Moe MCHOM)« ae THENS 
CN kd 
PCWALTIECHacuee7 OGG), DEL)I% 
PCWATT{IO(@4000000340000005»0eLOC)»pEL) 3% 
F MEMCMQM=2) INX 4],C42t6)8) THEN: 
BEGIN LOCePRTROE13).02821013% 
FILECLOSECwOMge@120181 33915343 
3 13% 


0.5.6 1.0 


CLOSE? 


G0 TO OPENS% 


END#% 
ENS a 
BEGIN 1F s1zes2. oR ‘sizes? OR SIZEs8 TweNe 
eee BEGIN IF NOT PR 


*CMEMOM=p) INX 4), [42t6]ei33 
GU TO CLOSEs% 


~ COMPLEXSLEEPCCCMEMOMJ InX. 0) NEQ 3))3 
ACCIDENTAL ENTRY AT 5 
O..10. OL00P 
END$ 


SAVEBIT « MUTHER 
Ment ton MO 


14193100 


=S TAESHC Ce LUCea. SeS1ZEs1s TeOs WeCMOTHERS(CFIJa2))3 
BEGIN Sy ¢ LUC SsSyeSypseOsOoLOC TeDyeD +73 0SeCHRIY 
OleLs S]T*_Oc Wi OSeWDS3 
ST els TCOSe+32 WOSs Geese WOS)3 DSeS WOS#% 
ENDS tis SR AGES | 


om 
COMMENT READ ARRAY FROM DISK AND RETURN OISK SPACE3% 

$ SET ONT = gS AE OEM EE 
a DPrsel re 


Ceereg se 


% ee, 
ENDS. 
depth ulate (27111416000038 
ENDSx i a 
END}% 
—— AN os 
BLN es BEGINS 
OMMERT.° DATA [IP TOR ose ESE, Se ee amiees, 
DLOOP: 
IF. CMOTHER@MEMORY LE MOM © 06046815] ))elLasf) THEN GO WRAP3% 
(MOTHER INX Q) © 6 oN % 1/0 ERROR FROM OLAY 
BEGIN foe rh Mie ee 
TERNINATECP UNIX & “otctey ys 
yt i) 
END3s 
TF CMOUTHER INx 0) = 5 THEN & INTERLOCK FROM OLAY 
BEGIN 


14279000 
44279200 


14279400 
14279450 
9500 


14279550 | 


) 9400. 


14279650 
14280000 
142g) 


14282099 


14283000 


44284000 
14285000 
14286000 


14287000. 
14288000. 
14289000 


14290000 
14291000 


14291099 
4292 : 


14279250 


ee SS ee Gee eee 


14250000 T 029181 
N00 029 
14252000 7 029433 
1425900009 029631 
54000 1 O299%> - 
14255000 tT 030033 
14256000 T 0303%2 
57000 1 030580 
14298000 T 030843 
14259000 T 031083. 
A462 60000. - P5280 
14261000 T 031580 
142629000 T 031730 
63000 T  O317'0 
$4264000 7 034710. 
14265000 T O31750- 
1a266000 7. Gan: 
14267000 T 903220 
14268000 T 032780 
69000 ‘ 3 
14270000 T O327%2 
14271900 7 0O327%2 
: yoo 02330 
14273000 r 033033 
14274000 T 033023 
eee 14275000 7 033023 
14276000 T 033083 
14277000 T 033033 
f BOOD 3 
14278100 O334%1 


0336%4 
033683 


Q347%2 


034981 


035541 
03553 

0356!2 
0360%2 


O362t2 
036432 | 
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ACCIDENTAL ENTRY AT PIMIX 


b 
& F 
Wa 
D5 
Or 
ba]. 
"4s 
@ iia 
0 
« 
®@ i 
@ 38 
9 


BEGIN 
NG? FORGETSPA LOC+2)3 
COMPLEXGLEER( CTERMIM eC CF 280 AMEX) 05 


14292130 T 
o { } 


14292150 7 


037133 
0372: 
0373t2 


enDT 
$ SET OMIT = NET eoTMst Tes) 
MOM eMOMEMOTHER CIF IS 


eC2tl): oe sAveatTs3. 
MENORY(LOC+1) ¢ MOM “3% 
$ SET OMJT = NOTCSTATISTICS) 
WRAP 34 


MEMORY(C] ¢ IF Del8#10) = 0 THEN P< MCMOM 202CDCsD»XCH 


oe ELSE “WEMORYEMOMTS 
| ENDS eee 
$ SET OMIT = SAT CNEN OGG THEO 
END MAKEPRESENT 338 


REAL ADORSGNTIs4% 


PROCEQURE ZIPPER( A» Br C);VALUE As Be Cz REAL ArBeCh FORWARD} 


PROCEDURE CONS) % 


a N A 
REAL ROWS402% 
ERTOGs+29% 
ee, te 
T s+45% 
INTEGER J®I5% 
ARRAY VECTOR= vot els BEZEL AUS 
“INTEGER Qess. ; ae 
“ARRAY FILES LOCK+7EW}F% 
ARRAY TSKAS4+139(*)3 | 
INTEGER LINK; LABEL RETURNEMS 


INTEGER MOTHER®+85 NEXTMOM=499 MOMMIX=4409 CATCHE4+413 x 


REAL ENDAIT=MOMM] Xe A=MOMMIX*KSNEXTMOMS 

REAL CHAIN@*1 20ABSEVTSCRAINE 

REAL MSCW * 943 
REAL JARO & CHAING13 

$ SET OMIT 2 NOTCWURKSET) 

SUBRCUTINE DELINKITS 

BEGIN TtsMC1] INX OF 


IF NOT MCTI.£494) THEN SREROLERTT] Pat ZUGCR000SPECOT)} 


MCT], C4tqiesgs - 
IF MEL]¢f2t2) THENSIN, CONTROL 
BEGIN M(TI.(CF]#=M[I]e(FF Is 


IF (MELT INX 0) NE@ O THEN MEMCTI INX 0),C2t,I3>4 


ELSE METII=A8S(MLTJ)S£UNLOCK IT 
END ELSEX IN WAIT QUEUE 
BEGIN TteM£T) INK O ? 
WHILE MOTOS CF 
TS=METJel FFI; 
MCTI,CFFI¢@MCI),CFFIS 


PCCADDRS#=GETSPACE (196% 12°0))+1° 515? COMS? RCW? OP RDS? OPKCH? GFX? 


a T 


14292170 T 
14292199 T 


$aog7tooo ©. 
14297099 7 
14298000 T. 


14299000 


“1aso@o0d F 
14301000 7 


301-100 
14301199 T 
14302000 T 


14342000 T 
14342100 T 
ae + ‘ 


14343000 T 


000 
14345000 y 
14346000 tT 


“14348000 T 
14349000 T 


14350100 7 
14351000 t 
0 
14351100 T 
14351200 T 
14351205 T 
14351210 T 
14351220 7 
14351230 
14351240 T 
14351300 7 
14351310 T 


14351350 T 
teesieae T 


4 1 


pee oT 


14351410 tT 
14351420 T 
14351430 


000080 


037933 


037933 


038583 


038513 


Q392%2. 


039282 


“s 0439 


0000t0. 


000080 


AD DR 


0000%0 


-0000!9 


000010 


0000!0 


0000%0 
000030 
0000%0 
Q000t0 


000080 


GO00t0 
0000!0 


000430 


14351320 7° G003%0 
14351330 7 


(000784 


001030 
O011%2 
0015%3 
0020! 


odeete 


12930 
00327} 
0035%0 
0038%3 


004313 


START OF REL SEGMENTS DISK ADDRESS = 00343 


r) @ 
ry | STF)R 14353002 T O04Bt2 e 
_PCP8& HS CH, CTF) 902020909090) 154000 004910 
“PCQs Os Ae, Oe Op eRe ee 14355000 T 0051440 ’ 
e PLOs0)3— ah ea 14355010 7 005242 - @ 
OMIT: = NOT WORK: Af er : 444 yy -OO8 980 3 
UL EFICEBLOCK<PRTCPINIXEa) INX O72], i986) ¢ 03% 14356000 T 0053!0 4 
® MCADDRSJ+C*PCOUP) 2 80L98926]3 14357000 T 0098!0 |@ 
ORewARROW EP 1M TX NX QO *P p RO0( 98936 cige oe, See a5a8o000 00603 6 
Ope VECTOREO}<O - THENA Oe 14358;00 7 006534 ? 
6 . BEGIN CATCHEPRT CPIMIX, @261) | 14358150 T 006614 |@ 
ERTOG: «.. F£740) GR CPRIEP: %2@25140)5% #398200 7 0068 9 
END; 14358300 T Sorat: 
2) IF VECTORE2]«CO!1) THEN &% IPC” 14358310 T OO74!2 |\@ 
BEGIN IF VE cae Q THEN % OS=ED T 358315 7 OQ72! 12 
ee E CSePpR’ MI TND: PBITSO0 DO *% SEARCH AIT FOR 14358320 T 007410— ai, 
@ . MAKEPRESEN AETNOXI ENX 025% TASK ARRAYS 14358325 T OQO77t2 @ 
ENDAIT « SCO]; PECTERL T 008333 ‘9 
r FOR Kel STEP 4 UNTIL eNoad) po 14358340 7 008433 \@ 
B N SKA © MEMORY LE UM 13 14358345 34 008620 Ne 
IF NTL, €192783 THEN IF. o % DEPENDENT TASK 14358355 7 008910 " 
e CONTR ETS ATS JDL OR. tNT2a2 AND TSKAL41¢PLMIX)) THEN poet: T 009083 1 @ 
ee iF Rr Nn9at ral 
i BEGIN IF NI 231 THEN 14358370 T 009u8D 1@ 
@ : BEGIN TERMIX « @47773 14358373 T 009583 2 
¥ SH DIDOLER(O Q KALE _& €S 358975 T 009720. aa 
P ENDS 14358377 T 009832 2 
@: IF TSKac3ie2 THEN, % RUNNING 14258380 T 0098%2 1 @ 
g ‘ a ; s 4k: AHOO 2 
20 f TERMINATECTSK ALG] @86(CTFI)3 HALT * DS 14358383 T 040083 a 
:@} NOPROCESSTOG * NUPROCESSTOG@13 14358384 010213 1@ 
ee | = ce COMPLEXSLEEPUTSRATEI€0 ANO TERMIX=@1777); 14358366 T O10ato ' 
OF. 142921450 ACCIDENTAL ENTRY AT @1777°0 | : | @ 
Ba) TERMIX © PANIX3 435838 014120 
e ENDS 14358389 T 0411183 
@| ENDS 14358390 T 0111383 2@ 
ExDS IF VECTOR( 23.0521) THEN SOFTI © SOFTI@13 14358391 1 Oll4to 36 
IF CTSKAGPRTCPIMIXsTSX]),PeRIT THEN 14358392 T i 
e* BEGIN TSKAC3] © “41% IF TSKACO]51 THEN TSKALT)] © 13 14358393 + 10 
FCL2STSKALSI2 NEQ O THEN BEGIN: LESCPRTLPIMIX#1)) INX 03 : 14358394 T 
DELINKIT#WHILEC1#=sMC1}.t68!10)) NEQ O DO 14358395 + O127!2 ‘0 
r BEGIN I8=(PRTCPIM[X»TIJINX OFDELINKIT ENU ENDS 14358397 T 013210 «|@ 
IF CT+TSKAL8 CCK) 20 THEN % SOFTWARE InTERRUPTS DECLARED 14358398 T 0135%2 42 
BEGIN NOT TSKACO1,Lahi) THEN 14358400 fT O437t2 4 
& SLEEPCCTSKALS}1¢@200000000000000 93 : 14358450 T O439%4 a4®@ 
TSKALBI (atid ¢ 93 . _ 44358460 T as 
DU DETACH SOFTWARE INTERRUPTS 14358550 T ‘6 
) BEGIN IF CABSEVT¢PRICPLMIXsIJelFFJ)40 THEN 14358580 T 7) @ 
BEGIN WHILE NOT MCABSEVT),(5%1] DO 14358582 T 48 
“TABSEVT © MCABSEVT],CFFI3 14358384 + 4s 
@: ar NCABSEVT]20. THEN: 14358586 T «1 @ 
‘s EPC EMCABSEVT J]68®2000000000000000); 14358588 T . 51 
52 MCABSEVT] «© PC(LOD»DUPsSSP)5 14358590 T 045733 5 
@} T © CKePRICPAMIXeI I) @(FFIQ3 14358595 T 016080 «|@ 
A_« CPRTCPIMIXs1 1) INX 03 14358597 T 01 5 
= WHILE WETI,CFFIeA DO T + MCTI,CFFI3 $a ssesoe Tt 5 
OH. FF] © Ky CFFQS. 14358600 - : «@ 
bd oe aM VT]. oe Pt Ad A uRaok | iit De SSN: 13 “ oe dS £6 ‘oo ee eukp 
ENDS 14358610 T 017683 
@ @ °® 


Data Documents/inc. 


= <n = ae 
3S Ss Sh S S 8 & oS x 


I © PRTICPIMIXsI)eCCFI3 14358615 T 017633 ®@ 
ENO UNTIL 1=03 BA; rat 
TSKACBI C431] © 130 | 14358625. 


1 

2): 14358630 

3 fe 14 La 0D Pa 
4 14358700 aise 
5 O182%2 
6 O18 

7 

8 

g|. : : Ce) a a RAL # 

Me WHILE PRILP1MIX+16]>0 DO. ASR3&CLEAN aut AIT 14360300 

bi fF VECTOR(C1]>0 THEN % NOT OS#ED 14360310 O194i4 


= 
LS] 


FOR MUMM is ST p : 
BEGIN Gra CPRTUPS } % ALT OR OAT ENTRY 
TF Qebaai2 PRESENTS GRAB ADDRESS FROM LINK 


aH a te 


= 
> 


5]: a at 4 : ; ‘ wh 5 ( & eS, 

6 1F a. 13313357 THEN %  AUXILTARY MeMORY JN THE acl 14360360 T 

i DISKRTINCQSCCF I], Q.(8210))3 14360370 7 O204%0 

a IF VeCTOR[21<0 THEN MOMM X#5443 % COBOL HAS NO UAT 14360380 T 

ae EN 14360390 T O20a%3 
SLEEP (COLAYRASK2»MUMMIX«TWO¢PIMIX)91 14360400 T 


Q21140. 

“OLAYMASK € NOT MOMMIX AND OLAY. 4360500. 0243! 
MOTRER ¢ DALOCEP\MIXsG)eCCFI3 143604600 02150 
NEXTMUM $= "153 S$ #2 DALUCROWLPIMIX]3 14360700 0217%0 
AHILE CNEXTMUM ¢= NEXTMOM+2)<MOTHER DO 1436020 __Q219%9 
FORGETUSERDISK(SCNEXTMOM]2*500)3 _ ge 14360900 022144 
SLEEPCOTOGLEJ+STOREMASK)S > 14361000 7 O22331 

MOTHER © (MOMMIX © (NEXTMOM «3 i 361100 022433 
PRIEPIMIxs4]el10%12}])e[36?O])=PimI Xo 14361200 
WEXTMOM ¢ NEXTMUM AND ©7732 14361306 022883 
NOT CAUXMEM) —— 14361309 023040 
NOTCDESUGGING AND AUXMEM) eee 44361512 T O230t0 
WHILECTem(1I), ter o: vos eee eee —_ sO  "$4362000° 023086. 

~ BEGING ee 14363006 gt 
IF T>0 TREN’ 
IF TeL9SO]=PIMIX THENA 


a4 


022453 


$ SET Um]T = 
$ SET OMIT = 


14364000 
14365¢0c 


Fefsiol=] | 4365400 1 
MCIJe(996) © NEXT MOMS = 14365200 
ELSE FORGETSPACECL | 223% 14365300 


Fda 


Be, at MY. 
ENDIS 14367000 
INTABLEROWCPIMIX] © 033% 143671300 T O244t2 
$ SET UMIT = NOTCBREAKOUT) 367499 
$ SET OMIT *® NOTCBREAKOUT) —— 14367999 
IF NEXTMOM46, THEN BEGINS” 14370010 
LIF MOTHER. THEN’ 4370020 
IF PRTLNEXTMOM, 'SPRECECETT THENS 14370030 7 
NFOCCNEXTMOM@1)XNDX41) ©% 14370035 T 024983 
PRICNEXTMOM#4) © (#PCDUP))&0£18418715I)% 14370040 0252! 
ELSE BEGIN MOTHER « NEXTMOMS® ann S97 0G90 Be Geaalg 
00 UNTIL CMOTHER + CPRTICMOTHERS 4) % 44370060 T- 
NFOULCMOTMER@4)™NOX41]. 6% 4370065 7. : 
C#PCDUP ) )QNEXTMOML 18242161), (2486) e077 5% 14370070 T 025912 
END& . 14370080 T O264to 
PLS 0090 


CTT eeseeets 


PiMIxX) ANOS. 14370100 T 026 
\ X* 1 )eNOK 61) o% 14370110 
wa bow CaP COUR D8 Bt wet tee ae ee 9 ba 35 ££ ‘L 
ELSE BEGIN’ 14370120 T 027183 
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8 y a 0 a * * a a a 5 Th cy yy . 3 


DO BEGIN MOTHER © MOMMYX3 ear Ot 3 T 027382 
MOMMIX ¢ PRILMOMMT Xs 4 24t6)sa O27 48 
END UNTIL MOMMIXSPIMIX3S Lear orse T O276%4 
ait lanacban cain a oneal | 14370555. 7 certs? 
C#P (DUP) JENEXTROME2AtORI OTIS faa70 16s T 0280%2 
END ENDs& 14370470 T 028330 
NFOCCP AM X"4)XNOX+]) €% a 4 370180 0283! 
“PRICPIMIXs4) * PeORGURA 1 O00 T8018 19 15% 14370190 T 028510 
ENDIR 14370200 T O28ato 
eo SE ET. OM Ts : NOTE AUXMEM) e ee 4370299 O96810. 
IF VECTUR(2),(8:10)4 o THENE . 14371000 T 0288t0 
$ SET OMIT = STATISTICS 14371999 T 028982 
oi ORGe bora e DURE CIO EARCHCABS(VECTORCOJ)sIF VECTORE 1<o 14372000 + 928932 
CO BS are TEN ADISR tee NEED Up er ener ORE 1790 19599 : 14373000 T 029413 
ee Pop ont ae me 16373001 t O29510— 
) OMIT = NOTE (STAT STL (gy he i | r3099 T 029510 
IF VECTORE2).C8: 10] = 1 THEN % COWRTLER Un COMPILE AND GO 14374000 T 0295%0 
BEGINS 14375000 T 0296382 
I RTOG=O THENS a 6000 029 
‘BEGINE  — : 14377000 T O297%3 
CONPLEXSLEEPC (SCHEDULE ID3#NOT 0) AND 14378000 T O298t4 
}4 R100 02982 
14358386 ACCIDENTAL ENTRY AT 1 
LOCKTOGCSHEETMASK )3 14379000 fT 0305:0 
Se CME GETSPace(¢ 34 240)42)) 4.308% 38340); 14380000 T 0308%> 
door ale INX O81)2302 14384000 y 031130 
VECTOR( 2). ¢F F135 14382000 T 034433 
S] oP CT le 1OMASK 14383000 0316! 
STREAM(AeOtBeP(, SCHEDULEIDS))3— 14383,00 T 031783 
BEGIN SleB; 14383200 T 031980 
a7 CSKIP SBs SKIP DBs TALLY*TALLY4]3 4383300 T 03493 
If SB THEN BEGIW END. é ee 14383400 7° 032044 
See STS URIBE EEG ag hey cle clotted gap ELSE: JUMP QUT)3 © --$43g3450 7 032093 
“DSeSETS AeTALLY3 14383500 7 032133 
EXD STREAM; 14383600 7, 032234 
T © Ps Se3] ¢ O9Tc8238240)3 14363700 1 O322%92 
S25) ¢ CATCHS 14383740 7 0325%4 
Yer) cut RI)C "44383750 T- 0326%o 
y 033040 


14383800 


: 03323 
SEEEPULTIA 1HNASKO: 14384000 T 0333%3 
1 ¢ IF S$€18) > MIXMAX THEN MIXMAX 14385000 T 0335%1 
ELSE-S(1813 14386000 T 033730 
IF SHEETCIJe€CF1] £ O° THEN 14387900 T 0338322 
ane RESIN DISKIUCT#=¢S INK 07492309 14388000 T 0346!t0 
geese aes F)) ee 89900 034310 
“SLEEPC(LT)» [GMASK)3~ 14390C0C T O0344!2 
S$£29] « VECTOREC2}),CFFI]3 14391000 T 034630 
DISKIUCTs4(S_ INX 0"1)%30» 92000 0348: 
. SHEETCIIJ,CEF IDS 14392500 T O0380%2 
See SLEEPCUT I» IOMASK)3 14393000. 7 
END ELSE SHEETCID + VeEcTORC 2), CrFI3 14394000 T 
SHEETCID,CFFJ © VECTORC2).¢FFI3 14395000 fT 
UNLOCKTOGCSHEETMASK )3 143960900 T 
ENDS 
2 ERSE:. BEGINS i oy 


CRETURNEME) 
Sethe GETSPACEC AL» 200 +2 17€30281381 1077 


9439860 
DISKIOCTs*(S INX O=1)s30sVECTOR(2).0FFI)S 14398700 
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ome ~ Oo TF FF wry — 


= 
> “ 


3 > ~ x. 
BO hw = ao © Oo vw Oo 


ESE Se RE SR ESRB SERSE RS 


$ SET omrT = 
Soe OMIT. s 


$ SET OMIT = 


$ POP OMyT 


END3 


VECTORI9OIJI3VE 
FOR Jet STEP ike UNTIL VECTORES she 


IF VECTOR(9¢41) # 0. THENS 
FORGETUSERD TO 


oe END | 
“END ELS 
IF UEEtOscea, Cerio] 


SKCVE 


SLEEPCLET 1» LOMASK)3 


BEGIN’ 


TORE) 


13 


LINK * SCi3)s 
WHILE LINK#O pd 
BEGIN LUCE 


oe FORGE TseACECS DT 


SLEEPCCTI 
FORGETESP 


I 
I 


ot a 


O THEN’ 


OMASK)3 
SKCLINK)S LINK ¢ SC29)5 


4 ned vd TC 7 
IF VECTORE 2). C734] THEN vECTORT a}, a CIFCRPFIELLL TASK LOG 


IF _VECTORC2).(8:101=4% 
THEN GOTO RETURNEM) 


END ELSE 


If VECTORLOI<0 THEN: 
If ERTOG #0 THENS 


VECTOR(2],£8210) ©¢ 33% 


I # PIMIX3% 


COWEN SUBTRACT CURE REQUIREMENTS FROM CORE WORDS 


E,Ci6ty52«CORE, HAG e US * NFO CCP inT x" BNOXE ES eCtatisy 


NOTCDATA 


ENDS 


HOTEADAMeNs 


OM. 


IF CHAIN aye. 0 THEN 
BEGIN SPAEMEGE TSPACE(A/0n0)02 12651 612913037 


 LIPPERCS(1)0S0) 
FORGETSPACECS) 


IF CHAIN #0 THEN FORSETESPOTSKGABSCERAINDDT- 


IF VECTOR(C2),0321] THEN 


BEGIN 
eee ee ee ee 


MCNTI©2). C996) 8 07 


MONTL 


CVECTOREL 


M(NT1 43) ¢= VECTOR COTS 
MENT144)%= VECTORIL]3 
LINKUP CLM NTI) 


PACKETS 


SIGNOFF CVECTOR*FILEBLOCKs0)3 
YR: EQQMESS: AND NETL SARS « tesi9) THEN 


pes. 


3 


“AM CB + fF 


die QO &@ PIMIXC208439513 
MCONTI¢i]3%= veEcTOR(5].C1823)3 
MUNTL+2)t® XCLOCK @ VECTOR(2I(1%1817) & 
1<0)(1884236 


TORE 


(24 £1-<..0 THE N 
verteR tar [81 40]¥ a [rOedeC(NTLe(XCLOCK DIV 3600) 
> MOD 60 + (NTL DIV 60)x100)» VisyECTOR 


OS « LIT " "$ DI © Dl#73% 


14398 00 


14399400 
14399200 


14399400 
14399500 


14899700" 
14400000 


4401000 


14402000 


14403000 
03900 


44804000 © 


144059000 


4606000 


14406400 
14407900 
14407300 
14407200 
14408000 


h409000 


14440900 
14411000 
14411400 
14411200 


14411309 


14411620 
14411649 


4 é 
14441740 
bee tsgbe 


Veatte20” 
44441830 


1aattes0 7 
14811700. 
G 


OHS) 


03e5ty 


04044 
040530 


Oat | 
O15 13 
C419 t: 


“042310 


037280 @ 
: 


O375¢4 


0380t2 
038240 


038433 


o3e5ty : 
Q387%4 
Q3a71 


03982 
040283 
04022 


O406to 
O407%4 
0410%4 
041130 


042510 
0 43-0 
042680 


14411850 
14411860 
a7 


14411900 
14411910 
14411999 

4412900 


14413900. 
14413001. 


4OO0 
14445900 
aera ode 


Taadssoo™ 
16416000 


AO oO 


1gatrood 


14411980. 
14411890 


— at 


i ie eed bce ee 


045783 
046080 


046430. 


@ @ 
@ OS ¢ LIT "/"$ DI © DI475% 14418000 7 0464%3 | 
| POP O 10 TO 
$ SET ety . feats anne : 14418099 7 QO465te ‘ 
e -  DSeLITens STeLOc 1 DSe2DECs ; 14419900 T 46519 . |@ 
[O13 OleOl 72s DSeFILLS Dle! ioe oe 419500 73 Q466Te> 3 
CI + Cl+Bs% 14420000 T O467%2 4 
=) GO TO E3% 14421000 T 046880 |@ 
GO 10 OKs% pie De elas cet oe. Bae 422000 0468 
OS*7 LIT.” pS*ED "3 14423000 T O468ta , 
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§034000 
15035000 
15036000 
5 0 N00 
15038000 
15939000 


15041000 


PAGHhOO 


START OF REL, SEGMENTS DISK 
15061000 


150639000 


BEGINA 
0 


REAL cts 


ARK A’ 


REAL T> rOuoas . 
LABEL LO oL1 ol] Lash 4 ol 5 oS oh? pL Bol Fob 10 obi d oLisoL trol 4 o 155% 


pos 7sh 


SWITCH TYPE © LOstislLeeL asl 4 sh Sel 6 


eblsLBri Poh 10,b11,% 
ot eberk Lbs hiGel Svbreel aT Ts 

DEFINE INOUT#FIBC13) C2721 #e DTRECFFIBC13)  C25%1)4%s% 

SORTPILESFIBC gl C78 lJ e»LABELSOMITTEDZFIBl al, 

cOB68 « C(CFIB © wCFLOC))ef8810] = 223 

GO TO TYPE(CODEIs% 


DO UNTIL FALSEIS 


NOUT#CUDEZ33 OR 

YF NOT COB68 THEN. 

IF: FIBLS1 eC 8688 3 THEN BEGIN®. 
CisjellLatiS JeFTSliaje(3315. 


IF CODE=3 THEN 
FIBCLS)eC3tIS OF IBCLB8 I eC33SA5S IHF IBC18).0391595 ENDIS 
NTLSeFLOC INX 33 
PCOsSTFs PRT T 


+ CODE225% 


15064900 


H450N00: 


15066000 
es 


13069900 


15070000 


“48071000. 


15072900 
15073000 


BO7 7000 
415078000 
15079000 


15074900 
1§075000 
15076000 


SIZES 0195 
000.0 0 
T 000040 


ADORESS « 


oooote 
000080 
0001%3 


DOB ET 


000683 
000784 
$9 


001233 
00 


T OO1a8Y 
T OOS si 
O014% 

yr 001633 

T 0017%0 

2180 

tT 002240 

S71ZE* 0023 

O000%0 


ADDRESS = 
T 000080 


000030 


ofokeFon ae 
0000%0 
0000!0 
000030 
000010 
Q000%0 
000080 
0000%0 
Q0000!0 
0003%1 


ae a | 


4 te me ae ss 4 et 


15080900. 


‘{50a1000 
epee ae 


15083000 


“T5089000 1 


oo00tO 


Coraty 


WORDS 


00377 


T 

T 

tT Oo0at3 
T 000610 - 
r 
: 


00110 | 


WORDS 


60378 


ei 
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a 5 2 . ry Fj n yo 8 5 . 53 


B SN = 6 


BOOLEAN PROCEOURE PRTGAMES(BUFF #MIx)3 


OO UNTIL FALSES% 


$ OtL7tLOsLgskL yore Gas ae RS 


(00 UNTIL FALSEs% 


Op + “(GODESs 


(ir CODES1 THEN FC USER 
CIF CODE#2 THEN 10 ELSES 
CIF CODR=4 THEN @22 ELSE 


CIF CODES64 THEN @52 ELSE 079293 | 


IF CEA IB CHT Cesa)ys2- feria TH AND ue THEN: ‘CODESOsS 


8 AND CODES#O.- THEN Unk @ 4: 


FILECLOSEC( FLOC INX 3 Ye CODE18133915})3% 
IF ata OR Se OR enoeeeee THEN FIBCSI .Ca2tijet 15101000 
rf] y Eee ee F () O00 
18602900 | 
1692)83 TH BE NS ee oe aa : 154103000 — 
LSI¢F: at ae ‘eo BrgSUIF IBC 8l.0p6ry53¢0 ENDS = §10490900 
GO TO INITIJATES% 15405000 
ENO COM13;% 15106900 


BOOLEAN PROCEDYRE CONQUERCCoNeLsSeG)3 


A CoNeLeSaG3 : : 
REAL CeNsbs ARRAY S[*#)3% 
INTEGER Gs 


RA aCC« 
REAL Te LeTs% 
LABEL KIBO 

5 Tp 


IF NXL > 512 THEN GO TO 


BEGIN 
a AP BOT: N THEN 


Ge 


X3% 
Ip (T ¢ GETSF ACE (HAL > 22 4) = ° ee 
G (0, 


# 


UNQUEP NX A 


PCLsRTNDS 


tar 


N-« N13 cot 


PCXIT)&2 
Nuss ee 
T « GETSPACE(L o204)5% 


46233415), 


FOR I *¢ O STEP 1 UNTIL N DOX 


BEGIN SCI) + Bss 
Be LINX 83% 
ENDS 43> 

CONQUERS 13 

ENDs% 


BEGIN REAL . DAT 
$ SET OMIT = NOTCPACKETS) 
LABEL ECHse X333 
SURE AMC EU ED 2S 0UhE SOs petparnd» 


eee 


VALUE BUFF eMIX3 REAL BUFF »MIx3 
START OF REL SEGMENTS DYSK A of 
NESS END OF nine OR "OT" MESSAGES; 15404000 7 


NDE $ 
G HEN. +4 THEN IF SCx" 8" | THEN. Bes 
BEGIN TALLY+TALLY#1; SIeSI¢1 END) 3 


15090000 
5091000 


15092000 


15095000 
15096000 
SKRUNCH 
ZKRUNCH 


15100000 


45 466000 
START OF REL SeqheNTs DISK: 


ABTOO 


15169000 
15169100 


15171000 


15172000 


15173900 
15174000 


noe coe 15175900 7 
BEGIN: GeCONQUERCCANEN DIV 2>LeN INX $9193 15176000 


NelLaeoe = 5177000 


15177800 
15178000 


15180900 T 
15181000 | 


15184000 


15188000 T 


15403000 
15404000 


_ 15093000 


RooREss = 


15383000 


“15186000 
15187000" 
5187500 


s12e= 0031 


15402499 


15408000 


rt 00360 


00368 


003613 


T 

rT 0059%0 

rT 00608) 

7 006983. 
00724 

Tr 007733 

rT Oo78t1 


000010 


000020 
00000 
0000#0 
O000 6 


0000%o 


000010 


“00064 
NOt 
001680 

001642 

0014! 


001643 


TEPER 
0023!0 
002480 
“002512 
0027 +0 
BosoiG 


nests 
~d000t0 

000080 
000110 


003712 


000783. 


0048%2 


00381 


= a00eta ae 
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@ @ 
@ [eTALLYS DleD[+8s Ul+DI@1s ST#S1°]s DS*L CHRI 15409000 tT 000683 ® 
a : 15410000 7 _d0083 
MS... TF S$Cm" " THEN BEGIN STeSI41/ GO mM ENDS © 15411000 7 O009%4 1 
e ae ee ace THEN ‘BEGIN: EtDIeOT@isDSeL ITs JUMP QUT END3 184142000 7 001043 a 1@ 
NS IF SCe" " THEN BEGIN SleSlv1s GON ENDS TALLY«O; 15414000 T 001244 ‘ 
rd] 8CIF SC2"Q" THEN BEGIN TALLY*TALLY+13 SI*SI#1 END 15415900 tT 001382 3|@ 
Lop JUMP OUT)$ JF Sc#™ ™ THEN Sc#"e" THEN GO £3 ee 416000 O0L4t3 6 
ee ITeTALLY# DieDs SleStels OSeI OCT)3. 15417000 7 001710. 7 
@ : ENDS Te _CINDEX AND NOT @1070707)40 THEN GO Ech 15418000 T 001843 /@ 
“ S 9A00. % ria 9 
IF TNX s TNOEX. s{4S1 336 1NDEX (424 394 3]ETNOEK E994 931 I8INDEX C387 294 1 15420000 T ts 
® | | 12820 THEN GO ECH3 15421000 7 | 
(PR ra MIX] 1 x_ND ery PRI Ae ty MO =, LCF) TH N_ GO BCH O00 1 _0¢ i 
IF BUFF - : : 154230900 fT 00 iB 
Oi. ee MDXoNXT+TOPs XCHADEL). THEN PRIEMIXeNX]ODATA ELSE 15424900 1 @ 
: 5s uae ‘ i 7 AOD ge a5 
BEGINS STREAM( J¢JARRUqEMIX] 91 X0 INDEXeROCPRTEMI KDNXI I» 15426000 1 16 
@ De DATA® BUFF ¢C154153°1)5. 15427000 7 @ 
5 & wo os an B8HO0 18 
"Basg CHRs “peel piesa “SyeSypeis% awe 15428,00 yr 004544 bby 
@ Pp DS*7CHR3 DSeLT Meee SteLoc MIX$ DS*2DECc; 15429000 T 004684 ihe 
: Gegao i fi : 
DS+3LITM§Ren; “S1eSt44 5. DS¢4 CHRS OfOLs DIeDI943 15430000 T oouatD i 
@: OSe3 eee ohoue DSeL1TNs"3 oe 15431000 T OUuSO%, 31@ 
' R O00 0 2 
pe 6coses RESETS 3CIF SB THEN “DSe SET ELSE Ose 15433900 7 005230 2s 
@r RESETS SKIP SB)) ELSE 15434000 T 005313, | @ 
3¢8. DE ‘oe ; : : 54 H00 . 005820 : 2 
P DSeLIT"%« oF Diep DI©DI4+132 pSe#7 FILLS 15436000 T O0O55%4 28 
@; ENDS 15437000 T 0056t2 1 @ 
SPOUTER DATA JINX MEBU 5ty5)°2)»UN TINO» 4)3 437400 00568: i 
ENDS ao au | ee : a 15438000 T 005913 Petes a 
@| ECHT PRIGAMES+13 Byte hg | 38439000 7 006084 ph ® 
x ND : LOKOO O0b61!0 . 3 
STZE= 0062 wORDS 
e $s SET OMIT = NOTCDCLOG AND DaTACOM ) 15440999 T 000080 a1 @ 
PROCEDURE WMATMCPC(BUFF)$ VALUE BUFFS REAL BUFFS %FORMATS WM MESSAGE 15500000 0000:0 34 
oS re START OF REL SEGMENTS DISK ,~DDRESS = 00386 a 
& BEGIN REAL Xs - | ot 15501000 7 000080 | 4@ 
0 SKWAIT(# (XeSPACE 90))s30eMGPNAMESEG)3 3501100 r 000080 32 
TREAMCML? =MARKLEVEL »PL? sPATCHLEVEL LL? = 15501500 ft O004%y 40 
e oNiFX+20+2xSYSNOSASEBUFF D3 15501600 T 0005%4 «@ 
, BEGIN DS*LIT™ "3 SI@NS Sl#S1+15 OS¢7 CHRS OSeLIT™/ 15502000 t 000782 42 
SleS]+ys DS? CHRs OS*6 CIT*® MARK FF 15502400 7 4 
@ Si%sLOC ML3 IF SC GEQ " " THENS 1§502200 t 4@ 
QCIF TOGGLE THEN JF scarps THEN SlssSl¢1 ELSE OSt8CHR 15502300 T As 
15502400 T ‘6 
@ SIt=LOc PLi IF SC Gea" ” THEN; 15502500 7 1 @ 
6CIF TOGGLE THEN IF Sc="0" THEN SI#SS14+1 ELSE oSt= CHR . 15502600 T ‘2 
ELSE OStaCHR)s OSt=2cHR3 15502700 + As 
@: SI#sLOc Lks IF SC GEG" " THENS 15502800 7 1@ 
SCIF TOGGLE THEN IF Sca"0” THEN: SlteSle} ELSE 0S!=CHR 15802900 7 51 
6 ELSE DSt=CHR)? 15503000 T 
@: pS * 10 LIT “ INCLUDES "33 15504000 “| @ 
$ SET OMIT = NOTCDATACOH ) 15505000 T 
mere 7 3 TA ; re core “18506099 7. ; 55 
@ rs Pg 15506199 7 0283: 1@ 
et 28s N ee rh ee 2s) 5809000 y O022t3 _ ee 
$ SET OMIT & NOTCOEBUGGING OR KLINK 510999 7 Od2aT3 
@ ®@ 


NOT(OISKLOG) 15511999 t OO22t3  ] 
NOTCOUMP ANOD AQ EB 0.0 ore 


1 NOTCDEBUGGING) | } 7 7 "45545000 fT 002243 

2 NOT CBREAKOUT? es aes ty 7 15517000 7 O0Z213 

3 ; : : 

: NOTE SAVERE SULTS) 15519999 + 002243 

5 NOT (STATISTICS) 15520099 T 002283 

6 noice Z Lt 

: NOT(B6SOOLOAD) : | 7 15520299 7 002213. 
i “NOTCMONITOR) aoe 15520310° 002213 Boo 

2 NOTCRJE AND OATACOM ) 52039 at3 


NOTCPACKETS) 15520409 T 002213 


* 
= 
ee 
= 
8 
iJ 
4 
= 
= 
= 
e 
) 


10 
M1 NOTCDOKBNUDFX) 15520419 T 002233 
12 WOT SEPTICTANK See QuS0 tT OQ22%3_ 
a NDT RUTORUMP OT : 3 “15520490 7 002813 — 
EERE RS ee a TE Be Sen ) : ysseseou 7. teats 
hs a ae ek Herds : B524000 + caae 
8 Sle AS Ole A} . 19525000 T o023' 
7 IF Sc#%s" ThEN | . (15526000 T 0023383 
8 « OI ; 55 O00 Q0 : 
ale pS+ LIT te" | | 7 | 15528000 T 002432 
po > ENDS 15530000 7 o0asi0 
1 M3, “447) THEN -2 MoH = yn DONE 0.0 ; 0 : 
BEGIN DISKWAITOC*Xs3000)3 15531100 T Oyees3 
eae 15531200 7 002833 
8 NS! " pL ¢§ o3 00 ele H 
Ss Lt IF 3 NeQ "e" THEN BEGIN ‘SLeSi+ss gO Ls ENDS 15531400 06313 
5@ fF BuUFF*SI;. D1l¢surFes a sae 15591560 003273 
ee OSe18 LIT"=NEXT MCP WiLL BE Ms 00 
Sg Ps ST#Ns SteSI+13 OS¢? CHR DSeLIT"/"; CCETEGE T 003583 
g STeSIl+13 OSe7 CHRs OSeL1T%e"3 15531800 
A . 


‘D3 END} 
FORGETSPACEC§)3. 


15532100 1 0038tt 
END WHATMCP3 15533000 tT .00391%0 
S1ZE* 0041 wORDS 
PROCEDUR E WHATIN RNS CCBUFF )3 Value BUFF REAL BUFF; 15534000 fT 0000%0 
START OF REL SEGMENT3 DISK ADDRESS 3 00388 
BEGIN § 35000 0000!0 
REAL SIZE» LOCs IN WORD WI9TS 15536000 7 O000%0 
LABEL EXITS 15537000 T 000080 


Ir INTSIZESO THEN. 


000280 


BEGIN ; 15540000 T 
STREAMCBUFF)3 OS¢14 LIT “NG INTRINSICS@"3 ; 15541000 T OQ002t2 
GU EXITS ae ee TaN 
ENDI Cr ee ome : 15543000 T 0006%0 
CONNEN MAKE WL. INTRINSIC PRESENTS eae 15544000 7 000610 
SIZE 18 -CINTWORDPSINTRNSCLINTRNSCLOJI) INX Ose: ee . 5545000 T  0006!0 
LOC t= SPACEC(SIZE)s 15546000 7 000884 
$ SET OMJT = NOTCAUXMEM) 15547000 y 0010%2 
DISKWAIT(C#LOCsSIZEsINTWORDeLO8¢7) )3 eee 15548900 00103 
DISKWAITC#CTPeSPACE (30) )53000)8 Ss 15549000 7 O012%2 
> STREAMUXG #191395K87 NOH LOKI LOC BUFF : 45550000 7 001680 
BEGIN oe hs 45551000 7 0014833 
SIt=LOK3 STteSTeer 15552000 tT 001883 
LOCS13=S1+13 . 15552100 fT OV19%}% 


aa Laila Ube eae Our es 10 ls = _ 15552 00 T 001943 


15552600 T 002510 


s— a a 0 z zy 3 so 
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(7 zy +. a + a * a a a x n a eS = 5 x. ~ » 


EXITS. 
m END. WHATINTANS IC 


END STREAM; 


RG 


PROCEDURE COREPRINT (4): SALE Qs REAL @3 


SPACE Cees i. QRGETSPACE 


a —_tIH PROCEDUR OmMP AND PES 5 0 


| “COMMENT. ' Q.Cinta st 1F ALL MIXES DESIREO 


aN 2 ae REM ft}: 


“BEGIN REAL CINK» SIZE 9D} a 


ARRAY Cl¥Jd3 


se ae re SSTAnts TZ 


ENDS 


End 


WHILE A # MEND DO% STEP THRU MEM LINKS 
BEGIN JF CLINK * MCAJ)oCi%4) THE Go le XT3 
~ SYZE # LINKACCR] © AS 
TF. LINK, tata). THEN SIZE +0 @ “Size COTFIGS SAVE 
CLLING + £916])] © CwP COUP * 
NXTS aA © LINK, CCFI;% 
ENDS% . 
A_¢ "43 WHIL AcA+ ) S MIXMAX p0% 
BEGIN If QeCit1) OR OelCF} = A THEN IF CLA) « 0. THEN 
SEGUE STREAM(NGeNSC CAT, Fidel eben 
HH f. Ne $ a 1G. tN eB ND * 
STREAMCNENGCEA Je rCF I, oe ELINKY9IA 
BEGIN SI * LOC ns 0S * 8 DEC} ENDS% 
JOBMESS(AsGs"3SA yea" S12 Es" OLAYS"sLINKI3% 
ENDS S : : en er - 


Oe ity q Tae NE. oo: ToTaAL! 
BEGIN ecctvls 
FOR Ael STEP y UNTIL wyXxMAx OG FcClA),AGU)SS 
N € Py W © WeolFFJ) + WeCCK 3% 
STREAM (NsDeDe (GETSPACE (4s 090) + 2)05% 
BEGIN 91 © LOC ns US © 48 LIT "TOTAL MEM IN USEF #3 
O39. § CECS OS © LIT Meng 
ul ¢ ODI = 63 DS « 4 FI 5A 
END STRKEAws © 
SPOUT(UD «& 8L9¥89tG])53% 
ENDS 
FORGETSPACECC INX 023 
OREPRINTS | ; 


& SET OMIT = NOTCAUAMEM) 


PROCEDURE LOGCUMMEN) (@)% VALUE Ws REAL Q5_ 


BEGIN: 
R 


ARRAY 


“AND OVERLAYABLE CORE IN USE FOR A GIVEN MIX OR ALL MIXES 


15552700 T 0026:0 
vOO 00 O! 
; 15554000 002743... 


T my : 4s 
ogres JAC SOSr RS TS 


ga 0028 


15600000 T. 000080 


enue OF REL SEGMENTS DISK ADDRESS = 
—SAVE 


15600100 t— 000010 


| 13600120 T O000fO 


BANOO F GHOnToO- 


15600300 000040 
15600400 000080 


15600600 Tt 
i3eo0e00 


inoLoGd 


T 

15601150 T 201340 

15601200 00143 
15601400 T 0017140 
15601500 y 001643 

Soolé600c. Ode 

15602200 T 002383 
18602300 y 0025!0 
14602400 T O025!9 
—-£9602500 T 0028°3 
15602600 T OO32%2 
B60 eA 20 . 0 0. : 
19602640 T 0036314 
15602660 T 00383892 
15602690 rT. COG aly 
15602700 y 0041914 
5603900 T. O0044io 
156G4Q00 T 004473 
15604,0C T 064533 
156C42C00 T OC50°O 
19604256. T 005233 
15604275 7 005583 
15604300 T 0058%2 
15604500 T Ov5933 
15664600 T 00660'0 
15604700 + 006423 
15604800.7T 006133 

15604900 7. 006384 
S1ZE= 0064 


15604999 T 0000!0 
164000C T 000080 


Tadeo Kelis 

LOGl*d3 

L «© GETSPACE(72909C) +23 
R AM Lai pe +22 3 


START OF REL SEGMENTS DISK ADDRESS = 
: 15611000 T 000089 
5612000 000030 


15613000 7 000030 
15614000 T 000080 
#45000 t__00038; 


wORDS 


00392 


reennat T 000883 


@ ®@ 
e@ 1 ¢ P.C33%13)5 LOG « CMCLJ] & uc ease ne 15620000 T Q009t0 @ 
OG } «¢ [ ¢ , 9 O @ 
1 WHILE (JP SKCLOGK#P(RTRD) Gea WITCHINGHOUR po MIDNIGHT? 15622000 001630 
@ cee « vee em iseeso08 toe 
3 ’ wd 
4 PEGtOd ¢ 993 15625000 EE 
@|: LOGSPACECELUGLOII]»1+9)5 15626000 002733 
6 FORGETSPACE(LOG)s 627000 00298 
ce “ 15628000 7 003082 
@ ||. ste ag ee s}ZEs. ri 
9 DURE KEYINSCANCKTReMIX)% REA 16034900 y 000030. 
fo START OF REL SEGMENTS 0 ]SK ADDRESS = 003994 
eo BEGIN 16035000 T .0000%0 
p2 REAL TYPE=+j1s TBLADORS we oFekerek Ze 
MN SCANS INPUT BUFFER FROM SPO >> 16035300 O000so 
@ x RETURNS. ERROR FLAG IN MIx 43). we 16035300 OO0dtO. 
5 % MIXsCUtLISFLAG FOR EMPT) FER (GROUP MAR v 6035400 7. O00010 
8 % MIXeC2:1)=FLAG FOR NO INFO AFTER MIX INDEX 16035500 T 0000:!0 
ee” ® MIX,C321]=FLAG FOR Q@MARK (CC) INPUT AS FIRST CHARACTER 16035600 T Q000!0 
8 % KTR IS INITIALLY THE AODRESS OF SPO INPUT BUFFER 16035700 000080 
9  % KTR IS ASSIGNED NEXT CHARACTER LOCATION AFTER SCAN 16035800 T O000!0 
@ & TYPE.CCF] IS ASSIGNED TABLE LOCATION (MIXMSG OR INFOMSG) 16035900 , 000030 
21 Z TYPE.C19#5] IS ASSIGNED PROCEDURE NUMBER. 16036000 go00to. 
P ® TYPE.C6%6) IS ASSIGNED MIXCUDE 16036400 T 0000%0 
pa STREAM(MIX3=63» BUFF SEKTR 2)3 % SCAN JNPUT BUFFER 16036200 T 0000!0 
P B N 60 36300 00043 
SIseBuFF3 16036400 TF . 000133 
DItSBUFFs OLFRDlets OSHSL ITM Hs 2. BacKSPACE CHARACTER . 16036500 7. 000210 


AC 606 S$c="e+" THEN &% END 0. Pu TRING 6036400 1 00.0320 
BEGIN 16036700 T 0004!0 
DStsCHks JUMP QUT 2 TO L3 16036800 T 000440 

NDS 6036900 

$cat<t THEN x ‘BACK SPACE CHARACTER 16037000 1 

BEGIN : : 160371400 7 
Dlisplel3 IF. S¢ ND tsp e137 6037200. 0005 
ENO 16037300 7 0006%2 

ELSE OS%=cHR))s % ENG GF BACKSPACE CHECK 16037400 0006%2 
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A 4 * 5 8 a * : : a 5 T5 5 3 
> 3 So & on oO ms 


Lt Slt=BuFFs DItsLOC MIxs & CHECK FOR MIX INDEX 2500 7 00073 
Lit IF Sta" "THEN Batons , ; 16037600 t Odd8to 
BEGIN ae : : | 16037700 t O008t2 


ENDS 16037900 1 000910 
IF SCe"e" THEN % EMPTY BUFFER 16038000 T 000980 
6038400 0009 


SK{P OB) DSteSeTs GO TO XXITE & MIX,Citi)*—EMPTY BUFFER FLAG 16038200 7 O009IS 


ENB} 16036300 7 Qo10!, 
“8C LSS "O" THEN GO TO XXITs % NO MIX INDEX» SET "MIX" 963 6038400 7 O0108 

SC GTR "9" THEN % QUESTION MARKe SET MIX,.C381] 16038500 T 0011380 

ae . 16038600 7 0011%2 
SIs=S1+i5 SKIP 3DBs OS*SSETS GO TO XXITS % MIX, C3LI=QMARK FLAG 6038700 Tt 00143 

ENDs : 16036800 7 001282 

STees tes} If SC 4558 "on THEN a0 To ONES 16936900 7 Oni2at2 


LEO "9". THEN 6039000 7.00: 
BEGIN ; 16039400 T Ootato 
SIssSle1s D0S8s20CT3 16039200 7 0014%0 

NB 00 


Z : Oo rf. 90 (ir eee 
16039700 r OO015%1 


Data Documents/inc. 


@ 
e L2t IF SCs" " THEN % SCAN TO NEXT VISIBLE CHARACTER 16039800 7 001534 @ 
099900 F 009523 
SiteSieil go To Las 16040000 fT 001543 y" 
e ENDS | 16040400 7 0086's ;|}@ 
IF SCM" THEN % NO. INFORMATION. AFTER MIX. INOS x 6040200  OO168] 3 
BEGIN 16040300 TJ 0016%3 4 
@ DItsLoc MIX# SKIP 2DBs LSt2SET; % MIX,{2t1]5ERROR FLAG 16040400 7 001683 |@ 
NO} 6040500 00 H 6 
AXES OIteBUFFs OL3201°63 OSSSBLIT™INV KBD "3 16040600 7 001782. 7 
@ Sunerast) X SAVE LOCATION OF NEXT CHARACTER IN BUFFER 16040700 7 O019%4 |@ 
“END STREAMA. . 6040800 ft O019t> 9 
IF ae iF STD>tMIx}sSND)st1#3]50 THEN % NOT QMARK»EMPTY OR ERROR 16040900 7 ho 
e BEGIN 16041000 T \@ 
TBLADDRE=TYPE? SSPACE(KEYMSGSZ)3 604110 002284 
z ~ DESKWAITC#TYPE*KEYMSGSZ»MESSAGETABLEL 2) «6 22826))3 16041410 7 0028195 13 
r -STREANCTEBLISTYPEs BUFFIMKTR ¢ TagI= (MIX NE@ 639); 160012 3 \@ 
SIt=TBplp S1tsSle1; GTiSpUrER DIt=D1+2; 16041400 7 003083 ig 
® NEXT? ClteCl+TOGs GO TO NOMIXS 16041500 7 003133 /@ 
MIX! IF S¢ GEG 1 THEN gO 10 Uk eLs % MIX SPECIFIED _ 16041550 7 00323 n8 
BEGIN. ee ay BUT THIS IS NOT 16041600 7 0033%2 "9 
or : “S1taSr+e) qo To Mix3 oa hg BL ll A MIX MESSAGE, 16084650 T 0033%2 4 @ 
Shae SPENDE ue : haget ceeds 40 00 10 24 
: NOMIX8 IF SC GTR 1 THEN % MIX NOT SPECIFIED Tyee T 003430 2 
i BEGIN z BUT THIS 1S A 16041800 1 0034%2 1 
am SLisela! GO TO NOMIX} % MIX MESSAGE, ss —_ 16041850 T 0034%> 24 
Ps END . Sane “ 16041900 7 0035!0 2 
@ -: cKs stissieis Olraple2s Mog soon oan T 003580 2 @ 
Sc#%e" THEN % END OF Tap 00 0035% 2 
p BEGIN 4082200 tT 003630 ze 
@ TBBLY=TALLY; GO TO XT} 16042300 T 0036%0 24 @ 
NDE 6042409 7 00363 st 
IF 2 Sefpe THEN % NOT. MATCHING ENTRY 16042450 T 003612 _p 
@: BEGIN, Bist 16042500 T 003710 1@ 
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PCC O» OF O» OF Os OF Or OF 0)5 16710000 T 0005%0 2 
@ > PCO* Or OF Os OF OY . per ioi ee T O0007!2 71@ 
L = . f 000980 7 
py OMI 16711000 T OO10O%1 i 
en. THRE 16711500 1 013!2 9 @ 
E ‘ZZSTA 120 & tM TOU Rav) TOTOTSTS . ieriesto T O014t0 ae 
Of B t= MCBUFFR143 16713000 Tt 001710 9 @ 
po SET OMJT = NOTCPACKETS) 6713499 Bo 
= . . feta geen nde Degen ITT TN: ‘Ke0- "1 ) ‘ert so00 7 i 
a = al 1. 5000 
j V $ SET OMIT = “NOTCDCSPO AND DATACOW) 16715500 T 
@» \w ney 16719500 T 004183 1@ 
(l $ SET OMIT = NOTCDCSPO AND DATACOM) . 16720000 7 004133 i 
RRS. oe oe 16721500 T 004483 3 
er $ SET OMIT = NOTCOCSPO AND: DATACOM) 16722000 7 004113 4 @ 
' : SO 7G BNET) Oe 16737000 7 00433 : f 
WR! 16737500 7 O0d4aty : 
e $ SET OMIT = NOTCOCSPO AND OCLOG ANnO DATACOM) 16738000 T O042%4 |@ 
MX 3 16739000 T 0042! 4 
oe  MIXPRINTCZZSTA) a : 16739500 T 004271 - 4 
eK ve @O TO FORGETS 16740000 T 004310 4@ 
TS3 a. . ae : : 16740500 T 0043%2 45 
SHEETDIDOLER  CKTR» 26s ES*7s XS28 16741000 T ‘a 
@ MIx=633 16741250 7 +7 @] 
: , | 16742000 7 a 
Or 16742500 T 1@ 
4° 16743000 T 008 51 
i 16743500 T OO0477%4 5 
di 16744000 7 OO04Bt2 s1@ 
; eee 16744500 T 004832 5 
e 16745500 7 : /@ 
og 5 
16746500 7 
e ® 
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GO TO EXIT; 16747000 T O0052%2 ] 
nN SM3 é 00 N05 330 
($ SET OMIT = NOTCDCSPO AND “DATAGOM) 16% 48000 


GO TO EXITS 16749000 | 


TYPOP (KTRe TYPES 16); 
GQ TO EXIT3 


* TO=15* PO=16 16750000 


16750500 
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STREAM(YISKTRIG : Je a i | 16751500 


0053! 
005530 


oe ~~ DW TO FF WH = 


BEGIN 16752000 : 
i LAs IF SC NEQ “e" THEN 16753000 
nM BEGIN 16753500 
n2 : LLsS +13 Ols2OI+33 GO TO LA $ 
—s ees we END sree 
h4 : ELSE. DSERULITHEeeens 


|. ; ae. 's e0 f) 4 ‘ " 

6 PGAt STREAM(Y1=07 KTRt Aish t=SPACECI2I#L} 16756000 0059! 0 

7 BEGIN 16756500 0063!0 

8 SJt=eKTR$ ; 6757000 _ 0063!0 

| Li: IF Sce* " THEN : 16757500 » O063%4 

po. BEGIN 16758000 T- 006313 

' SIlt#Sl+ 0 To bs és, BE OD 006 

P END3 16759000 T O064r4 

23 IF SCe"e" THEN TALLY t= 1 ELSE 16759500 T O064%4 
oe eet SG ENO" THEN TALLY 3. fe Se 6760000 00653 


BEGIN... ee 16760500 
OSta3CHBs. ; 16761000 
F S$c=""" THEN be ot 67615800 
BEGIN 16762000 
DSt=CHR3 16762500 
: IF SCs" " THEN __ 16763000 
a ~~ BEGIN. eee. hoes $6763500 
‘Slsasteq3: GO 10 Gee wif ve : 46766000 
SCIF SC GEQ 0 TREN pSts 16765000 
ENOs . 16765500 
OStaLI1TMe"s KTRESSIZ 16766000 
END? | a ; 16766506 
Yis TALLY? . un 16767000. 
ENO STREAM STATEMENTS ee ke Ce : 46767800 
PCCKTR]»sSTO) THEN 16768000 
BEGIN 16768500 
FORGETSPACECA™1)5 GO TO FORGETS 16769000 
“END : % wae ; 16769500 © 
AbeARAL1I5133015]3 16770000 
APEPURGECADS as poe eR en 16770500 
GO TU PGAS 16771000 
16771500 
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0066%1 
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GQ TO FORGET; 16779500 T 0Q7733 
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Ay 
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16773000. 
16773500 


GO TO FORGETS. 
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@®eeeee?eeeeeeeresreertteereeee#eeeeesee ®@ 
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LOGOUTCO) ELSE 
M = NOTCDISKLOG 


6 TO ERRORI 


& "Le & 


Cot 

C TABLEOF CONTENTS (KTR» TYPeEso3)% & CD=210 PP#22> Po=23 
) UR : 

CUP ce ae 

O COREPRINTCCIF. MIxs63 THEN “0 ELSE WIx)6ZZ8TAC9#9193)3 

A GO TO FORGET; 


SY3 
CN $ SET OMIT = NOTCSTATISTICS) 
gO 10 FORGET: 
— SER ae , 
Cl $ SET OM]T = nor estarisrics) 
46 10 FORGETS 
W3 


\)) SPCIT3 
\ REWINDANDLOCK(KTRQ3 
GO TO EXIT; 
on ae ial ea Tea eae, 
$ SET OMIT @ NOTCBREAKOUT 
CHANGEINTRINSICFILECKTR)S 
260 TO EXIT; 


C 
C | | TIWEREL AKER (KTR TYPESRqRDD % CT=29» xT#30) ThL=3] 
| GO TO EXITS | 
XD! ‘ 
IF TYPes33 THEN KTRe(CFJts0s &% XDS325 MRB33 
DKBUSINESS(PC1eKTR))3 
—G0 TO EX Ti 
MCS 
NANETDCIeKTR)S NAME LO CUsr ED NAMETOCUeKTRDS. 
IF Jel6%6]=e"¢" THEN GO TO ERRORS. 
ie IF CAtSDITRECTORYSEARCH(Is"J24)) GE@ 64 THEN 
BEGIN 


Fo J NEQ "DISK " THEN 

Re ern ee ,55)) NEQ@ O THEN 
PCOIRECTORYSEARCH(C #1, 3014) ,0EL)5 
FORGETSRACECA); 
FORGETSPACECK)3 
LEMESSCI» Jo"9e29e00e1)s 
GO FERGITS 
END > 

ELSE 


BEGIN 

MCA INX 418% C*P COUP) 820184682184 (83478493 
APSAREUFC@IO"DISK "sa INX 0717018433215); 
FORGE TSPACE CDI RECTORYSEARCH (Io d28) 23 


WE "5 
LBMESS (I> J954eTe"CISK "09193 


END 
LBM SSC ese" 9o IF A=} THEN 45 ELSE 152020» 3 


Ee? 


IF TMi". THEN: TNDEPENDENTRUNNER(PC.LOGOUTMAINT 209128) ELSE 


END ELSE. hes ee ee 
Ck nest 
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16795500. ° : 
16796000 T ) a 
16796500 T 9095%@2 7|@ 
16797000 T 009780 | rs 
16797500 T O097%3 19 
16798000 T 009814 ba @ 
etiam ei 16798500 Qo9at : 21 
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poe 630 00 00S9t 24 
16803000 T 009982 2 
16803500 fT 0400%3 2 @ 
agogere9 f" O40 t 2 
16804500 T O401%} oe 
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rs 659 00 J Q Q 3 30 
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_ 16810000 fT 011780 ag 
16810500 tT 041833 ‘A 
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$ SET OMIT = NOTCBREAKOUT) 
30 TO EXIT3 
Hp! ie = ae ; 
STREAMCEUPS" YH ERRTOGI308 CUL IT $2@2564000000000000,CXts0» 
Ki ek TR. 
BEGIN 
Srt=xKs; GO TO Lis 
LO: IF SCs" “ THEN BEGIN SItsSI+43 GO TO LO ENDS Cl3sCx3 
“Lit -CXESC Te Go TO Los 
2 TF SCaMe™ THEN GO ExT3 


HrteL Oc EULITS: TALLY ts 
IF 2 S¢s0C THEN % AN EV SPECIFIED 
BEGIN 


X2=CIs GO TQ LO 
IF 3c Gea “OQ THEN TF Sc<i2 THEN 
BEGIN 
“SiteSt¢: 3D! rsbOC. Eus 
IF Sc GEQ O THEN IF ScK<t2 THEN 
TALLY%=2 ELSE GO TO ERR 
iz - Yin 


“DStecx OCTS Gd EXT 


END 3 
NQ3 
ERR: ERRTOG!=TALLYS 
EXT: 
ND 


IF P THEN GO TO ERRORS 
IF sHNT TSE eLy>6 THEN IF fae LEQ NEU FF] THEN 
HN: Ni E SE: 30 To _€R RROR SE 


aeeih 
HNIt313 
| HN21eNEUPCFFI3 
"ENDER | 
$ SET OMIT = NOT SHAREDISK 
OR ItsHN STEP 1 UNTIL HN2 00 | 
IF NOT CNT2?aUCI}).EUNP THEN % NOT A DUMMY EU 


BEGIN 


T4TECINTISENT2eSTARTWRD) MOD 303 
“INT28S30"CKI2(NT2Z AND NUMENTM)@RG) MOD 304K; 
JYSATS DIV a 
$ SET OMIT = NOT SHAREQISK 
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OR NT{ssK"2 STEP =y UNTIL RG DU INT3S=J4UT INT 38 
STREAMC Ab SI = 1,B%eIF ULTJeSPEEDS1 THEN "F" ELSE "5" 
CURULLI ISH Om sOted,Ersutqy, E1b20de 

FieAtsSPACE(10))3 


BEGIN 
STs=LOC As OSt=4 LIT" EU M3 OSIF2 DECI 
AtsOIs Uls=0I"25 DSteFILLs DLs aas 
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DSeeL IT” CTP SissSte73 OStecHRe 
10 LIT")> NG, AVe"s DSia3 DECs 
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OSt1i LITs TOTAL AV="s DSt=6 DEC; 
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As ROD 
16823900 
pebeore 
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@ sal Lagi oehladag a SER MMT XR BACK 10 ORIGINAL VALUE 16830100 + O226t3 
eGo TO. : ARI0900 tT -O99RIO .. 
Rat 16850300 T O228a%2 
@ IF Boa THEN 16850700 T 022812 
i. WS 8 _ ie ee ee ee 6850800. 022934 
eee . “ine HALTED 1% TRUE} 16850900 7 022983 
e \ 2 ENO Go | | 16851000 7 a 
ne — SEaDI¢ RT M Xe i. Ce me 68 00 O23i10 
“IF P¢ NILOGNS SPR TEMIX*8],CcFJ4» TOPs XcHe DEL ) THEN SEGISANRi=0 16851200 T O232!2 
@ ELSE | | (16851300 T 023682 
DO BEGIN. tere 6851400 02378 
ie oe re cat ane He On ANKe o ADR? $10) THEN % OVERLAID RCW 16851500 rT O23e 
@ BEGIN mene e ee . 6851600 T O20083 
“41F 10T CLOCN) C33i1 2. THE 4) ‘ NOT. Typ PR INTRINSIC — GBSi700 T  Oeaqhy 
BEGIN “16851800 T 024330 
@ SEUI3ADK3 % SEGNO IN RCW 16851900 T 0243!2 
Ris0% % ADJUST FOR SUBS]RACTION BELGW ee ae eee eRe 16852000 7 O2443 
ABR SSMERELOGNS SMOKY » CcFis; % REL,ADR,IN MSCw : 16852100 7 024510 
i END ce 16852200 7 024812 
i G ts ce a 6 300 0248 
END 1685240C T 025080 
@} ELSE 16852500 T 025040 
p 4_PRESEN RCWs RE CK H LN KS Sere ere o L. 
Ris0} ns "16852700 T Goats 
@r WHILE CSEGIEMER], CcF1) Liss ADR Do oh 16652800 t O25194 
p - SEG G* R THEN RisSeEG \ PUNT R 25) aS<2o0o 02543. 
F SeGtsip MCRI,C396]=1 THEN wCAes) LCF) ELSE 0; 16853000 T O258y 
Or IF PCPRTROWLMIX]90, INX»DUP) GTR R AND PCXCH) USS MER] eCCFI THEN 16853100 7 026430 
j R4 ts en “ad en 68 QQ 02663 
: erie abeter ioe oe as 16853300 7 026984 
@ “END : 16853400 T Og70t2 
IF SRT EMIX pS BisCF NEG QCN OR MCLOCNeL Je MSFF THEN & MARKED 16853500 Tt Oz70% 
00 LOCN:=MCLO 7,MOM UNTIL NOT NELOCNT. MSFFS % GET LAST MSCw 1685360C YT 027483 
e LOCN?=MCLOCNJ+MOMS * POINT LOCN TO NEXT RCWs JUST IN CASE. 16853700 T 027983 
si END ees wks adc 028230 
UNTIL : 16853900 T O28216 
rT (Ip SEG NEQ oO THEN IF SEG = ("1) THEN oO 16854000 T 028280 
9 ELSE (SEGDICTLO] LSS Seq OR NUT. SEGDICTISEG]. PeIt) 46854,;00 7 Og84! 
ELSE P(M[R#2 Je (3!12), DUP) NE@ ©700 AND P(xCH) NE@ ©1500) 16854200 7 0286%2 
e UR LUCN=O3 16854300 T 029210 
AOR t= ADR#R3 16854406 T 02940 
STREAM(MyX» NAMSSCJAR(M]XeO0ll* Ti#0s SEGs ADRs 16854600 T 02951; 
S¥LPeMCPATUMIX283),010%25, TOG14eCRé NEG 0)» R4, | 16854700 T O297%2 
TOG2te(SEG LEQ 0), DiaBUFFey)s 6854800 T 03008 
BEGIN 16854900 T 030212 
OSt=LiT" "3 16855000 T 0302%2 
SISeNAM3 2(STt9Sy413 OS8=7CHR3 DOStel T"/")3 DytsDyeys. 16855100 T 0303%0 
OSte2L1T" 293 SytelLOc MIXs OSts2gECe 16655200 T 
@ rm TOG YC SL&ALGC R43 Slsasl+ys DSeeL1T" ") OSse7CHRSGUMP OUT TO XXIT)3 16855300 T. 
: TOG2ZCDS#*14EIT" NOT AVATLABLE™S JUMP GUT TO XXIT); 16855400 7 
52 OSteS_LIT* SEGa"S STe=LOc SEG} OSis4Ec; 6855500 T 133 
@» THZD1LS DLtsOle4s OSte3rILLs Osa; 16855600 T 031341 
DSt=5LIT" ADR"; DSs=4DECi es 16855700 7 031431 
Ze . EWSOT) OL USDIS 97 08 T OyeaTs oe = — 6BS5G00 FT  ORIST2 
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IF HALTEO THEN NOPROCESSTOG ?* NOPROCESSTOG "13 
GC TO ERRORs 

@ET:.. 

STREAM(T?sBUFFe1)s 0Sie LET. Mens 

SET_OM = NOTCRACKETS 


ERROR? 

SPOUTERC(BUFF&@1) INX ZZSTAsUNITNO® 195 

T 

IF CMIx#4@). AND CuIX<69) THEN TABCNTCMIX] SS TABCNTCMIXJ@ 13 
KILL CIMSCWI 23” 

END. PROCEDURE KEVI 23 


EXI 


REAL PROCEDURE KEYIN(B)3 VALUE 64 REAL B3 


aT 


a AR 
| 


HIS PROCEDURE FUNCTIONS AS a 


LED DIRECTLY» AND PROCEDURE YINe” JS cA 
NEEPEADERT RUNNERe 
BEGIN 


DAS: AN 


REAL. MSCWER23 
INTEGER BZSTA = 


R 


Le MIXCODE =. A» KTRX mAs 
le : 
is paaces = K} 


13 ARRAY BUFA BUFF UC wy3 


SET OMIT. = NOTCRACKETS > 


_ LABEL START? CHECK, SWITCHIT? FORGETs ERROR TBLE -RRe EXIT: 


PCR» O» Os Os O» Ur Ce Os OF O)3 % NOTE P(B)=ZZSTA 


START33 


$ 


Ir ABS(B) GTR {| THEN BUFF SSB.CFF) ELSE 
BEGIN tel 
BUFF. $8 GETSPACE(6000,0)+33 
ET OMIT = NOTCOCSPO AND DATACOM) 
MCBUFF INX NOT 2),0936] t= 03 
PCWAITIOCBUFF&L( 242473 lJ» 0225)» DEL DS 
END? oF 
SET OMyT @ NOTCOCSPO AND: DATACOK 
MCBUFFe2)8s0RZZSTAL9 899973 
KTR $= BUFFS 


, . ORTVER FOR AUXILIARY PROCEOURES 
a SRE Eats ERY INES. AND MREYING*s isp ah aeainees WKEYINO® AND "KEYINI® 
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16902500 


ere 
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@ 
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16902800 
6902900 


16902950 1 
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3_OISK 
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1690650C 


16907250 1 


16907500 
16908500 
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T O318%1 
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tT 032240 
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Y QO331%3 
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16921000 
16921500 


IF CPROCED?S(TYPE® SKEYINSCANCKTRsMIX)2001#5))57 THEN GO TO TBLERRS 


KTR HE ATR & BUPFCAS:33¢1913 


MIXCOD! Ee EQ 43 
MIXCODE 32 CMIXCODE MTX NEG 637). AND. ce x ACTUAL MIX CQUE 
TYPE ot # TYPES CCE; 
IF TYPE®6 OR MIX. 112120 THEN % EMPTY OR ERROR 
BEGIN 


IF MIXeC131) THEN & EMPTY BUFFER 
OO REGIN 2S a eee ee ee ee 


ELSE GO To ERRURS % TYPE=O0 OR MIx.[2tl) }  ~ 
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"PREEDURE CRRESTENG AGT ATEFEPONT OTR 


a 


END} 
7” OM aN (COCSPQ AN ATACOM 


TF TMExCOE st aR MIXCODE®2 THEN, % MIX INDEX REQUIRED 


IF MIX GTR MIXMAX THEN GO To ERROR} 
IF JARCMIxXe*]=0 THEN GO TO ERRORS & YOB MUST BE RUNNING 


A tj 31. Thy \ =f 6is 5 a8) ) WA OR : NP — 
BEGIN. a 
“JUMREPLYCMIXI} 
APE 2 

BEGIN 


IF Jel4es6]sTYPE THEN GO TO SWITCHITS 


7 43 mee — : al mo 
SO ENO : 
IF TyPeevay THEN x nye Not WAITING FOR IT 


MLBUFF=1)9FLAG(="nY NOT™&MyX(684236))3 
hae $208(64437)04237311)3 
GO TO ERRGRs ees ———S 
Shae x IF. MIXCODE a4 OR. 
SW H 
TABCNTEMIXI 8=TABCNTUMIXI #13 
$ SET UM]T = NOTC(PACKETS) 
Ds % IF MIX INDEX REQUIRED 
KTRX #8. KTR & MIXE9PG2I6) & TYPECatars7 33 
IF PROCED#2 THEN . 
5 N eS 
MCBUFF@1) t= Bs & PASS VALVE TU PROCEDURE 
Se oN rene nae Soe Nene OT ENE TAO! 


ELSE IF PROCEOet EMER RESTING CRON TRE? ERGE: KEYINOCBsKTRX)3 
GO TO EXIT; 
TBLERRS 
STREAM(KTR»Bt=BUFF= 1)3 
BEGIN 
SrLssKTR3 STt=SI7os OSssryzT™e"s potecenns 
DSts2aL1T™ NOT COMPILED IN Beers 


SPCUTC (BUFF@1) INX CO&ZZSTALS?9191))3 
KEYIN 3= TRUBS 
GO TO EXITS 
FORGETS =. 
STREAMCTISGUFFESBUFF81)5 DStSLITNEN; 
SPOUTCBUFF INX COSZZSTA[98919]))3 
EXIT? 
IF ABS(B) LEQ 1 THEN 
BEGIN 
(KEYBOAROCOUNTERtsKEYBOARDCOUNTER@1) GTR QO THEN GO TO START? 
KEYBOARDCQUNTERS 905. aes 
ENOY apt 
IF B THEN KILL CEMSCWI)3 
END PROCEDURE KEYINS 


_o MALUE CPNgSNeTL 012, E°UNI TNO AE | 
REF sSNeTisloseE*UNI TNUX 


eyes aR ee ea 0 


START OF REL SEGMENTS OYSK ADDRESS = 


16934500 T O034%23 
16946600 T 0034%2 
16947000-7 O034at2 
9a7e0O + “Boras 
16948000 T 003633 
16948500 T 003820 
H9b49O00 T  O039% 
16949500 7 004014 
16950000 T 004083 
49 Ue O00. .’ 00, fe 
16951000 T 004380 
16951500 T 0043%0 
6952000 olor! 
16952800. 7 -O0MRIy 
16983000 7 004643 
£95 3800 one: 
16954000 T OQ48!0 
16954500 T 005482 
5 20 
16955500 T O0054%0 
16955400 fT O056t0 
69 800} 005410 
16956000 7+ 005630 
16956019 T QO059%o 
6956500 Q00s9! 
16957500 T 0059%0 
16958000 T 0062a%4 
968600 004632480 
16959000 T 0063%2 
16959500 fT 0065%o 
5960000 004673 
46960500 tr o06731 
16961000 T 007,42 
16961500 0072710 
16962000 T d0072a%0 
16962500 7 0073892 
16963000 T 00733 
16963500 Tf 007433 
16964000 Tf 007733 
6964500 7 007880 
16965000 T 
16965500 fT 
16966000 
16966500 T 006210 
16967000 7 908230 
16947500 T O084!0 
16968000 T 008483 
169685090 tT 0084%3 
16969000 T 008733 
169695800 T 00884 
16970900 7 009082 
169708300 7 0091434 
16971000 T 0094384 
16971500 7 009233 
SrZecz 0094 
17000000 7 dQO000TO 
17099400 FT 900080 


WORDS 


00425 


Data Documents/inc. 


a 5 2 B * eK * mS a . Th = TK 3 3 


PTS TST CETTE TTT LETTE TELE TELIA ETAL LLL Li citi i. 
PARAMETERS 
Ii fe. & FORM OF MESSAGE 


9 ks i a a ie a ai Oe On 


s 

r 4 

% 

% atte (heed 

a GTR OQ 0 
% } GTR O NEQ O 
% 3 

z 

% 

% 

y 4 


O.-. NE@.O 
GTReG co 
NOTE: IF 11 1S NEL THER 52 NOR 5 THEN Il AND. “Te ARE INDICES INTO TABL 
er % ELSE 12 AND E ARE MFID AND FIDe 
Aches sien eepeanseeedosssisnesens tes ** RH HTEEEKREEKREKR A KAMAE KET Kat 
@' : : “REAL T MJ ABRAY TABLES]; | 
TAB MAM ESRACETATARESSAGE TABLET 4], 
| SESE AGETASLECaT CSI OT ION. 
@ DISKWAITC*C(TABLe CCF J) sAsMESSAGETABLEL 4) 06 22826))3 
TREAMCAL= Jelt=]i LSS Os TBLIit=([TABLL ABS JE» 
sh . Lt=Il LSS 0 AND 12 NE@ ovutelia52 OR I1s54, 
or BIerF une THEN C12) ELSE CFaph Ete) 1¢TteTeaSP ACEC 1093 
ee | : 


IF Scsten THEN BEGIN pStsL T="; Sfies (sei END 
ELSE BEGIN SItsSI+i3 OSte7CHRS ENDS OSPsS_LIT"/%;3 
scree THEN BEGIN OSt=LyT"=s"3 Syt=eSp+8s END 
Lega ELSE BEGIN ‘SLeeS 141s OSs a7 CHR END; 
LOS ssaql OT "24 Sleelerz3 
O3CSTsaSIo1s 7CIF Sate" THEN JUMP OUT 2 To Lt ELS 


4 CIF Scs"+" THEN BEGIN DStsLIT"S"3 STISST4+83 END 
ELSE BEGIN Sls=S14¥15 DSt=7CHR ENDS OS8=LIT"/"3 
1EN BEGIN OStelL[T"9"; StieS1+83 END ; 
o ; SE BEGIN SItesiei3- BstercHR: ENO# JUMP. out TO L393 
LeDSeeuIT™cm Ds ae 


63CSyTtaSlots PCIF SCame THEN JUMP ouT 2 TO L2 ELSE DS#sCHR))3 
LCDOSsSLIT™)%)25 STeeLOc Es Slassl+5; 
IF Sc NEQ "O* THEN BEGIN DSts2_L IT", 3 OSte3CHRS END; 

“OSes rete, eee © BON 

ENDS ZSTREAM ee 

« SPOUTERCTSUNTT OL91019)0UNTINGD XIE: 
FORGETSPACECTABL, CCFI)5 

END} ZLIBMSG 


PROCEDURE STOPM(NCS)# VALUE NCS+ REAL NCSI 


BEGIN 
ARI ERED PROTYS 


LABEL “AROUNDS 

RRO’ rY 9s PRYOREPIM SAVE PR OR: Ty. Le 
PRYORCPIMIX) t= STOP JOB 1s THLE 

AROUND! 
STREAUC JS JARROWLPIMIX I» PIiMI Xs 

‘$ SEs OMT TCWORKSET: o 


$ SET OM]T = NOTCWORKSET) 


START OF REL SEGWME 


17000405 
00 5 
17000420 
17000430 
40 


17000450 


17000460 


17000480 * 
17000490 


000800 


17000510 


17000520 
7000530 


17000600° 


000030 


000030 


000080 


O000t0 


OO00F 6. 


0000%0 
0000380 
N000!r0 


0000180 
900080 


“900016 


000020 
000080 


000040 _ 


17000800 ae 


7ON02KR00 


17002800 


17003000 


VO I200 
17003300 
17003450 

0035900 
170035590 
17003600 

00 00 


17003750 
17003800 


00.3850 
17003900 
17003950 
179004Q00 


170049050 T 
7004159 


17004200 


17004250 
17004300 


17004600 TT 


17005200 


17005400 


17005600 
17007000 


17900000 
17900500 
NTs OFS 
17901900 


17901500 7 


17902500 


17903000 T 
“= 9000to 


905600. t 


17906000 
17906500 


17907900, 


2 4 .) 950) 
179109000 


“OOOGLO 


0004%4 
0006?0 


OoLltt. 
001483 


004924. 
002141 
002212 
oe 3 


002510 


002513 


OOZ8t0 
0031!%0 
003194 
0933%9 
0034%1 


— O035t2 
f 003730 


003884 
O041%4 


004390 


004683, 


O04ety 
= 0049 


000010 


GOn0%6 


ADORE ee 


000080 
000080 


oo0dto © 


000010 


000182 
000314 


09038 


000643 
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. ry a a + e u 7 es Th 3 Th . Ry > 


: 16164000 | 


OSt=L13BLIT"4OPRTR STEN "3 
Lts, (S1ts5l4e15 DSts7CHKS NSt= ws" 3 
ry DStal Tans. Srraloc BAW TX). (OS ts20EC; 
Se beened BMNEILEE ae 
SPDUTCA)S 
REPLYCPIMIXI] 32 eS & VOKC3634216)3 
OMPLEXSLEE PC ( HPI MIX iB REPLYS PIMIX 
ACCIDENTAL E R eee . 
IF ; Neg PMX THEN od NOT ee 


$ SET “OMIT. = “NOT ENORKS ETD 
IF NOT WHYSLEEPCVWY8VOK[36$423617) THEN GO AROYNDS 


POP “OMIT r 4 WORKSET 

SET OMIT = NOTCWORKSET) | 

IF NCS THEN GO TO INITIATES 
- END PROCEDURE Stor MS 


PROCEQURE T ISKTASKS. FORWARDS 
PROCEDURE FYILEHOLD (ABs TUGsLOCs HULD)S 


VALUE LOCeHOLDE 
Peiaa ‘ArBeTOG#LOC*HOLDS 


REAL SZeYo T 
SET OMIT = NOT SHAREDISK 
ARRAY HOLDLISTE*I3 
“LABEL SLEPES 
OEFINE oSEDS (TER 
HOLD THEN : 
BEGIN | 
IF TOG THEN TOG*TOG41 ELSE 
BEGIN % MAKE AN ENTRY IN THE HOLDLIST 
SET OMIT = NOT SHAREOISK 


CsCOFISPIMIXI #3 


if (SZ243CY S8HOLDER® LFF I)¢1) GTR HOLOMAX THEN 


 BYBYC "HOLD LIST OVERFLOWe%s 1993 
HOLOLIST3=€MCSPACE(SZ)JI&SZL6338810)3 
If Y#0 THEN 


DISKWALTC=C(HOLOLIST INX 0)» sYeHOLDERs CCF 195 


HOLDER «(FF ItasZ3 


HOLOLISTCY 98 eLOCsCFFIGLTOGIECTFIGSYSNOL214682 93 


DISKWALTCHOLOLIST INX Os SZ#HOLDER, CCF 323 
NOT SRAREDISK 
FORGETSPACECHOLOLIST); 


SET OMI! = 


Nos 
IF MCLOC44) 40391) THEN 
SET Sart. az. ‘NOT SHAREDISK 


BEGIN etcoceaa. Lati)teie 
DISKWAIT(LOCs {CF J» 730 sL0C,CFFIDE 


IF PiMIX#0 THEN 


17911500 
9 000 


17912500 


pak debt 


WO 


17914000 
17914500 


ZL20V0 


AOOO 
179416500 
17918500 


949000 


17915500 7 


17919500. 
17920000 - 


17921900 


17921500 
17927 
17928000 


179285007 


START OF REL SEGMENT3 OrSk 


STAR! OF RE 


SE 


18000000 
Ts DISK 


18001000 


18002000 
ACOIAOO 
180049000 
18004490 
8005900 


18006000. 
18007000 


18908000 
18009000 
18010000 
18011000 


18011490 | 
18012900 


18033000 
18014000 
18014100 
18015000 
16016000 
18917000 


18018000 - 


18018490 
18019000 
18019500 


18020000. 
18020490. 
BO2Z1000° 


18021500 
18022000 
9022500 


~ 18022990" 


“t3024000 


T 


0006#3 


— «COLO 2 
OO11Na 


Baas 
001340 
wae)? 

41 


“ ooaat2 


0030!0 
0030%0 
003030 
OO3%4 


SYZE* 0032 


000030 


ADDRESS « 


T 


000040 


ADQRESS « 


44 


+ 


ee ee a | 


HA 


Q00010 
000080 
HOoOo1oO 
0000%0 
0000!0 
Q000%0O 
O000t0 
000080 
go00to 
0001434 
0004!3 
0004%0 

000482 
900432 
‘00078 


AA 


ie 


O042t1 
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e e 
@ SE GEN See U eael etd aot ye ey 18025000 Tt 0043%0 e 
G _ 802600 004463 
SLEPE! FILEMESS("# "sAsBe" IN USE"*09020)3 18027000 T O047tO 
st oh eeh Boy ahaa et: 7 18028000 T Oo4gt3 
3 COMPLEXSLEEPCREPLYLPIMIXIZ0 OR DSED OR TOG) 8029000 0051! 
‘ 17915000 ACCIDENTAL ENTRY AT TOG 
@| IF NOT WHYSLEEPC(T) THEN GU TO SLEPES 18030000 T 005930 
8 END ELSE 8031000 00608 
7 BEGIN De hee Ca tees AE eeNcr eer kay 18031500 0060%1 | 
@ : ae SLEEPCCTOGIo1)5- : 18032000 7 006642 
D . : p032800 yy O06a810 . 
" $ SET OMIT = SHAREDISK | | 18032990 tT 006810 
eo" be Tra aie 18033000 T O06at0 
Pe 8933010 
TOGHSTRUES | {osssdoce oorale: 
@. IF PCCPIMIX NEG 0 AND DSED)+0UP) 16034000 t 007512 
ie THEN FILEHOLD CAs Bs TOG*LOC 2 2035000 Be Re: 
e é ecks P(RTN)$ % 1 ON TOP OF STACK IF DSED tao rec0G T 008110 
NDF 45000 Tt 
8 SET OM]T = NOT SHAREDISK ; 
de > TF CSZtaHOLDERS{FFI250 THEN ge Bs 18046000 7 
@} SET OMIT * NOT SHAREDISK | : pene 


tony 


SES 0. 
BEGIN IF HOLDea2 THEN DISKWAIT(=LOC,(CFl]»30*LOC,[FF1)s 008 3tD 


pa HOLOLIST&=(MCSPACE(SZ)JJ8SZ(8838%10)3 18048000 0090t0 
2 DISKWAITC*CHOLOLIST INX 0)sSZeHOLDERe(CFI)3 ae 804900 

pe IF ToG THEN FOR Tis0 STEP 4 UNTIL SZ" DO 18050000 . 

26 $ SET OMIT = NOTCSHAREDISK) 18051900. 

B (FO HOLOLISTOCTI CER ISeC TOG) «I F) THEN 18083000 tT OF 
Pe IF (SZt=SZ-1) # T THEN 18054000 7 010333 
23 BEGIN 18055000 ft 0106%0 


19056000 


muveN oes Ts thGEDLISTET#1 112 CHOLOLISTCT)I)5 010642 


S 


NS 


“011202 
O1tais 
0 3! 
saocagog eo ahha” 
eiereetd Tt Here 


18060000, 
1361000 


Ae 


¢ WAREDISK). oe 
MCHOLDLISTLY) e(FFIIe13 18068000 


YtsSZ3 18069900 012340 

ND» 2 P oon 0 ie A 

a DISKWAITCHOLOLIST: INK: Seen BOMBER: a peor 7. 012084 
Os. Pal : . 012683 — 

$ UM} tts all NOT. SHAR YER ee BN ae g8072490 7 012613 

IF SZ*Y THEN 18073000 T 012683 


BEGIN 18074000 
MCLOC+4),C3ItL}tegs es : 
HOLOa2 Ti ISKWATTCLOC, CCF] *"90rLOCeLFFIDS 


FORGETSPACECHOLOLIST)3 | TOINE 013510 
ND - 18079000 1 013680 
ENDS & OF FILEHOLDER . 


-OWING INFORMATIONS 


ofp GO 0 
18084000 ft O0000t0 


ii 
2015215) 


BLOCK LENGTH 
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AE Ae. SO yy yy Sy SN 8 >. 


Cer 


: 


re MaTTT 


2030812] 


(£2842; 


Metre 


satay" [0%48)] 
x 


% 


% 


ae ae 
4a. 
o 


ae ae | ae ae ae 


at at ne ac ace ae ae lac 


“Gigs mal kets habe gcc) laa 


dtl ve ve ac/ae ae ge 2e 


wish) 
Cit4) 


~Cé6tae) 
RHC3), le a 


,t2t10). 

aCe 
.£308181, 
4). aes J 


00414121) 
2f£1224) 


states © 


£3616] 


“Ua2bay 


432 


rast) 
.(462] 


eye PRET 
gid ap WeG Jee 7 


TOGGLE 


Leet iS 


RECORO/BLOCK 


CREATION DATE “FOR LOGGING CWHEN ON o13K) 
CREATION TIME FOR LOGGING CWHEN ON DIS 


NUMBER OF LOGICAL RECORDS PER ROW (WHEN "iN CORE) 
30 FREE FILE 

=Q SOLE USER» PUBLIC OR PRIVATE FILE 

=1 SECURITY FIL 


ae ee AUSER"S CODE | 


NEW FILE HEADER FORMAT 


“RAVE, FACTOR CBINARY). 


DATE OF LAST ACCESS (BINARY) 
CREATION DATE (BINARY) | 7 
=i  FILe I§ BEING LOADED OR NAME IS BEING CHANGED 


2) FILE IS OPENED BY AN EXCLUSIVE USER 
1 A PROGRAM IS WAITING TO USE THE FILE 
_ syste 


NUMBER OF EXCLUSIVE USER. 

USED BY “AUTOPRINT TO MARK A PBD FILE 

USED TO MaRK. raeuoe DECKS THAT WERE CREATED ON 
Tad 


20. DONT KNOW ITF DATA OR PROGRAM 


FILE ACCESSED 8]1 
ae aad FILE TOGGLES 
OR SY : 0 


| OPEN COUNT 2 FOR SYSTEM 1 (B) 
- OPEN bpaell 2 FOR SYSTEM 2 ¢¢) 


OP NO 2 NE Te. i} ‘&? PA t 

=Q TYPE 18 UNKNOWN 

=] BASIC 

32 ALGO tes Sa 
#2 COBOL. : 
MES BSR TRAN 

#5 TSPOL 

26 XALGOL 

=7 SEQ 

=g DATA 

‘@9 LOCK 


“USED 10 MARK FILES WHICH caNT BE MOVED 
VE "ROING BITS 


[TI ATA’? | 
raat sas FILE 
NOT Hae 


Fice 


NUMBER OF SEGMENTS eas Raa 
TOGGLE 1 FOR SYSTEM © CA) 


| ; 3 EM 1 (B) 
TOGGLE 2 FOR SYSTEM 2 (C) 


TOGGLE 2 FOR SYSTEM 3 CO) 


N COUNT 1 


18085000 


18087000 


48086000- 
1eoascga 


18090000 
18091900 
80 099 


18096000 
18097000 

8098000 
18099000 
1gliooo00o 


48101000 - 


16402000 
48103000 
RIiOdOOD 
18105000 
181069000 
BLOF OULD 
18108000 
18109000 


Latitooo 


18112000 


$i7uu 


18114000 


Meee an 


“te117000" 
“48116000 


8119000 
18120000 
18121000 
18122900 


18123000. 


18123100 


246 00. 


18124400 
18124200 
5900 


18129000 7 


aianeee 
B 13109000 


te132000" 


18133000 


18434000 _ 


18135000 
18136000 


18137000 


T 


Tt 
T 


7 
T 


te093000 7. 
18094900. 
18095000 


‘$8126000 To 
127000. 


a+ 


000030 
000020 


000080 
000010 


000010 
0000!0 
000010 


000010 5 
000010 
000080 _ 


0000%0 
000080 
0000!0 


~ 900010 


000040 
0o00t0 
000030 
0000!0 


000030 


-0000t0 


o000%0 
OOOO? 
0000%0 
0000!0 
000080 
000010 
000040 
Oo0010 
000030 
0000!%0 


000070 


doooto 


900080 


000040 
0000!0 
000080 
CO00%0 
0000?0 


(000040 


0000!0 
000030 


48) ne 
00000 


separ 
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. B S a 5 Fi 7 5 n Ty 8 


% ~Ce9tia) 
x C4335 
1 BHCLOI"HL29) 
2 % ; 
3 4 
4 
) y 4 
é % OGGLE 1 
1 y | 0 
8 : 0 
ho} % 1 
11 % 
ha ZEND COMMENT3 
nay REAL 
14 
ns AL 
6 % OPTN= O 
n? a CPTN= 1 
al a CPTN® 2 
9 % OPTN= 3 
Po 4 OPTN® 4 
a 
2 OPFTNs 6 
pa QPTN= 7 
& 
OPTN=s 9 - 


BE DE BLiSEe BE |E/De aC Ie / ze BE |E le Fe at [BC BE BE jae de ae 


cs bala ahd halleal baal 


QPTNs40 
eae 


OPTN=43 


OPTN#14 — 


GOPINS15 
CPTN246 
OPTN2=17 
OPTN218 
OPTNS19 


iP Ne20 
OPTN=21 
OPTN&22 


OPTN>512 


OPTN< 9. 


A Cis.) 


Seog tay 1s 
ay bata. 


Betta) 


woT USED 
MAXIMUM NUMBER GF ROWS a 
DISK pea OF ROWS (O IF NOT ASSIGNED) 


THE OPEN COUNTS ANU TOGGLES ARE USED IN THE FOLLOWING MANNER 


TOGGLE 2 OPEN CO OPEN CO 2 
OQ. - INPUT ONLY {NPUT 
1 COUTPUT) NOT USED ‘INPUT 
QQ. _ SHARED INPU 
1 PROTECT INPUT 


PROCEDURE OITRECTORYSEARCHCAsBs OP TNII% 


ApBoOPTNS 


REAL Asis OP TNIS 
OPENS FOR SHARED USE 
OPENS FOR INPUT 


OPENS FOR QUTPUT 
OPENS FOR WRITELOCK 
OPENS FOR EXCLUSIVE USE 
TURNS 
REMOVES FILE FROM DISK UNCONDITIUNALLY 
REMQVES FILE FROM DISK AS SOON aS IT JS NoT IN USE 
REMOVES aa 
HEADERUNLOCK*"WRITES HEADER POINTED TO BY CFT4),0CF) 
BACK OUT ON (Fed) CFF)» TURNS OFF ENTERLOCK & DOES 
ORGETSPA bal 
CLOSE SHARED 
cugse aNPUT 


wl 
: 


STORE WATTECOGR 
CLOSE EXCLUSIVE be we 
~OGS THE FILE AND RESE ITS CREATION DATE 
MAKES THE FILeE NOT A SYSTEM FILE 

MAKES THE FILE A SYSTEM FILE 

WL NTERLOCK SYSTEM FILES 


AND TIME 


RETURNS FILE HEADER CYUNCHANGED AND LOCKEDsesedT IS UP TO 


. THE CALLING ROUTINE TO CLEAN UP) 
NYSED: ae 
OPENS PROTECT 
CLUSE PROTECT 
FILECLUSE*"ADDRESS OF HEADER IN OPTN,(CFI 


~ GLOSE OPTIGN®™10 ITS IN OPIN, CFF J 
RETUANS AN- AREA OF USER DISK AND- UPDATES CORE COPY 


-OF FILE HEADER**ADORESS OF HEADER IS IN OPTNs(CFIe* 


NUMBER OF THE ROW TO BE FILLED IS IN OPTNe(FF] 
IS IN UPTNeCCF) 
DIRECTURY SEARCH Hit FORGET THE MEMORY SPACE 
“QCCUPTED BY. THE. FIGE HEADER 

1 ED INTO F JEL] WHEN OPTNsA 
CA CONFLICT OCCURSs AN "IF" WILL BE: ENABLED Tye 
“OPERATOR ENTERS AN “IF, DIRECTORYSEARCH WILL RETURN A 
VALUE OF #0. CURRENTLY» THIS IS USED ONLY BY LIBMAIN. 


DIRECTURYSEARCH WILL RETURN A VALUE OF =O IF THE 


REE 
18144000 


18145900 


86000 
18147000 
18148000 

8149000 
18150000 
18151000 


‘ 2009. 


18152100 
18153000 


81549000 


1alSS5o00 


START OF REL SEGMENTS DLSK 
‘B156000: 


18160000 
18161000 

14700 © 
18163000 
18164000 
om Ge O00 
18166000 
18167000 
B{ARHOO 
18169000 
18170000 


“18472000 


tT 000030 
0000%0 
tT 0000%0 
T 000040 
OOOH @ 
T 000040 
tT 000040 
r_ 90000370 
tT Qoodto 
t O000%0 
OOOd % 
T 000030 
T 000040 
0000!0 
T O000TO 
ADDRESS = 
000 
T TTT 
7 000080 
000030 
T O000tO 
T O0000%0 
T. oLeLsTsa Xs 
T O000%0 
T 000040 
0.00 () 
y 0000%0O 
rt G000f0 
Ofonto 
T Q000%0 
T 


18173000 T 


is WOOO 


14175000 


18176000 T 


18176000. 
18178100 Tt 


¥OUO ° 


18179100 
18179200 
18180000 


48182000 


16183000 


181849000 
18#85000 
18186000 


18187000. 
14148000 


AgOdG. 


128190000 
18191000 
18192000 


~~ 18493000. 
at S198000 | 0 eae 


18196900 


18161000. 


— 


~ 000086 


4447+ was tt me tl 4 


000040 
30 
000070 


000010 


QoCoLO 
090080 
000070 
000080 
ooo0T?S 
000010 
CH00LO 
000080 
0000!0 
000030 


000010 
000010 
000080 
0000%0 
000080 
000040 
000030 


9gog0to 


0000!0 
000030 


WOCO+O 


00434 
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ry Ss am x Ry Th x. Ry 3 
® Go & 
: F p * 


(is 


ee 


REAL ULDONES=435 

REAL TEMP» 1*TeTOGe JsKeNPFoxs 
INTEGER Selislael3i - | 
REAL UNTTNQs- 


ARRAY. FHC®]ENBE*DS 


SET 


SET 
SET 


‘$ POP, 


OMIT 


OMIT 3 NOT SHAREDISK 
DEFINE DSEDSTERMIX.CCFIBPIMIX#; 

UMIT = SHAREDISK 

“DEFINE UNLOCKHOR | & EXITH: s 


PoE SEENSHARED, Bee NINE OPEN OUTPUT DPENGRITEDOUG 
OPENEXCLUSIVEsLOsLPeLesEXIT#L WRITE» POUNDS 
HU, CLU Ws BOMB» GE TAR 
EL OSESHAREDs CLOSE INPUT» CLOSEOUTPUT» CLOSEWRITELUCK> 
CUS SPOR US ENE RTE HCG 8) Be SY Ss 

KSYSsNONTWA (OF IL QMPL 
OMIT = TTT 
LABEL OPENPROTECTeCLOSEPROTECTS 


- AV ~KD W 


WI a Qe OPEN PARE D » 0 NUN PEND P NWR 
_ “OPENEXCLUSIVESEXIT#L6sL 7oLBsEXIT» 
C105: SHAREO*CLOSEINPUTs | 
Oo? ¢€ % 


OMIT = RTE 
OMIT = DISKLOG 
eM ed een eee erent tte nt 
eo ee ee eee 
oo Pp UNSYS2SYS- 
KSYSesL LEAVE! KO,UNUSED sOPENPROT PeChLOSEPRO 


- 


TERETE TT TETEOLEET TELAT TELE LEE TTL iiiirie. 


REA 


BROU INE SEARCHS 


BEGIN 


SET 


LL’ 


SET 


OMIT # NOT “SHAREDISK. 
StaSctra CAr8)3 
DISKWALTC=N?=609S)3 
FOR X#=0 STEP 3 UNTIL 57 90 
IF CNBEX) EQy A,(6242]) = NOT O THEN 
TF CNBUX4i] EQV g,l6%42]) 8 NOT ‘0 THEN Go TO FOUND? 
IF CStaNBl22.CFF 340 THEN. : 
BEGIN DISKWAITC(*Ns 609523 
GO TO LL3 
END ELSE 
OMIT = NOT SHAREDISK 
‘GU TO ERTS. 


FQuADE. Aiet BEX+21 .CcF 401 RECTORY TORT Ay caananxas 


ara KeDIRECTORVTOP +43 


ExT! SEARCH ¢ 33 


Fcltodcched elipthati abicdint odd od col odhat dtc adhedeathadeotodheodiad 


LAKE EKEHERAKNN REAR KRN A RREHEREREKAKK KAKA RE 


18197000 
19800 


148199000 
18199100. 
19200000. 


18200490 
18201000 
6 Y 0 


18201500 


16201510 - 


we OO 
18203000 
18204000 


Be NO 5000 


-18206000— 
18207000 


A2Z208000 » 


18209000 
18210300 


T 


~—4-+ 


~4aaha4 


444 


At tH ws tt 


000080 
d000%0 


000010 


~ 000010 
“QO0040 


0000t0 
000080 


000010 
oo00to.. 


‘000030. 


0000'0 
0000%0 


oo0oTO. 
o000r0. 


“On0ntTO. 


00000 
aag00toO 
ide. 


16212000 tT 000010 
16213000 7 d000!0 


4: L000 
18215000 
18217000 


16218001 


8215000 


WOU 
18221000 
18222000 

° 0.00 
18224000 
18224490 
82295000 
18226000 
18227000 
18227500 


82 
82 


18228000 | 
18228500 


€229000 
18229500 
18230000 


19231000. 
18232000. 


18234000 


18235000 


18236000 


18240090 


18240200 


T 
T 


T 
T 


4a4ahHa 


A eS 2 Se 


ovelaven 2a 
Qq000%0 
000020 


000010 
000040 
ealezen He 
000040 
000030 
000080 
0001 %0 
0004140 
000130 
00080 
0009!3 
001130 
001383 
0020'1 
Oge2! 


ee 
-0029%2 


003240 
0033%3 


reser 
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fi . 3 e a G 5 = - 


SUBROUTINE REMOVERS 
BEGIN NBCXJ+@143 


NeFILES” TEMPtad; 


& CANT BE CALLED FROM QTRER SUBROUTINES. 


Ats@]}3 oe "EXIT 


: DISKWALTCNs"60%S8)3 
2 $ SET OMIT a NOT SHAREDISK. 
3 r AA wNae* 30 
: NBCI]+@143 NBEI*+L JeNEXTSLOTA NEXTSLOTC¢KS 
5 DISKWAIT(Ne"300d)3 
6 CM = NO HAR a 
z ENDS 
8 Tatenerreeret ett enter enna tiene ewan eee te 
9} wheal NN HOLD 3: 
bi BEGIN. 
MW $ SET OMIT = NOT SHAREDISK. 
n2| 3 $1] T =A 0 DONTWA ; 
$ POP OMIT OMIT. oe 
in FILEHOLD (Ar Bs TOGs TEMP 13 
5 i re % 0 OR “15 E Oh WP STACK N ERMOLD 
6 BEGIN “TEMP8333 Atzeqys GO EX]13 END % DS*ED IN FILEHOLD 
4 ELSE 
8 PiMI X20 THEN 
5 IF REPLY CPIMIXISVIF THEN 
: BEGIN : 
1 iCLD CAR hGs TEMP 
BONTWAITS 
D3 TEMP&=15 & IN USE 
Ly 0 () ° 
A IF SEARCHSO THEN 
BI 2 No a TO “MP2 


ae 


ta 


ENDS % “OF. HOLD. 


AS a A) 


$ SET OM]T = SHAREDISK 
LOCKDIRECTURY3 
$ PGP OMT 
IF OFTNS9 THEN 
BEGIN 


AIBNABOCA)S 


FS Ss ts BS SS FE 


ay 


: Sho eW ps : | 
_$ SET OMIT *. FHARED 
$ SET UMIT # SHAREDISK 


_$ POP OM tT 


S$ SET OMIT = SHAREDISK 


errr rer ery er Tet Trerreei ire rer eT TTT Teter ee 


$ SET OMIT: ® NOTCPACKETS 


 OTSEMATY Ce MABSPACE (3B y4'eh805 0K MDEDONE CFF 
FRSSCMEF SsOLOGNE e (CCF IJISZ0C A830 10I3 


FHEGI aC *PCOUP)I&MON+ G4) C 38381 IS 
GO TO CLOSEXCLUSIVES 


NeEMeMe MISSP ACE (60138601 9236: oly 
IF SEARCH=0 THEN 
BEGIN 

At=03 
ae TO. EXITE: 


FHISCMCF s=SPACE(30)]]¢30L6138310)3 


ie 


1824409000 
B 9000 
18245500 
18245990 
s ‘ aueks 
18248000 
18248500 
AG9O 
18250000 
18251000 
RAR AOU} 
18253000 
19253490 


“18284010- 
16255000 
oats 


18255200 
18255300 


18258000. 


18259000 
6240000 
18260500 
18261000 
8262000 
18263000 
18264000 
o£) 1) f) 
18266000 
18269000 


~ 


44-4 


+4 


44} 


aed 


matey at 


4-4 


18271000 T 


18272000. 


B272199 
18272990 
18273000 


A273010 7 
19274000 TT 
18273000 


Te27 6500. 


18277000 
16277500 


18278000. 


18279000 

B280000 
18281900 
18282000 


18283900 


18285999 
18286000 


003930 
00 930 


00404 


004113 


O04 
O043t> 
O047%4 
Orer'¥: 


0048t3 


004930 


OOaGtO 
004980 
004930 


“005092 
005082 


0052! 
005233 
0055%2 


Ogee! t 


“oo70t0 
“porers 


oats: 


- 0082t2 
008310 - 
008783 


009130 
0092%0O 
0095h3 - 
00980 
009810. 
010284 
0403%2 
010480 


» 040483 
020844 
0408 


0105%4 


O10si! 


~tp289999 


eCTIT Gt aon 18323000 
IF FHE9},(5#24330 THEN 18324000 


: 19325000 ( : 
50 rb ae : os 4 ' tp Ee @ 
19327101 5 
18328000 “1 @ 
: 
oie 
ui ye 


IF FHC9),0C1§8720 THEN . 18333000 Tt 0O180!%a 


@ 
e : IF OPTN LSS 5 OR OPTN=17 OR OPTN=7 THEN 18290000 T 012710 @ 
$ POP OM | 7 : ae OO es 
$ SET OMIT = NOT SHAREDISK © 16290099 7 042983 
@ REGIE ce 2 16291000 7. O,2993— . |@ 
BEGIN Si ee A292H00 - 0130 3 
IF FHL4],044%1] AND OPTN LSS 5 THEN 18292400 T 013084 ‘ 
r | BEGIN * TRYING TO UPEN WHILE FILE IS BEING BLANKED 18292200 T 043224 |@ 
OMIT _ = _NO HARE K_ =. eee 18292300 T O1j2t3 : 
GO NOFILES 7 | 18292600 T 013283 : ‘le 
eS : VERDE yes 18292700 t 013394 : 
‘TOM a SHAREDISK. So a eI, Jer cement g hs otal 599 (O09 | ab 
. IF NOY OPTN OR OPTNS7 THEN 18293000 T 013381 1@ 
@ $ POP OMIT 18293001 T 013433 u 
IMI T = NOT SHARED B293099 O34 be 
eee |e FEMI, tt2ra3 40. THEN 18293200 + 0434%3 a 
@} BEGIN: x IT 18 A SYSTEM FILE 18294000 7 013613 @ 
: ; ce a ee P is LaTEM at eee as R2OS5000 ie 15) 
£ SET OMIT = NoT SHWAREDISK 18295490 T 013880 a 
Or GO TO EXITS 18296000 T 013810 7 
: So _ta297900 yr o4agte i 
SEEL | 16298000 T O3812. | i: 
e ° IF CPHLAs tatan. AND ¢NOT roe OR 2) 940 THEN | 18299000 7 0438%2 2 @ 
| N | 48300000 O1aity 2 21 
pal HULDS 18301000 T 044183 2 
@ | GO CHECK; 18302000 7 014330 2 @ 
ENDS 83030 0 : 2 
wie END3 . pees 16305000 7 04143%2 2 e 
Or GO..TO QLOPTNI: : om , 48306000 T 044342 26 
2 ee = OPEN SHARE i cae : a _ pe - TAZO7000 TY. 075Ht0 [2 
2 IF FHC9], totals 0 THEN | 18308000 T 0456%0 1° 
:@ IF FEST, (184140 OR FHE9I4£9%20]=0 THEN 18309000 T O157%2 i 
3 — eaeA cones ood R 0000 O1618 0 
: $ SET omer * “WoT CSHAREDISKY oe eae 18310999 T 016183 e 
s@Or. $ SET OMIT = SHAREDISK ue 18314099 + 016193 52 
;aae FHED) « eae oe cossdets 7 ek, 48314100 tT 046483 cd 
p FHC9J .Citijisrs 18314200 +, 0746584 : 
@ | $ POP OMyT 18314201 T 046783 2@ 
bs | GO TO LWRITes | = 18315000 T 046783 28 
END? | ee 18316000 T 0168%4 Z 
@ HOLDS oe _ . s 16317000 T 0468%4 a@ 
pt i | GO-TO OPENSHAREDS” os : | 48318000 7. 046980 3 
CPENINPUT! | 18319000 T ‘ 
® -$ SET OMIT = NOTCSHAREDISK) | 19319999 T /@ 
SE oayt =_SHAREDISK 18321099 T 49 
be eee PALE Tel 2JteP COUP), ‘ > )41 teeny 18321400 7 4 
eu DMB a cent coms de cee ghia - 10321101 7 «@ 
® 
@ 
@ 
@ 
‘ 


GO TO OPENWRITELOCKs 18340000 
“OPENEXCLUSIVED 
FHLO) C5824 


Sigate 
O1sete 


BEGIN 18334000 T 018280 
$$ OM] T = NOTCSHAREDISK A3I34999 018 

1 $ ret OMIT = SHAREDISK 16336099 T O182t2 
2 FROST Pans Jape ours cbas2e25 eee es T 
3 : i 
4 18337000 T 0186t0 
5 ENDS 18338000 T veeete 
6 
7 
8 
9 


eee 


IF FHLG),(16%20]20 THEN 


PLETE 


Disots 


BEGIN | 18344000 019230 
a COMPLETES Foal] t= (P (OUP +09) )&SYSNO Ca: aotee 2t47t,IBALis2s4y)s 8345000 T 01921 
GO-TO BWRITES 18346000 T 


18347000 


5 Lo 2aAT 

8 GO TO OPENEXCLUSIVES 18349000 

7 QPENPROTECT!? 18349100 T 019910 
8 _SET OMIT = NOT SHAREDISK a3 

8 SET OMT = SHAREOISK — 48349799 
wae GO TO OPENEXCLUSIVES 18349800 

q : 


POP OMIT 


834980 


= 
> 


P CLOSESHARED? 18350000 T 

2 $ SET OMIT = NOTCSHAREDISK) 18350999 T O200t0 
sR SET OMIT 2 SHAREDISK fo eres Se ee 8357099 T 
SPH, IF CrtsFHt9D. 09153-1720 THEN 18357400 7 
E@re .. FHE9D. ban ivteds- . 18357200 fT 
3 | —FHIQ],(9tSdbeLE ? | 8357300 _ 
8 al $ POP OMIT ~ 18357301 T 0208t0 
[Oh GO To CLOSES | 18358000 T 02080 
3 bo CLOSEINPUTS 18359000 T 

ae SET OMIT = NOTCSHAREDISK). ee ) 18359999 7. 

Ba} SET OMIT = SHAREDISK — oS : 16361099 T 

F hd eChOS5ItSPCDUP). [16853943 | OT 

b $ POP OMIT 18361101 T 

‘ FHC4].(641]%50; 18361200 T 

“CLOSEQUTPUT: ie  $8363000 Tt 

: SET oe = NOT¢SHAREDTSK3 es 18363999 7 


SHES, eceiare 18365400 T O215%0 
$ POP OMIT 


elas T. O21782 


$s $ REDESK) —. 

SET OMIT = SHAREDISK < 
FHO9], [91S]#=P (DUP). 19157" 13 
$ POP OMIT 


18369100 
48369104 


CLOSEPROTECT? 
SET OMIT = NOT SHAREDISK 


LCETTICRE 
18374001 T 


core 


18388000 T 0225t2 
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8 a 2 * + 3 . st ~. Th = TS ~ ~. > 


wl. 


POP Omit 
GO. 


IF FHEC9J,€1%8)=0 THEN 


SET OMIT = NOTCSHAREDISK) - 
SET “OMITT # SHMREDISK =. 
FHCG).Cigsijie1s 
POP OmMy]T 
GQ TO LwRITE3 
NDs 
HOLDS ae 
oo 10. “SYSs 
wSYSt. e 
SET OMIT = ELLGO CLS 
SET UMIT = SHARECISK 
FHEG maT SESE 


TO. ir 
“betsy st. sai 
OPTNG=4F 

GO SEES 
SET OMIT = NOTCSHARED Sk) 


‘Set OMIT # NOTCDISKLOG) 


GETAROWS) 
OOP RHE: 2ts0PTN CEFIIs0 


BEGIN 
SET OMIT = NOT C(OISKLOG) 
BEGIN. 


SET OMT SHAREDISK 
NLOCKD] 


“SET OMyT = NOT Sayre 


teGeTUS| 


THEN 
ROISK(FHE8183(1#463 20 THEN 


R 


TLs=GETUSERDISKC=FH(8))3 


SET OMT = SHAREOISK 


POP OMTT 


meade te gta 
TF: SEAR chieo THE! 


BEGIN PGRGETUSEROTSKCIToFRTOTI 


TEmMPt=0;3 
aoe EXIT 


ENO} 
, HEADERS” 
oe FAI tadie: 
ENDS 
ENDS 


Ate]; 


FOR 2tsFH(9),(4335)49 STEP #1 UNTIL 10 00 
TALOBT Ti Taleer utters : 


a went Fuge PREETI 7 


IF OPTN GTR 511 THEN 


“x CIF. sated) 


ORY C13tFFHEOI), C30812)) . 
p90%se 
r14])=0 THEN 30 ELSE 12)? DIV 30) 


DIV CI3#=eMCOPTN] 64296) )x13,(30812) 


anaes ots 30) MoD 13,(4216})x30 
4 fay *I 


FHL 4)tsteP Cy 


(OW 13 ce anaes!) 


18389000 


18390999 


18392099. 


1a392100 
18392104 


18393000 
8394000 


18395000 
18396000. 


8397000 
18397999 
18399099 


18399400 


18399491 


18400000 


8401000 
18402000 
18403000 

8403999 


26411000 


18421000 

8422000 
18423000 
184249000 

84253400 
18425450 
1aeas1?5 


425200 


18425925 


18425300 
8425390 


18425400. 
18425410 


500 
18425600 
18425700 
18425800 


A cheed 


18427000 
18428000 


18429000 T 
18430000 


18431050 
19431100 
OQ 


~ 48 831300 | 
“18434400 
184315900 

- 18431600 


18431700 
16431800 


— tin 


T 


T 
T 


4a aati aa 


3a 4th Ho 


ieazeiod.t 


as ae 4 abe 


AA 


0225%2 
) 80 


Q227t2 


4a 


vet 
023010 
023070 


0230%2 
023210 


“PEEP 


02322 
Q232%2 
023510 


023510. 


0235%s 
0235!2 
023684 
02363 

0236383 


023613 
023633 


023833 
O23a9%4 
0239! 

024330 
O243%2 


024730 
024730 
024930 


— O249T0 


O255t2 
0255%t: 
025739 
025984 
026120 
026340 


es 026340 


oeet 
026514 


O270t4. 


027340 


SOIT SIS 


ae. 


029280 
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. 2 aS 5 x ~. 3 irl 
a Gg OS & oO a 2 oo 3 


oo ND TOR wD NS 


FHC7Ji=MCOPTN4+7)3 
NDS 
gO J LWs 


L7th 


FH 4) AND @1400777777770000: 40" 
FHEC9],61%228)%0 THEN 


IF FHCG].C4382) NEW O THEN & TEST FILE SENSITIVE 
BEGIN 
STREAM (Ass TisTtaSPACE(10)+2 5 
BEGIN: 
DSI*10LIT"Cc REMOVE "; ‘STLOC As SIt#ST413 OSt=7CHR3 
OStSLIT"/"; STPBLOC Bs SIs=S1413 OSts7CHRI 
DStS6LIT"SEND, C&S 
ENDS 
FHC4SJ (43% 2] 8243 
INDEPENDENTRUNNERS PCy sCONTROLCARDY + TEC TF WNITNG NEQ O 
es THEN. MATING ELSE TLE CAV Nath 1816894781 1049295 
: 16) 20. é 
SET OMIT = NOTeCERREG TEL 
GO COMPLETES 


4 
SET QM]T * PACKETS 
TF LIBMSG THEN 


LBMESSCABS(A)ABS(B)07+0>0 UNI TNO SLIBMSGD} 
SET OMIT = NOT CO1SKLOG) 
PBCO C 


ce COA, CtaaT Eay hiaecm ")aNoT 0)) AND B, torlety3 


FOR Te 1 STEP t UNTIL Patel pos 
IF FHEO#IJ40 THEN FORGETUSERDISKCFHLI49]eFHL8) 25% 
FP THEN Gu aaines GU _EX{TS 


C CipSe8 GeTESTeLOC CFST+S] 453 
OI¢BsDleD1+250S¢3 CHR 


$ POP OMIT 


LEAVELKDs 
UNUS 


186432200 
84 00 


18432400 


16432500 
184: 2600 
18433000 
18434900 
8435000 
18436000 
18437000 


18438100 
18438110 


18438155. 


18438360 
8438170 


8436000 


18438420 


ats 4b 


0310%2 
0 Lae 


4h 


031530 
031683 
QO 2 

031810 
032010 
092010 
032080 
032182 
032230 


44 


18438160 | 


8438500 
18438202 
19438210 


18039900 


18438490 T 


1 a8 39050” 


18439725 
eve 


19445000 
18446000 


18453500. 
18454000 


18456000 
eS 7000 


isasoq00 
- 18460000 
18460490 7. 


18461000 
18462000 
18463000 


18465000 

18465990. 7: 
8466000 7. 03 ; 
038882 


18466010 
18466400 


1846640 


036810 
036840 
T....9369%0 
037180 
0372%4 
0373320 


“O3a7aty 
-Q3778 


037782, 


037930 
038480 
“9381440 
038540 
53.0 


038812 


036812 


S1ZE® 0392 WORDS 


O31980 | 
031382 
03138 


0928543 


O37 34. 
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5 Sn ee wT .8 
5 & 8 Ss 8 & : x YS : 


PROCEDURE PICKTHELUCKs FORWARDS 18468100 T 0000380 e 
- START OF REL SEGMENTS DISK ADDRESS = 90448 
PROCEDURE EVENTANDINTERRUPT) SORRAROL: Se Bee 18468200 T 0000!0 ~~ D 
| ds ge : START OF REL SEGMENTS DISK ADDRESS = 00448 2|@ 
PRO DCEDURE.. OMMUNICATEL3 i: nace i : La5S0000G. 1 “Oonatoe 3 
START OF REL SEGMENT} DISK ADDRESS = 00446 4 
BEGIN REAL R4a=4sR5=75,ROEq6,R7=M7 »RBEMB} 18500100 - 0000:0 3|@ 
N R =" 4 275, 163763 a as a ap ee eR Sth A500900 000080 6 
ARRAY AGsmAt*]+ASarSL 4] ,A0RM OCH) 18500300 7- 00010. 7 
ARRAY ATae? (els | 7 18500400 tT OO00to0 | 1@ 
_ NAME NG@weg gN52"5 pNO6S"63 B800500 T Od00!O =. $ 
LABEL COC 1eC2C3rChsC5sCbrCT> COACODC 1000] (CoC (acc yar sstc ae: 18500600 T 000030 
C17 C18 5C192C204C21> Cae. rC239C24 C25 4626} 18500700 T 000080 /@ 
AB BC 299C 30 poser AFOO BON 000030 ! 
LABEL C539C 340350 C364 037» C38» 659s CUEN CUT CuBr GADD 18500900 7 OG0010 
C30A#CIOBsCUPAs 18501000 T o000t0 4@ 
* Ay Or D Oe ACT® ACHP ACS *# CHANGEN AM ee eee 5801400 “Qo00tO 15 
$ SET OMIT z NOT, SHARED IGE 18501200 T 000030 ty 
SWITCH ACE®ACO*ACL*ACQ* ACR ACUPACSS See 18501700 7 000010 |@ 
SWITCH Cee pINIToINITsC4sINITSINITo INIT» INITsINITs INI ye _____ 18501800 7 000080 ‘8 
a ar OINTT#INTTe INTTAINTTs CAS*#CiGs INITs INTTs INI Ta INiTe -18501900 7 000010 ig 
OINETAINITSINITSINITSINITOINITSINITSINITSINITS C305 | 18502000 + O000%0 re of @ 
NIT*#C32eC 33> INTT>INIT* INITe# INI Ta INIT» eINyTs ABOD TOO O000TO 2 
INITOINITOINIT# INIT ®C4S*INIT*INIT* INIT# C495 18502200 tT O0000t0 22 
REAL RCWS 4001 Jett 18502300 T 0000!0 77 @ 
: * PB PHos 5a —______________18502400 7  O00030 . F 
GO. TU CEPRTEPINIX,9315 rae 19902600 T 0000t0 oi 
INIT! GOTO INITIATES Ss 4 18502700 T Odzat4 /@ 
DAL PAL: TD r (iba ea es. : 2 s§40000 O82 8. : 2 
cor TERMINATE (P4MJX) 3 TERM UN ALMESSAGEC ZO) 18510300 002813 . Je 
x GENERALIZED ZIP 18$20000 7 003084 1 @ 
yt eA 6310J)40 TH N. BEG N eee! 8920100 0030! ° 
$ SET OMIT = PACKETS : 18520200 003283 a 
- HCCTSAGETSPACECT ¥470003442%01, coteneaos 18920300 0032!3 |@ 
Pop OM BS90000 OOo 3n% 
$ SET OMIT = NOTCPACKETS) 18520500 0038%> 
IF NOT A4,0281) THEN MAKEPRESENTCNFLAGCNOT 3 INX CRCW)))3 18920800 003832 a @ 
IF CU*USERCODELPIMIX) )eNOTC#Q) TREN Jt 0s 18520900 004280 36 


— STREAMC Cede Ade Tiere (3686) > Te 
BEGIN SI taha3- pesieak: he 
Lt SytsSyeis re Soca" " THEN gO TO Ls orest; apvaar 
IF SCa®14 THEN OStaLIt" * ELSE OSte2ctit™ "3 DlteTs 
DStseLIT"CC USERS" SyssLOC C# S1ssSyoys O0S227 CHR 
Ee Beas ae aeneewe 

St® 30 St#3eN0S)s.. DSte T WD: 


ReQa TDs 18521000 | 


18521100 
“$a521300 
18521400 

500 


—saEaTs ) 
005210 


ae $ SET oust . TNOTCPAGKETS : e 
"ee ; TAL shan phts LYE es os BS22000 7. 49 
. DItsQsSTt=LOC 1;SIt@S1+7FDST=CHRS 16522100 T . 

END STREAMS 18522200 T 005810 1 @ 

, JTF USERCODEIPIMIXJ="cP THEN 31 ELSE 26) 18522300 7 O05a'4 . 
re Mie : "10822400 F “O062t0 Ms 
ok Bh 19922700 1 006210.  @ 
pe “18522800 7 006310 a 
Be 1B8es,00 V060380 5 
sy $ SET OM]T = NOT(PACKETS) 18523200 T O0065'4 |@ 
; | __END ELSE 18523600 T 006514 
: poate. le 
: awh 
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. * a 7 . a % 5 > 


oot mm FW &F WH = 


ht CrANGENAME & 


Fs 3 Ww Uw OO mW Oo QW <. a < 3 mS 


“48029000 _ACCIDENTA 


5 
6 
7 $ SET UMIT = NOTCPACKETS) 
8 
9 
1 


TeFPBC14+3)-6£43°5)3 
_iF T=]0 OR Tei2 OK 7#13 OR T=26 THEN 
BEGIN 
If FIBC5S). raanna THEN GO TQ SU AAGENANES 


He 1B 


$ SET OMIT = DATACOM AND RJE 


hC6)2=03 


HESIsBUSERCODELPAMIX}sS 


$ SET OMIT = NOTCDATACOM AND RYE ) 


F HE4 
BEGIN FILECLOSE(N4, [33's 
IF CT©OIRECTORYSEARCH(FPBL I JoFPBLI4+13»4)) 
356 


THEN GO TO INITIATES 
HeCM(TII830(8% 36910I5 


HESIIFUSERCODECPIMIXIs 


ENTERCONTROLDECK (HQ aidaeh x 


PCOIRECTORYSEARCH( @FPBLI}sF PBC 141128) »DEL)3 
setae c. aaire LASTCDNUM 


END ELSE. 
BEGIN FILECLOSECCNG, C33215) 86016833815) 
“NIERCONTRCLDECK 
weHC2ls ® SAVED LASTCDNUM 
FOR Te10 STEP 1LOUNTIL 29 DO RE TI]¢93 
ILECLOSECNS 38151)2 | 


END; 
IF RUNUMBER LE@ 0 THEN 
GEGIN ; 
STREAMCASC UARUPUMIXe QJ] ]2 BeH*USERCODELCPIMIX)>» 
FeH*MCP AND HAOe PLIMIXs Use TeTeSPACE(10) 23 
BEGIN SIeAs DSeLIT*# 3) 
2CS[TeSI+13 pSe7 CHRS DSeLIT"/")5 Oleby"13 
FCSI©LOC Bs SIleSIl41s CleDI+13 OS*7 CHR) 
S1*¢LOc PIMIxXs DSeLIT™="3 AeOT 
~~ PSe2 DEC OS*14 LIT* ZIPPED DECK #"; 
ST*LOC J4 DSe¢4 DECs DSeLIT% 72 
oo DiepiR5s 05¢3 FILLS Dieas DSeFILL? 
END3 
SPOUTCT)3 
ENDS 
END? 
END? . * 
GO. TO INITIATES 
DISPLAY (COBOL) 
DISPLAYCA4 JINX 1)% GO TO INITYATES 


oe ACCEPT 


“TF TERMIX, See sess ais 
IF NOT WHYSLEEPC VWY&VAXL 36 $42 36)) THEN GO TO C163 


mill Ada LC Ce IS EEE, REPLYCPIMIXJ*O5 


SleSl+13 2(DS+40 CHR) 


48525700 


18524100 
8524200 
18524300 
18524400 

1500 
18524600 
18524700 
A 900 
18524900 
18525000 


RU. 


18525600 


eo ) 
18525800 
18525900 
a &OHOO 
18826300 
18526400 


A 6700 
18826800 
16527000 

B§ 27400 
185272 


00 
18527300 
8527400 


18527500 - 


18927600 


00 
18527600 
18527900 


18528100 


18528200 1 


16528400 
18528500 
18528600 


16528700 7. 
18528900 


18529000 
teeeesa, 


TUPLE 
18529400 7 
18529500 T. 


18530000 
18530100 

8540000 
18540;00 


18540200 
[8540300 


18540400 


rT ITTTT 


| 


aA 


44 


“2954000 7 


007432 
00763 
O0B0t4 
008083 
OO0ast 
008332 
0083%2 
008 Hy 
008433 
008614 


WOBA 


008683 
0o08at2 
00904 

OooLtt 
009243 
0095.20 
0095!0 
099612 


012310 
012413 


013133 
013240 
01328 


043233 


043233 


0413293 


0133%1 
013394 


O,gsty 
OL39N 


014682 
014833 


015740 a 
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s G * * g Fi f oma in 5 aS 5 aS » 3 > 
Se S es o2 a o ‘oS in a = zs fet oh 


C3038 


oe) SET RMIT: La eT CSHAREDISK) © 


END; 
QORGETSP Rr (T@1)3 OQ JO INI ATE? 


 DIRECTORYSEARCH. AND UN@FILL: FILE ID FOR NURMAL STATE PROGRAMS 


7, S$ USER@TYPE OR NOT@PRESENT A 
Cid IS MULTITFILE 10 
C2) IS FILE Ip 
If NUT PRESENT» C3] => ARE = 
roe ae INVALID USERS | (3) 3>. (5) aRE O 
wh dolar SECONDARY, OR TERTIARY USER? 
1S RECORD LENGTH : 
Ca) Is BLOCK LENGTH 
(52 1S END UF FILE POINTER 
é 3_ OPEN OUR 
IF ARRAY SIZE 18 GREATER THAN 94 
EE a erbbalge ACFROM, HEADER) 


“3 HEADERC 3) (CREATION/ACCESS DATE*SAVE FACTOR) 


(91 ie TERDERIAY ¢ LOGGING DATES) 
IF ARRAY SIZE IS GREATER THAN 108 
10Js SYSTEM NUMBER CSHAREDISK 
NOT#PRESENT A POAG TS. et: 
 INVAL IOS USER FLAG 1S 
_ PRIMARY SER FLAG Is 
SECONDARY USER FLAG Is 
TERTIARY USER FLAG IS 


mG WINS 


IF AA, sEBN AOE 57 THEN BEGIN TERMINATECPAMIX)52.. 


TERMINALMESS AGECT D3 jencaa 
iX 


F_ jOT A $1) THEN MAKEPRESENTCNFLAGCNOT 


FIB ¢ NSCNOT 2)3 FPB « PRICP4MIXs3]3 
+ gC4),Ci2:i) THEN FJec4) 131113% 
ELSE CF TRCATs CAFPIL ISL METRUNGS 
aati] + FPBCIJS adcl2] « FRBEL+LIs oe : 
+ IF PCFPBLI+3). C4315} s0UP 00 PialoO ......  ¥RANDOM 


OR cPCXCH) GR 19813 OR PCXcH)=26 THEN *SERTALAUPDATEsPROTECT —_ 


IF CT © OITRECTORYSEARCHCA4L1),A4(2)5,57)20 THEN 


BEGIN IF (A4[0) « SECURITY CHECK AME1]>A8C2)) USERCODELPAMIX],1))20_ 


AND MC(T4#4),012%4]00 ce 
Hear BEGIN AGTH) «+ METI ,TA¢10]5% 


SAATA) © MET) CASELSI) AnEeS © MET47 13% 


S$ SET OMIT KREDISK 
AGLOJSSM(T 44) 0168S] +mM( 149) (985); 
$ POP OMIT 


fue 48 £81103 Gt ead tse 


END ELSE GO 
BEGIN 


_CLMsINPUTs AND 0 
CINPUT AND OUTPUT BITS) 
(INPUT BIT ONLY) 


P 


COMMENT” SEARCHES DISK OIRECTORY AND RETURNS DATA IN ARRAY. 


BI 


RCWJ)))5% 
PCCmMCLAG INX NOT 1)],0UP, DUP sLUD »XCHsCCXseUsSTDsIUR)3 % 


a ___418551700 1 0160?0 


3) 


18555400 ~ 


18555500 


18555600 
{eS55700. 


“18556000 


18541000 7 atee ee 
16550000 + oraaie 
edhe ts 7 O1460t0 
BO700 °' 8046016 
18550306 Tr 0160380 
18550400 T 016030 
9 OBN0 016020 
16550600 T 016080 
peeaeice tT O1S0to 
~*OROO O16C EO 
18550900 t 016080 
18551000 T Q0160#0O 
9 00 016010 
18551200 T 046010. 
16551300. rT 016040 
ge (3 tj + St) t) 
18551500 T 016030 
1a551600 T 0160%0 
. 16551800 7 016080 
“48951900 T 06146010 
18552000 7 016010 
18552100 tr Q9160%0 
18552200 T 016030 
; 00 016080 
18552400 Y O460%0 
18352500 T ee 
A So 400 books 
18552700 T 0167380 
18552800 7 017093 
18552900 T O474!0 
1a853000 T 017583 
18553,;00 7 0479%2 
18553200 O183t6 
48553300 T 018534 
186553400 y 018880 
18553500 T 0494%4 
18553400 Tt O795%0 
16553700 7. 04;97%2 
18553800 Y  Og04ty 
18553900 T 
18554000 T 
18554100 T 
78554900 7 
16894600 7. 
1688a700 7  O¢ 
18554800 7 
16554900 T 


oon mo FW fF WN — 


= 
a 


> 
oy So © 8 ys Oo 


ACCIDENTAL 


BS Ss oF 5 8 
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5 


—~ eaters eeST SET E SES ESSENSE SE S 


BEGIN 
A4COIJSs4s ANLZIFFCT3SR0 AB 4340 


Aalalsarl.cC24sa7)3 AMC5S)3*1, £41:7]33 
AGLOJtaTINUCT).03084813 TF T<16 THEN 


A4lé a¢c*P (DUP &PRNTABLE ' Bli 0 €¢308; 
END ELSE 
BEGIN 
AACQOI:2953 A SIZ AR 0 B 
ENO} 
END} | _ 
CIOAt ASLO] TRAST ID ISAGLH Lae AG 5) A RAGLG IL Eeet3 


C30B3 
IF NOT JeCe21) THEN PCCMC JI] PRL) 3% 
GO 10 INITIATES% 

C32at% 

$ SET sete = NOT COATACOM ) 


i 
C3333 STREAMCRG, Ae (R420 )» J¢JARROWLPIMIXJ]oPIMIXe% 
TeTeGETSPACE (102020) 42)3% 
BEGIN DS€10 1 PAUSE # O"G¢ _ 
ACOLeD1943 SleLOC Ras SleSI+2s 0546 CHRII 
pSeS LIT" FOR"S Steg; SreSrets 0S¢7 CHRIS 
OS*#LIT "/"3) SteSt+l3 O87 CHR}  OSeL IT “a 3% ee ee 
SleLOC PIMIX; pSea DECS OSeLIT "e";Z Dlepie3s DSeFILL 3% 
END 3% 
SPOUT(T)5% 
CUMPLEXSLEER( £TERW EX. (CF JePIMIX ORX 
" STOPJOBSP4MyrXx OR STOPJORME 1777953 
ENTRY 777 
IF BL EELY da THEN STUPIUBeP {MIS 
GO TO INITIATES% DON'T KEEP COMMUNICATE AROUND NEEDLESSLY 
IF Ra THEN % COBOL68 EXIT PROGRAM/ EXIT PROGRAM RETURN HERE 
“BEGIN TF a5ePB1T THEN RIF THERE IS A TASK ARRAY 
Oe ASTOISE: THEN * TYPE od CALLED © 
GIN 


C4533 


“SLEEP(LAS(7))92)3 

AS « 43 

D ELSE AS «+ Q 
“ELSE AS + OF. 

GO TO INITIATES | 


% DETACH TASK ARRAY? US OR ES JOB RUNNING OR SCHEDULED 

IF NSC6]=2 THEN GO TO INITIATES 

IF NSC3J=1 THEN SHEETDIDDLERCO» 20» 

IF NSC3)e2 THEN ny 
BEGIN: 


NEEDS 


TERMINATE (NSE434610CTF1)5 HALTS 
PROCES aa SSTOGeL). 


ARRAY A7=*7[#13 


00 
18581000 


*" 18556100 


855620 
18556300 
18556400 

ote OO 
18556600 
18556700 

8556800 
18556900 
18557000 
18557300 
18557200 
18557300 

g55 0 


185600007 
18560;00 4 


a 600 


18570000 


18570100 
fA 0200 
18570300 
18570400 
18870800 
18570600 
pec O7gG 


ROO 


18370900 


18571000 


18571100 
18571200 


1989980200 
8580300 
18580400 
18580500 
0400 


18981100 


aeriace 
18581700 
18590100 
18593300 


9N00 


197003001 T 


18880100 


030110 


18580700 | 
18560600 


STE 


19581300 7. 


19581400 — b3sane 


iT 


SIZE® 0321. 
fowetce ve 


024233 
02432 


024750 
O250ta 
§ 


025730 
025710 
 ¢ } es 
026240 
026240 


026210 


026782 
Oz6732 
0 on! 


027083 
027043 


027112 


027480 © 
027768 


0g78!0 


027913 


Q28tt2 
0283ta 
0284t2 
02843 

O28Sta 
O28Sta2 


029384 
029514 


o30ata 


03062 
030940 
031390 


031843 
031994 


~ O31904 


a2 04: 


aoe 


“000080 


Data Documents/Inc. 


a a ~. SS yy x. ~ 5 > 


Geo F SS 2 8S Ss 


NAME NSe"*4eN5="5eN65"63 
BE | OsCisC2» eC4eCSeCbec? 8» C9» Qs er 4 
CAT ACLS C194 C20 e621 4022 C294 C244 C25 C265 


LABEL 270028902990 302C 3190323 


_ LABEL. 33003494035 ,036,C37 2038, C39 CUS a CUT COB, C49, 


C2LAsC3APINIT#US»Dse TUsPReLOT#TMRe 1 Ts ADs WOS 
DEFINE CNSDIFFCOMA3 
SWITCH StI ToUSoDeTDsFReIOT» TMRe ADS WD3 


oN tet CRSINET?# CLA INITaC3s INTTs INITs CO C7* CBs INITs INITS 


INIT! 


14¢60x14+PC(RTRI+C OCKs 
TERMING C3345 38P 1 


Prats teehee rae ete cht ate Ts NT T#Ca 0s 
COQe INIT INI Te CQaSec: NITsINTTsC29eINITs 
SINCC INI NT eINITEINI INE NGC ieee no 
. INIT* INIT» INITOINITs INITX INIT # C47e C48 INITS 
REA eJoTs 


“ARRAY AITO*I3 otal fant haiti Meal tara [ 
NAME “ADORS | 
G0 10 CLPRTCP MI X09 13 


GO TO INITIATES 
TIME INTRINSIC 
If (i414) Ged (= 2) AND 14 EG 2 THE N 


BEGIN GO TO S(i4e2)3 . 


1Tt Pade eared pbta)s oS ee en 
JARI yo 1° CaP CDUPJ) 2@ 264346123 
G0 TIT 
USt R4tsUSERCODECPIMIXJ3 GO TO INITIATES 
D3 TaeQATEs GO TO INITIATES 


TOL T4*XCLOCK+PCRTRDS GO TO INITIATES. 
PRI Lae ARCO Inxs 3}4PROCTINEC IMIXD ELOCKSPCRTRD} 


G0 70 INITIATE oP 
14¢TUTIMELPIMIX]+JAREPIMIX04}3 
WHILE ee oe T4eT4+CLOck+P(RTR 3 


Trash RTADS GO TO INITIATES 
re eee bad TO INITIATES 
a "a DAY: “ 


END} 
GO TO INITIATES 
RN SPECIFIC ARRAY | 
ARTNCNOTOI¢1)F x REMOVE 1 OLM ARRAY 
| TeLALTL CCF IE REMOVE FROM ALT 
F NOTCALT©PRICPLMIx,61)sC211] THEN MAKEPRE 
Jo« AITCOJS T # NO,ECFIS 
FOR Lei STEP 1 UNTIL Joi OU 
_If AITCLJ.(18315]=1 THEN 
ae He GIN MOVECJ* TP CATTLE isis i#CALTLL))¢ V0 ENDS 
AMEE Js CFE IAT Hes ATTEOR . ee gOURIed) 


acta Te 
WHEN 


KePCRTRI<Tg 00. 


IF NOT ad,C2!1) THEN MAKEPRESENTONFLAGCNOT O INX (14)))3 
NX NOT O13 JemMCaS INX NOT 1]3 
Ree TieqOR). <3 


18700500 
A7C06 


18700700 


18700800 


18%00900 | 


18701000 
18701100 
18701200 


18401300 
latotaco 


B7O 
18701600 
18701700 

8701800 
18701900 


18702000. 


AF02900 
18702300 
18710900 

8% 404,00 


“487140200 
~ 18740300. 
8740400 


18740500 
18710600 
8710700 


48740800. 
ba7s090g: 


U0 
19711100 
ee 


. 18711400 7 
18711500 7 


18711700 
18711800 


18720100. 
16720200 7 
-TaT20700 + 6 

18720400 


" 


4-4 


ae 4+ AA a a 


14 


18720500 


00 
18720700 T  OOFatt 
“tn7eog00 yo $ 


: ee 


000010 


000010 


Oo0cto 
000016 - 


0000t0 
000080 
00000 


“e000! 


 g006ta 


000010 
000030 


000040 


000040 
000080 
000010 
002830 
002882 
Oo2est 


003110... 


00391; 
O04ato 
0043!%0 
0044 
0045%3 


ee 


DO5083 


Oost ta. 
(005813 


0060!3 
006083 
0 $ 


18721000 T 


18730000 


18740000 


18740;00 


DIV CNT3€JARCPLMAITX28))+10]*+NTL MOD NT3 
SLSE DALUCEPIMIXsNTY C3361 4P (DUP WA) +NT 
DISKWAITCHAS ef CFJANT2014)3 
MCAS INX NOT Ole*Pc, 1)3 

F NO C¥P 2 : neh 

GO TO INITIATes 


18740700 


3 0A 00 


18740900 


‘18741000 
8741400. 


18741200 


| 


0115380 
011920 
O126ty 
012682 
01208: 

0133%14 


Data Vocuments/ inc. 


a 9 cH ~ 
g 5 5 8 3 3 oS > S 


a4 


% PLAIN ZIP 18750000 013383 
C8t ZIPPERCRSeR4s0)3 8750100 0133! 
- GO TO INITIATES’. 18750200 0135%0 
% BREAKOUT ee , | 18760000 013542 
C123 " 607400 013525 
$ SET OMIT = NOTCBREAKOUT) 18760200 0135%2 
GO TO INITCLATES 18760500 014522 
% CUBOL 1/0 ERRUR A770000 0136'0 
C17t ASewASS ACPRICPLIMIXs 377 Te"I/Q ERR"S 16770;00 T 013610 
IF ASC51.C1%1) THEN. g : 18770200 013982 
BEGIN 133 "INVALIDS Sts" USER"S R6O'"1 END ELSE B770300 O,4ota 
STREAMCR4sN©CJI)+ BEGIN SI*LOc Ras DI*DI +43 DS*7 DECS 18770400 0143%4 
Ol*DI973 pSe5 FILL: 16770500 Claas 
2 OA0O 0 ° 
FILEMESS(T4RO(1: a7 ti1,d att eastaT, CiZti1] 15 aT +1), 18770700 7 O449t2 
IF. R4¢(R4216 QR R4S17 GR R4e82) THEN R8 ELSE O» 16770800 7 015410 
F_ Ra. N_R7- ELSE 050)3 8770900 at 3 
GO TO INITIATE 18771000 
TAPE SWAP FOR TAPE SORT 18780000 
SLEEPCENSLIJI,TOMASK D3 SLEEPCLNATS LOMASK)3 8780400 
FOR Ie3 STEP 1 UNTIL. 4 DO. SP oe | 18780200 
BEGIN. eaena t33tiSleN4C 1); ae . - 18780300 
MENG INX NOT Lje¢*PC DUP) I&NSC3 43329 38(N50393033%233%35 18780400 
ENDS . 18780500 
ATN4S(OJS ALSJ,0398A}e2$ AL16}¢03 AL1IBJ*NABS(ePCDUP))3 18780600 
NT4¢AC10) 063215) Acl10],(3%145)«03 18780700 
AGNSLOTS al 7493 ACLO JENFLAGCNSESI)3 ACLB Je ABSC HP (DUP) )5 : 18760800 7 0186%2 
AC1O]. cao 18760900 7 O0494%2 
ts7si000 t 01974 


Aa esta ah 


4-4 


SORT STORAGE ASSIGNMENT 18790000 019782. 
AO THEGE DOE RCE CG aN 2r er jee TARO CRE SO TAO? $87 90190 019789 


“NALO]eAS a ee pared seo 020683. 
TF NOT CONQUER (OsRS #1 +R61, Nx Ae) THEN ae - 187904800 7, 0205%3 

Ne TSPA CALS 2 : a7 90600 O27091f : 
STAEANCP1MIXaT CaSxRGs ke 1eSPACE (TAN; 18790600 O210%2 
BEGIN DSeLIT "#"5 SIeLOC PIMIx3 . 18790700 021433 
DS¢+?2 O p_OS¢ 1: _" NO SORT MEMS"; [8790800 _Q ime 
OeRs hake ‘GSe9 uit ee Ee 18790900 7 Ogi7t1 

2 Hh eS 18791000 - Gar9te 

SF TET) . Be pe : R791300 7. : 
REPLYIPIMT RITES VHYEVORC aeTEo? SIAVOUT3O1BZ167} 18791200 022010 
COMPLEXSLEEPCREPLYCPIMIxX1>9 OR TERMIXe CCF JSPIMIX)3 18791300 0223t2 


18571000 ACCIDENTAL ENTRY AT P4MIX 
- ER VERMIER, TMIK THEN GO TO INITIATED ~ 48791400 029082 
rh Kraetae e4¥Ou 30142160) THEN GO TO Casas | 46791500 023283 
SP SREPLYLPIMIXA Ci (OUR ee ' 8791400 7. 023610. 
GO TO Cais | 18791700 0238!0 
END} | | 18791300 
GO TO INITIATES 7 | goss 18791900 
3 “a 5 RT eT ree aga ap oo eA OOad 


FORGE TSPACECN4S[O1)3 NulO]¢0; 8800300 rt 024580 


Data Documents/Inc. 


Ae 


A) 


SoS EBS S max 53 =. 


Gf & F FR zs s 


a 


GO TO INITIATES 
RETURN OLO COPY OF QwN ARRAY 


C258 ARTNCAS»RADS 


* 


263% 


MCAS. CFF IICACPRTCPIMIX,17)8PE 4A5 6002018116115) 
FA ath) THEN MEAs CEILI eCCrI¢AS Fi3 
GO JO INISIATES 
INVALID ARGUMENTS TO ALGOL INTRINSICS 

(1 ¢ R4)20 THEN 
STREAMCA @Ras Le TeGETSPACE (102000) 42)3 
BEGIN. SteLoc 1s SleSTe1s OSeL IT en; 

‘@3 THEN DS¢ IT *MAXN"™ 


IF Sc<e2 THEN 05¢5 LIT "NEGTV" ELSE OSe4 LIT “ZERO”; | 


DS¢g LIT ” ARGMAT "3 
Cle I +A; 
GO LOG3 GO ROOTs GO LoGs GO EXP3 GO SIN} 
DS*3 Lit "COS"3 GO EXITS 
6g _ 


OG? DS*2 L417 LUN" 


RUOT? DS*4 LIT "SQRT"S GU EXIT3 
EXP: OS¢*3 LIT "EXP"; GO EXIT; 
“J Ng -D e wen Nits 
EXIT? OS¢2 LIT "#3 
ENDS - oe ; 
= Ce HE . 2 OR OL NV A ’ NDE X 


BEGIN 
Ry « R93 R45 « RG 


So ee 


TERMINATE CPIMIX)3 TERMINALMESSAGEC@I)5- 

CO MMEN OMMUN 7 PRO DES GR S hed A 08 ¢ 
ANU/OR SPOUTING A MESSAGE ABYUT A PROGRAM, 
Ra 1S USED TO SPECIFY THE MESSAGE REQUIRED, 
R SEI TQ TR VE SPE C S_ M LX 15 TQ 3 S"F0 


: , REMAINING VART ABLES MaY ge USED AS DESIRED; 
+ 99590) +2 
Ip R4 §$ 2 “THEN 
BEGINS B 29e4 
STREAM(J3T)3 


BEGIN % 29°2 
DS * 9 LIT "DEC ERR I" 5 
Joe O13 


END % 2972 
J ¢ P3 ; 
IF R47} THEN 
BEGIN: | x -29"3 : 
_STREANCT1¢ ¢R6<01,RO+ABSCROD/J25 
BEGIN... & 29"4° 


D°«17 Lit "ARRAY DIMENSTON= wFTTCD * 11 
3S] ¢« LOC R63 


Wats 3 


DS ¢ 8 DECS vy «bUT3 
a oe Se 
O08 e 7 FILLS OL e ys 
QSee 2b rtm emp 
END3 zB 294 
END % 2903 
ELSE 


oo BEGING | aoe oe 
_STREAN (Ror J pose 


ee ni ewer > 


18800490 


16810400 


18810200 


9810300 
16810400 
18820000 


RAO 0 


16820200 
18620300 


A820n00 
16820500 
18820600 

882070 
18820800 
18820900 

8821000 
18821490 
18821200 


18821400 
18821500 
AA AOD 
18821700 
148219800 


18422000 


166227400 | 


BR 3OO0 
18830 100 
18830209 

883030 
19830400 
18830500 

88304600 
18830709 
18830800 

8830900 


18831100 


18831200 


18831300 
18831400 
18831500 


“Feb 31600- 
18831700 
\8831800. 


18831900 
18832000 
18832100 
18832290 


16632300. 


19832400 
18832500 
18832600 
18832700 


18632600 
18633006 


186833100 


Se ee ee ee ie te i 


16631000. 


T 


4-4 


T 
t 


T 
T 


T 
t 


a4 


4 


Ae at at ts te 


4 AHA Aa 


024632 
O; 3Q 
0247.40 


024811 


O25212 
025811 
025833 
O25 nt 
026084 


026313 


O26 t 

026684 
026833 
0270%0 


Q27012_— 


027413 
O27at: 


O273t2 
0274292 
ey 3 
027644 
027693 
op* O 
0278!0 
0278%2 

t 


028033 


oe 


028310 
028340 
028340 
028340 
0283%0 


eS s: TS = max 3 


Data Vocumentssinc. 
Bs 


ES 


An a 


oor ananr wn = 


Ae A ee 


18791300 


ES & 


IF RU 4 THEN STREAM(T 3 BEGIN, | 


“IF R433 THEN 


BEGIN 


a 


ENDS 


END; 


IF 


R5 THEN 
TERMI 
TERMI 


Slo ¢ LOC R63 
oS « 8 DEC; J ¢ OF3 
DI « O16; 
OS « 7 FILLS. DE * U3 
)5 « To ef: 

3 


BEGIN. 
ee 18 LIT "=MAXN ARGMNT EXP 3e"3 


a9= 
NATECPIMIX)? 
NALMESSAGEC*T 3 > 


Sa se ar ND a Bc ee Oat a I ee 
ELSE 


ACCIDENTAL 


SPOUTCT)3 


TO 


INITIATES __ 
C38%!t. % RETURN STORAGE AND AUXILIARY MEMORY FOR CODE UR DATA SEGyENT 

IF A&.C104) THEN % CODE SEGMENT 
BEGIN A. © PRICPIMIXe «33 7. NF 


DO IF Ts 
IF T, 


UNTIL I 
ADNEY . 


ENTRY AT 1 


ae iF ‘HEN 
BEGIN MCJ}e C333]¢73 ZMARK AS WREAD®ONLY "9 


% OF Coo 
= Re 


s 


DORLO).1L3? ait 25 


AGCAS & Cye#O (5352 
TeCFF) ELSE 
TeC7341] ELSE 
NFLAGCACT,C7#11])) 


C534] THEN I ¢ 
C6%1) THEN I «© 
¢€ 


#0} 
Tt paler ana 


341] 7 
COMPLEXSLEEPC (NOT ADDREOJ. C3%1)))3 


ON THE hon NOT TOUCH” FLAG FOR 


Me oe "ENTRANT PRESENCE*BIT PRO ECTIONS 
TF NO STORED HEN SLEEPC(CTOGLEJ» STQREMASK); 
LOCKTOGCSTOREMASK )3 
If (1 ¢ (T «¢ ADDR(O}), £FFI)21023 THEN % PRESENT 
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ee 0@©@ @ @6hU<CrhmhC—C~CMHhC—<C~MDFehéC<C ]:C 
(“ies 3 aE. Be Ss 


| 
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MCT NX NOT O01 ¢ ¢#PC(DUP)) & CCL*PCDUP),CFFI) OR 1)CCTFIS 18844400 T 037843 @ 
B tL x iO 
PCOLAY ET: CCF I1"2))3 18844600 7¢ oaga3% aon 
$ Ser OMIT = NOT DEBUGGING) 1B844700 r 038810 1@ 
DF RuUS+0O0 3 O3aaie 3 
END ELSE AITL+(C]el, Ter}= 151: 18845200 T 038884 : 
IF I1>541 THEN ULSKRINC I» TeL83101)3 18845300 T 039480 |@ 
M(Jj_¢ AG(TAU(2242%o ] gall T i ee aes 03931 ‘ 
UNLOCK TO! TOREMASK)3. aedasscy’s 039780 ~ 7 
gO TO INE 7 18845600 7 O400t2 /@ 
EE TURN oon RASOOOOC O40 tO ; 3 
ARTN(NG[OJ*R5)3 % KETURN R5 DIM ARRAY 18850100 T 040430 
GO TO C3A;. k TO REMOVE FROM ALT 18850200 + 040210 1@ 
g]_¢ FLAGCRA)IZOONE C AT_END RRUPTER INTRIN BA6000 Qudet 
MIXSTSKY, DUP,»LOD. O FFX XH, STD)3 18860100 + 0405t0 i 
oo TATED | 18860200 T duydato je 
BON MP HWP OR TRACE OM Lt NI RIN ‘1R870000 ~O4608 15) 
Cuar x _ 186870400 T O40gts by 
$ SET OMIT = NOTCOUMP OR DEBUGGING) 18870200 T 040@ta @ 
N A bs Dae as See 3 18 
ENO OF COMMUNICATE O) ae 18672000 T O409ta — SF by 
| 58 vit  SEZES 0410 WORDS 2 @ 
PRO nURE: HORT COMMUN 9500000 OoOntrO: ase a1 
START OF REL SEGMENT? DISK ADDRESS » 27 
BEGIN REAL R4=™yeR5="*5eROE"6eR/E"7eRBS*HeROS"YS % (SHM) 19501000 T 0000%0 @ 
NIEGER [4s=4,15s"5,]os63 woot 19502000 T 0000%0 2 
ARRAY Agm@al* Je A5e™504),5 Aowmore ls . ‘ 19503000 T O000!0 - 2g 
ARRAY A7Be7(C¥)3 a 19504000 7 O0000t0 2 @ 
NAME Naze sNS=™5sNOseG 3 salons 19805000 DN0OtO 2 
L ABEL Gs civ Cee Cis Gas CS cor CTs CBs 57 C1OP CLP IBY CLI GLE ETE 19506000 T Od000!0 28 
CLO 6 C17 C18 4C194CZ0%C21 C22 6623 C24 C25 C26 27 C28, , 195079000 T o000t0 | @ 
29» ¢30*C3)* C32" 34? 34? pda? C36? 37+ C38» 39* C40» 4yecdarc43ec4a 9508000 Tt 0000!0 30 
sC4OsSLeoTW) 19508010 + O000%0 a1 
SWITCH CUBSLs THs Cos TH SL c52 TWeT C9 C102C14> THA C13>CL4> 19511000 T On000!0 a @ 
LaShoT Welle sC19sT WoT woTWeC23eCedsTWeTWsC2? eC28, _ 19512000 T 000080 3 
ret PUaze Sle Sls C 34% 359°C 369C 37+ TWs TWeCHOeC ays 19513000 T dQ000!0 é 
C42rCH3sC44sSi »CHO% TW TW SL 19513010 7 000010 39 @ 
DEFINE CNSOIFFCOM#; 19515000 J 000080 : 
LABEL ACO,ACL»ACZ RAGS »ACUACSS 9547 008. T 37 
SWITCH | AC 6 ACOPAC PAG 2+ AC aP AC APACS) 100 T a @ 
ARRAY ALTC*]: REAL AITL&AITS ARRAY AsAIT(*)3 19520000 0000!0 49 
ARRAY FIBSAITL*]+F PBC eJshL ¥)$LABEL CHANGENAME; 19531000 000080 «|@ 
NAME ADDKS oN 95220 2 
2 ZT ERET GREP SB)F3 = ot 0000 ion is 
‘ $%, Tic@o00tg™ 4@ 
CIF UP. MIX, 9)> DUP : <0 THE NOP cde 195: 0006 es as 
BEG N PCDEL)$ TERMINATECPIMIX)3 TERMINALMESSAGECB ? ENDS 1 200 + 46 
GO TO clP)3 19526000 T 001080 | @] 
P¢sCOMMUNICATE1)$ GO DIFFCOMS 19526100 003533 F 
EO). S505, ay i 
sq @ 
RETURN SPECIFIC ARRAY ipsa3000” 004010 5 
EOJ | 19552000 T 004010 :1@ 
P{,COM5)4 GO TO CNS 19553000 004030 5 
1@ 
19565000 T 004083 
oe @ 


C10% P(.ASR)$ GO TG CN 19566000 1 004083 @ 


NC N 9547000 O00 


Ciit | % (SHM) 19568000 7 004412 
IF R4eQ” THEN FILEOPENCO» AS, CFI)3 % (SHM) 19969900 Tt doa,tea 
Riwé : : a Stel * HoO00 | -OGoanats 
BEGIN F ILECLOSECNFLAG(AS))3 GO TO INITIATE ENDS 19571000 T O0045%4 
IF ae THEN 19572900 T aga? te 
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TERMINATE(PIMIX)33% 19680400 T chee 
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C35%8 JF R4 CFF) LEG 33 THEN PCeLIBRARYDUMP 9681000 O11734 
GG a ROSE ER: RastPF] LEQ 35 THEN PCslLIBRARYLOAD) 19681100 T O4;2080 © 
e : : ELSE PC LIBRARYZERO)3 - 19681200 T O122t2 
C3633 % TYPE 19 DATACOM J/N INTERFACE 19683000 7 042313 
® $ SET OMIT = DATACOM 19683499 7 042410 
Q TO IN LT IAT SG 6 rages 8 the Settee Sie 9683500 012480 
“$ POP OMIT” oe 19683501 T Oeste 
@ $ SET omit a NOT COATACOM > 19684000 T 042412 
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; BEGIN MER5 oLCFJ3?*PRNTABLELRS « UFFJ]360 INIT TAEVEND ELSE 196865350 T 044434 
@, IF RSeCCFI#O THEN 19685360 T O14@tO 
BEGIN LINKUPCROsR52=R5 J)3 : 968 01493 
SURERCENEAB AT yEI DOCU RO GROCERADO TE GO Uday “yoeas 980 + O15201 
@} END ELSE. es 19685390 T 915413 
os R5..£15245)20 - 00s 
"BEGIN 19685410 T ter 
@ $ SET OMIT = NOTCDAIACOM ) 19685419 T 045883 
: $ SET OMIT = DATACUM 9685429 01583 
oe  MERS DB EQS 19685430 T 
@ $ POP OMIT. 19685431 7 
: POP age NT aE 9685440 T 
ENO ELSE "$9685450 T 
@ IF R5S,CEFI=C77777 THEN 19685452 T 
BEGIN MER51sMU0310S5 GO INITIATES ENO SEUSE 19685456 7 O16 
: “BEGIN INDEPENDENTRU Hisie CPV OR ie INES 91286)) SLEEP COMCRS) 191) 19685460 7 O4465t2 
on. cae 80 RETURNS es: 19685470. 7 O70, 
“ ENDS» 549685980 7 04703 
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H #¢ PRTCPIMIX*® TSX]3 % SET TASK ATTRIBUTES 19685570 T 017333 
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% PROCESS» CALus OR RUNZEXECUTE STATEMENT» OR MANIPULATES LOCKS Soa 196871320 7 000030 ® 
% OR ALGOLJs QL MENT O (WORD ¢ = 948 OQ oFoKe¥on He 
% ITS CODE FILE AS HAVING A TASK ARRAY, 19687150 7 d000t0 
% THe FORMAT OF THE TASK ARRAY (MYSELF AT LA 18. AS FOLLOWS 19687200 T 000080 
; ‘TSKaloi ee ASKVALUE £ PROV U Wi U rR 9687 300 ‘ 000020 
% TSKACLI = 7 CHR MFID OF cone FILE 19687400 T O000t0 
% TSKAL2) = 7 CHR FIO OF CUDE FILE 19687500 T 000030 
% TSKAC 3] = STATUSS 1aSCHEDULED 19687600 T 000030 
% Hie 2aACTIVE — 19687610 T OOddtO 
x wi sTERWINATED (OS® ED UR EQy) . (19687650 T 000040 
x. eek - @2s INITIATION A EMPTE i) AILepD QG6R7480 TT. -O000t6. 
z TSKAC4] = STACKNOS MIX INDEX IF RUNNING 19687700 7 000080 
% SCHEDULE"ID IF ScREDULED 19687750 T 9200080 
% TSKALS] sHEAD OF LIST OF LOCK@ITEMS IN CONTRUL OR QUYEVED 19687780 T 000030 
Lg TSKA(6] ~~ @ TYPE? OMASYNCHRONQUS DEPENDENT (PROCESS) 19687800 T OoodtO 
7 Sa pda DEPENDENT eye A Schade beter te 
% TSKAC7) = CaLL STATES OF INITIAL 19687860 000010 
% 1= EXIT PROGRAM/ 19687870 00a0t0 
% -X1T PROGRAM RETURN HERE = 9687a72 T 0000%0 
x a : ea 2sCONTINUED OR ead tle 0) . 19687874 7+. QO00tO . 
x TSKacal : citayey. on EXECUTED INTERRUPTER INTRINSC 19687876 T ooegt} 


E NUN F : 96AR7? RB . oom." * 
IFF SCiNtS 1S NON# EMPTY 19687880 000080 
IFF INTERKUPTER PATEENS TS : RUNNING 19687862 00000 
SFINTG INTERLOCK BIT (ON TO START) 
J = ABSOLUTE ADORESS OF OLD IRCW ioea7gaa 
UCR) HEAD OF LEST QF DECLARED INTERRUPTS 19687885 
SEGMENT 9 FOR IPC PROGRAM. oe 9687886 T 0 
sC2},l231) =1 TF THERE ARE DECLARED INTERRUPTS 19687887. 000080 
$£2),03%1] = 4 FOR AN He PROGRAM FILE 19687888 ponore 


Star tae) vr W : “19687890 ogo O” 
st2), Canny & Janta 59995 TARLAY rer 19667892 7. ooa0to 
THAT THIS JOB MAY HAVE DEPENDENT TASK OgSCEN "1 ) 9687A9! 
OR €9"ED AND LOCK QUEUES TO BE CLEANED UP re iT TEAR AATES: 19687846 “000080 
$fa] None ee OF Riedy PARAMETERS 10 BE RECEIVED 19687898 0000t0 
£7900 
19687910 7. 0000t0 
19687920 T 000010. 


stg) 
FORMAT OF Entey 1 
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Goo Fos 2 sss TSF FE SSESsSESSE SEE GEASS SUS FES! 
eR he aerrine be 


EVENT/LOCK. 19607945 0000380 
PR : 
% ae cele. 19687945 T O0O0fO . 
x aa lees aed: $ Ey ARRAY 19687950 T 000010. 
% CONLY T=DIWENSTOWAL ARRAYS CAN BE PASSED AS TASK PARAMETERS). 19687957 T 0000%0 
% f6t40] t SIZE = S]Z— OF ARRAY FOR TYPES 4 AND 5 ELSE 0 19687960 7 000080 
% £33415] 3 LOCATION “PRT LOCATION FOR TYPES owas FOR TYPE 5! 1968796 000080 
= ke : ATTY ADORESS OF TY¥pe"2 SEGMENT $9487970 t Od00010 
a oO 3 TASK PARAMETERS : Le6a7o75 7  QOd0!0 
. BS FL Sick AND THOSE SPecIrlep pY _  196eter? To 000010. 
% THE Fe CELLS SEE BELGwW).+ LACK OF AGREEMENT EITHER DS*ES THE PARENT 19687980 y+ 000080 
—~% OR CaUSES a 1 TO BE RETURNED CIN THE CASE OF aA COBOL PROGRAM WHICH 19687982 T O00010 
x CONTAINS AN "ON EXCEPTION" CLAUSE) (eee T__000010 
—& Fisk TE F WUE. PAPAMETERDS INTO” Ooodto 
2 SEGMENTS, THE JOB Lo 
| ENTEREO IN THE gar oo0cto 
% TASK ARRAY, THE NEW SHEET ENTRY IS FLAGGED A GO JOB CAS FROM A 19687998 T OC0OtO 
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% COMPILE"AND=G0). 19687999 T 000080 @ 
BEGIN | este oie GBH ONG “7 0O00 Fo 
REAL MF IO=“qeF 10895, «= % FILE 1D OF CODE FILE TO BE INVOKED 19688050 T 000010 eye 
a Sadia ten ithe K MFIO<O IF ON EXCEPTION CLAUSE IS PRESENT 19688060 T O00080 | |@ 
wo & FIlOQ<9 JF CALL OR CONTINUE STATEMEN 9688070 T O000t0 = 3 
N=~63 % NUMBER OF F- PARAMS BETWEEN F"7 AND MKSCH 19689000 T O000t0 ‘ 
% THERE WILL BE A PAIR OF Fe CELLS FUR 19689010 T OQV0t0 ' |@ 
% aChH TASK PARAMETER, F(el] ONTAINS 96890¢ Q000%0 8 
Ts THE NAME’ OR VALUE OF THE PARAMETER, 19689930 T OO00t0 ? 
B®  -FE™C 119) CONTAINS THE TYPE 19689040 T OOvotO 1@ 
% CAS IN SEGMENT 0), 9689050 090080 8 
% (TSKA [S THE FIRST TASK PARAMETER) 196890600 T 000080 
% NSO IF CONTINUE STATEMENT 19689070 T O000t0 @ 
ARRAY NAME PARM3 ae 9691000 000010 
ARRAY SCedeRewJeHCedeDUwJeWl*)> 19692000 T 000080 
TSkARe 70H] OR TASK ARRAY DESCRIPTOR FUR PROCESS» CALL 19692100 T o000t0 @ 
: 1 % INTEGER = TASK ARRAY LENGTH FOR RUA 19692200 oo00t0 is 
REAL Tolle T2°T39T4>ONEXCEPTIUNS CALLEDURCONT? 1969300G 1 O000%0 
VARRAY? [00s LOD Le NR» SRe HADDROPRIRLUCSPRISZ*ERR® SLeS19CReP RIS; 19694000 T O0000:0 718 
ABEL Lis ERROR» NEXTROWsL2,XYTS 19695000 7 00003 na 
INTEGER PADOR*ADORS | 19696000 T O000%0 fs 
DEFINE CONTINUED @ VARRAY#) Savesty s 100183 19696500 y 000080 1 @ 


ONEXCEPT * MPF ID<O3 MF IO ABSCMEID) ; 19696400 T OcoQtD 2 


8 a * s 2 « . An ee a 5 an Se Th =: ~ > 
oh Ss > & Q oe & a 
= ‘ Tange : ? 


PALLEGRC ONT « FIp<0; F1D « Ce 19696700 T 000934 23 
CONTINUED ¢ N<Q3 N © ABS(N)S 19696800 T O011%2 3 @ 
; 124 
IF CALLEDORCONT THEN %® CALL OR CONTINUE STATEMENT 19697200 T O014%2 29 
BEGIN IF CONTINUED THEN IF TSKAC32#2 OR TSK alTI#4 THEN 19697300 T Oo14t3 | @ 
i ie » i : AR ¢ ; fe 2 ALE : aa a 31) x OVP GEO TF .. OF . : : 2 
ENDS 19697500 T O021%y Bi 
IF Teh el aise THEN F TSKACT J #1 THEN 19697600 7+ O02184 1@ 
SKAC7Z] ¢« 23 GO XYTS 069 09 0Q : ha 
= TEND ELSE ELSE “TSRAEPD + 03 19697800 7 0026%0 | . 
ENDS ee : 19697900 tT O028%4 1 @ 
Ths ECTOR YSE AR HOME Losf 1p Q. 64 TH 9698000 Oogal 33 
BEGIN ‘Z PSE CURT TYCHECK CRF IO F IDs USERCODELPMIX]sT)#0 THEN 19699000 T 003082 
Lit BEGIN ERR « 13 19700000 T 0033%4 @ 
IF T GEQ 64 THEN FORGETSPACE(T)3 19700500 003432 36 
GQ ERROR: cee 19701000 T O036%2 
END3 one : ; lo?o209000 T.. 003780 
: If MOT INX “Wet 982dK3 THEN. GO Lis ¥ NOT EXECUTABLE cUDE 19703000 7 O037!0 
EXD ELSE GO L13 19704000 1 
IF TSKA.PBIT TREN JF TSKAC3]21 THEN GO L43 19704100 T 
S ¢ cHCGETSPACE(20,2/0#213430104381101) 49705000 T 
& READ SEGMENT ZERO INTO $ ee at ee 49706000 T. 
Ne DIERNATEGASSEGEG/304MCTs TNX 40303 SSPOEGOR T 
JEN i 


~SCBAIAN THEN 
FORGETSPACE(S)3 
GO Lis 


Let acatn 
END3 ’ 3 
TW © EMEGETSPACECTSON DIV Eel s2rO 1423 TeTSTe 
x READ. IPC PARAMETER DESCRIPTION SE NT. 
DESK t AsT3 2 ADO 


ety (Show ET INK SELES + (t2 MOD 
FOR Tl © 2 STEP 2 UNTIL N OU 
IF sell EES eek ae ah ae THEN 


SRD} 


~TO71 8000 


19710000 
19711000 


19741200 1 
19711300. 


19711400 


19713000 fT 
19714900 
forse yO 


19709000 
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a * ° a * zy y A > TK = Th By gy x : 


Bele nea 


R « eed ete et eA Ee 

DISKWAITC(*Re LCF J sSC3)sFADOR © MET JINX PR 
OIV SR))J + CPRTS MOD SRID3 seratsoe tT 
FOR Th ¢ 8: STEF 2 ebb N 00 19722000 


NC &. #H % PA RY" ARRA Lenene 


PARMCNOTCTI = i ¢ wETl DIV 2)eLCF]3 & RELATIVE DISK LUCA= 19724000 
VARRAY « VARRAY413 % TION OF TYPE*2 SEG 19725000 


00830 
oos7s3 


BEGIN 


RCWETL°DIV B2),.CcrI) «- EP ARM (NOT (Ti>2) 1393 PLACE NAME 16827000 


oo ~ @ OO = WH = 


PARWENOTC TAAL) DF SEDEETTS % OR VALUE EN PRT “$9728000 7 0: = oil l@ 
ENDS. 5759000 7 gio. 
9 % BUILD HEADER FOR NEW CUDE FILE IN H 1973000C 
u H « CMCGETSPACE (307220) +2) 1830[8138310]3 19731000 010513 1@ 


V QeT_ [NX QO? Ch: 9732000 1 10989 _ 
Hlel # HES] « HE6] « OF en 19733000 T 011133 
TA © MCT OINX 92 604335)043 19733400 T 0115%0 
WHILE MCT _INX CLO+NR)J#0 AND NRST4 CO NR ¢ NR413 3 NR = g ROWS 10733400 of Lala 


T4 © NRO; | 19734000 T 042580 
HL4),£46:20] © 0; 19735000 012681 "\@ 
« NR: pe teat Ot . a0 
“FOR Tl ¢ 10 STEP 1 UNTIL 74 DO HUTI) © GETUSERDISK(SR): 19736000 ot3086 


HADDR «+ GETESPOISKs. 


19737000 04354 
013968 


DISKIOCIONDsSH INX Om 1,30 *HADOR ; lee Su Se ee ______-19738000 - 

CR « SC7),{fFF]3 % SAVE COKE REQ, 19739000 013910 
PRTRLOC ¢ PRTS DIV SR} * ROW PRT IS LOCATED IN 19740000 014083 23@ 
PADDR ¢(PRTS MOD SR)3 % WHICH SEGMENT IN RO 9741000 01 42to 

PRTSZ #€(S(3)429) DIV 30)3 % NUMBER OF SEGMENTS IT OCCUPIES 49742000 014334 


SLEEPCCLIOD) *TOMASK) 3. 19743900 — Mistake 


# 5R* ee ONO. OF Secs o744 03463 
FUR Tl © 10 STEP 1 UNTIL T4 DO & COPY CODE FILE CHANGING FRT & 19745000 T O1aEto 
BFGIN IF VARRAY>O THEN & pase Bye VaLUE TYPE™2 SEGMENTS 19746000 T r3@ 


FUR Té ¢ é STEE- z 


19748000 T 045: _ 
19748050 7 O15att | /@ 


; 2d 8. 0. 
D ¢ PARMUNOTCT2= "2313 19749950 


ps} | ADDR ¢ (PARMCNOTCT2"1)) MOD SR)3% SEG NOeIN ROW 19750000 @ 
VARRAY ¢ VARRAY=13 9751000 , 
T3 ¢ 0; | 19751100. 
: WHILE T3$83. D0 19752000 b® 
; BEGIN IF (T1°10)"PRTRLOC AND T3*PADDR THEN 19753000 fs 
BEGIN DISKWAITCR,CCFI»PRTISZx30* HL T1]+PAQDR)3 19753400 
T3 © T34PRTSZ}3 | 19753200 |@ 


19753300 


END ElLSe IF 1 ADDR THEN 
EGIN WH VPS: 49754000 a ag 
ENTCCO] INX 023 19754, 7 4@ 

NX NOT 1).029123 88200 7 017910 es 


19759000 
19760400 


DISKWAITC*S,{CFJ*+30oM(T INX T4]4T 323 
If T1=10 THEN al THEN 


AG . ECP: = ‘east 
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ELS eae 


@ 
@ ENDS 19762000 T 021230 
-XTROW, ‘ 0 H 
: - ENDS 19764000 T 021340 
ee 4 IML O)3PRTRLO! HEN. & PRT IS: IN TH ROW - O7A7000 T -OB1L54 
BEGIN 19767050 T O216!2 
® 13 « 03 ; 19767100 tT O21780 
3s 976 6 H 
BEGIN TF ‘TA‘PADDR THEN 19767200 7 021910 
@ eh Sheba ot DISKWALTC=S (CF2» 30¢MtT INX AE Ge T Ae 
: THEN OTH ¢ “ae i geati. 
DISKWAIT(S, PR OPTERCLESTR 19767300 T O22aoty 
rae T3 ¢ T3413 19767305 T 023280 
END 976 0 0 
a “BEGIN ‘ pISKWAITCR, CCRIsPRISZx30+HETII+PADOR)S 19767320 T O233%4 
@ 4: : eet ad TR4PRISZS 19767340 7 0237130 
SEND 49767350 TT. -O23814 : 
ENDS 19767370 7+ O0238%4 
e GO TO NEXTROWS 19767380 T 023873 
NOS 93 
ao PR: 13. ¢ Q STEP 1 UNTIL Si 00° % WRITE OUT ROW UNCHANGED 19867400 T 023984 
@ |: BEGIN DISKWAITC*S. CCF I,30sMET INX Tea 19767450 T 024010 
Te T4340 THEN IF T380 THEN SC2).03%2] « 33 oe 9767460 024410 
P DISKAAIT(SeCCR Is 30sH(T1] 473); 19767500 T 024930 
@» ENDS 19767550 T 025143 
: NEXTROWS¢ _ 19767600 T 0254!0 
ze ENDS FORGET SPACES R)3 FORGETSPACECTI3. FORGETSPACECW); 19767659 y 025430 
@ Fs % BUILD. SHEET. riba resite IN S 19767700 T 025910 
2 TREAM(S)70EGT 30(oS + 6 n0")3 ENDS 19767750 + 025940 
‘ S{20] + CRs 19767760 T O262'0 
@? $€25) ¢ HADDR; 19767800 T 0263%4 
SLO] ¢ MFIDs _ _ = 9767900 02643 
i Stil * FID}. ae - 19766900 7. 026513 
@ -  $CaF # Stel + PRYORCPAMIXII 19768050 T 026740 
% WRITE OUT DUMMY CONTROL CARO FOR OGG ING ROUT INE 19768100 026912 
STREAMCMID*MFIDeF INF IDs T#CHl2I))3 19768200 T 026912 
oF BEGIN OS ¢« 11 LIT “CC EXECUTE "3 19768300 T 0274%0 
SI_¢ LOC MIbs Si ¢ si¢ls DS ¢ 7 CHRs 05 + LIT "/%3 19768400 7 027233 
S1¢ lOc Fip3 SI «+ Sieis hal © 7 CHRS 05 + OLIT “SEND "3 49768450 T O2rato 
er (08. +. 4 GIT " "5 me beTeeSCG. T 027593 
a ENO STREAM; 197685 tT. O277} 
HCO] © Of PgT enn T 027783 
) HEil * 103 19768650 7 027980 
S$(6) ¢ GETESPDISK & 10 LCTFI)3 19768700 T 02803 
; ~ PYSKWAITCM CChieiisSt6) INX OF. 19768750 7 028914 
om SLEEPCLTOGLE 1+ SHEET MASK )3 LaGKTo6¢SHEETWASK ) 19768900 7 O285 
. STREAMCACOIBEP(,SCHEDULETOS))3— 19768900 TT. 0290 
BEGIN SI+B3 19768950 T 0293%4 
@ 47¢SKIP SBS SKIP OOS TALLY*TALLY#13 19769000 7 
IF $B THEN BEGIN END ELSE JUMP OUT)S 19770000 YT 
4 FSET. ASTALLS Oe To?71000. 094. 
Or. a _ Bones 19772001 29a 
ed TiS poe he rh een eee 19773000 294 
52 SC23}e( 31317] CCLOCK+PCRTR)) DIV 60? 19774000 02972 
@ 5 SC21] ¢ SC12] + 5123 19775009 030140 
St16) ¢ SC17) «+ @3777777777773 19776000 030331 
HABOR GETESPOISKS oe ee  L97T7900.T 0306 
Or oo ae — AgTTBO 
SHEETCOI LFF I23 “497790 
e H{(29] © HADOR3 19780000 7 


® 
@ SR TCH Get I 30*°T2)3 19781000 t 031332 
V0 S A: Q) « HA BO 006 Q 
1 erie rs CFF] «¢ HADOR} 19783000 tT O318%1 
@ | ae + 08 19764000 7 32044 
3 i ; AT) BS O00 
: UNLUCKTOG( SHEE TMASK)+ F URGE TSPACE(S)3 FORGE TSPACECH)3 19786000 1 ETETE: 
@ | ERROR33 . 19787000 T 0329%0 
{6 KdsPBIT THEA O7AB000 032920 
7: BEGIN TSKAC3] « 17 3xERRs % STATUS! SCHEOULED OR ERROR 19¥91000.7. 033090 
eo. TFs NOT ERR THEN TSKALAD ¢ Th3 % SCHEDULE "ID 19792000 7 rere 
9 ; : : NDo 46 93000 oe) on 
10 IF ERR AND NOT UNEXCEPTION THEN TERMINATECPIMIX€94LCTFI) ELSE 19796000 T 0335%0 
eo PARMCNOTCN+1))] © ERRS & PLACE BOOLEAN IN WORD BELOW MKSCw FOR 19797000 Tt 033733 
2 *& ON EXCEPTION BRAN N cOBOL 9798000 6 03 
| | PCOIREC TORY SEARCHCNABS(MFID) oF 10113) 00EL 2X%CLOSE FORGET HEADER 19799900 tT O34q72 — 
@" IF NOT ERR THEN SELECTIONS oo 19799050. 0342%4 
ie _ XYTEE F. CALLEDGRCONT AND NOT ERR. THEN Si P SKALT Ca 979906 03441 
ne END TISKTASK3 rpaoca00 T 034834 
eo” SIZES 0349 
al PROCENURE PICKTHELOCKS plan tae 0900000 On00tO 
ae START OF REL SEGMENTS DISK ADORESS « 
r ce . BEGIN COMMENT THIS PROCEOYRE HANULES LOCKING/UNLOCKING OF 19900010 T Q000%O 
1 OCK™ITEMS FOR TASKING. IT ALSO HANDLES THE MAINTENANCE ___ 19900020 0000tO 
: OF A WATT QUEUE Awl PASSING CUNTRUL OF THE LOCK TO THE 19900030 1 0000%0 
3 FIRST PROCESS IN ThE WAIT QUEVE® AFTER IT HAS BEEN 199C0040 T 0000%0 
ae: RELEASED BY ANOTHER PROCESS» THE HEAD OF THE QUEUE I> 1990005 OOOO tO 
s THE LOCK*ITEM OF THE PROCESS CURRENTLY IN CONTROL ano 19900060 T Od000t0 
5 oil ENTRIES ARE MADE AT THE END @F THE QUEUES LOCK=ITEMS 19900070 7 O000%0 
§ ae ARE IN THE PRT AND HAVE THE FOLLOWING FORMATS 9900080 T. 0000!0 
s LL?1J=15 MEANS LUCKED(LOCK BITsORIGINAL ONLY) 19900090 fT O000%0 
2 C2t1]3,» IN CONTRUL (CONTROL BIT) 19900400 T 0000!0 
. 19900410 000030 


r3sijeis ORIGINAL LOCK*= ITEMCORTGINAL BIT) 
02 A COPY. : 

pasts QUEUE INTERLOCKCORIGINAL ONLY) 

COtLovsMIX INDEX UF PROGRAM IN CONTROLCORIGINAL) 


IN CONTROL OR IN WAIT QUEUESCCOPY) 
CiB#157SPOINTER TU NEXT PROCESS IN WAIT QUEUE? ELSE Y 
ESSPISTSPOINTER TO HEAD GF QUEUECORIGINAL) 
POINTER TO ORIGINAL LOCK*ITEM(COPY) 
_"LOCKPTR" IS THE PARAMETER PASSED AND HAS THE FORMAT! 
C181]#0» MEANS LOCK» ELSE UNLOCK 
L2t1i=1> "TEST LOCK BIT» LOCK IF UNLOCKED AND 


ESSSNSSRELATIVE: PRT ‘ADDRESS: oF LOck=1TEMs 
REAL LOCKPTRen4s 3PARAMETER ee | } 
REAL QeRs 
ARRAY AL#]: 
DEINE. DSED= (TERN IX CORISP{M]X)#» IMASK=@2O0000000Q000008S 
age = — TTT 
BEGIN We evieht3139 THEN. ACS. Te Vs iavEDT eS: 
1MIX, OTN 
“VESPRIL Ps MIXeVD C88 
Spa CPINIR PeTiOlTeLOCAPTR’ TNX 03 


a * * a y a G * a x. eS 3 


AS=PRTLPIMIXeTSXIS%TASK ARRAY 


19900140 
19900450 
19900160 
19900170 


19900210 
19900220 


19900240 


19900250 


O98 hOsb0O 


19900270 
19900280 

9900290 
19900300 
19900310 


o900 720 - 


19900330 
19900340 
9900360 


19900120. 
19900430 


19900;80 | 
19900190: 


tt Ht 


a4 


ee 


0000%0 


000010 
_000040 


0000ro 


000080 
900080 


0000!0 
0000%0 
000030 
000040 
Qa00!to 


eT LOLOLOR Bee 


00000 


000080 


0001%0 


000383 


19900370 7 OO14E 


19900395 


419900390 7. 0 


+ 


ests a 


wORDS 
00492 
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 -.--  -. - 5 8 ~ a: Sn <n le << 2 
i: > & e 5 Be } eS 5 & S - ; 


96 


Ip NOT MCS),C4iljJ THEN SLEEPCEOMCS)],-IMASK)3 
MrS], (421) 3=03 
IF LOCKPTReC2ti} THEN &TEST & LOCK. 


ce TF cy MESJ.C1¢47 THEN SUNLOCKED © 
; M 


SJPeNABSCMES)) a 2ST &P iM 33 Q 
MCV] S=(MCU) QR M)SOLCTFIS 
IF UZS THEN BEGIN MEU )ef8%10)+0;5 


oe END3 
a LOCKPTRisg3 
oo END. ELSE LOCKPTR3s43 
wee ia ce Pceuey) UR IMASKs 
PcXIT)s 
ENDS 


IF LOCKPTR GTR 0 THENZLOCK: 


Ip NOT MCU). t2%1) THENSNOT . CONTROL. 
BeGIN IF NOT MES) 147° THEN 
BEGIN MUS JP sNABS(wLS])UCCTCIEPIMIXLO? SBI 10); 
MCU]?=((*P(DUP)) OR M)&OCCTFIS 
IF v4s THEN BEGIN MCUJ,£C8%10)¢0;3 
me WINKITs 
ERD : 
BEGIN | 
Te=mMC5J) INX O3 
WHILE MCTJ+CFFI NEQ O DO Te2McT) E13 
MCT IJOCFRIPSU3 
MCU],C(FFIIS03 es 
Le TREN BEG mf Bi LO I16¢0 3... NK: 
MCS]3=(*P(DUP)) OR IMASK3 
COMPLEXSLEEPCOSED OR MCU ,(C2%11)5 


IF. woul. feta.) THEN. eae 
MES 3* CCH COUP) 2€PIMTx081304103) OR IMASKS 


ENDS 
EXD ELSE ELSE *UNLOCK 
BEGIN 1F mCSJ.C1#1) THEN S&L OCKED 

ide MreT#eMeS) yNX cables Os %TURN OFF CONTROL 

: IF ‘bea es 

BEGIN - 
AtEFRT EVI 
Rs=al5)3 
IF | NEQ CLPRT Cy? RII 2 
BEGIN : : 
ake ec CCF) NEG CEPATEVER DI INX 0) 00 


19900400 T 002521 
9 900G10 T 00298 
19900420 7 QoO32t1 
19900430 T. 0033170 
99004640 9, 00783 
19900450 T 003983 
19900455 T 004380 
990 ° we 
19900465 T 90480 
19900470 T Q048%O 
Bre erae 990048 .. OQ4Rs 
19900490 T 0051453 
19900500 T 005440 
ss ocheeul Este 19900510 00548 
19900520 T O054%4 
19900530 7 0055%0 
eA tot eae 99008640 7. 005743 
19900550 T 0059%2 
19900560 T 006440 
19900570 7 OO7013 — 
19900575 T OO72t0- 
a9 0 $0 
19900590 T 007230 
19900400 tT O0074%0 
eee ae Rea ae 99006 007620 
19900620 T OG8i!2 
19900630 T 008373 
eee 9900450 Oonato 
19900660 T OQ9,!0 
19900670 T 009384 
19900675 T 0101!0 
19990680 T 0102%2 
O90 KY ” O14 
19900700 7° 0406%2 
19900719 T 01062 
19900720 T 040840 
19900730 T 0110%0 
19900735 T 011540 
9900740. 04152 


su[S]el8tiole SKI 


Tr T Loteeliactoni 
BEGIN MU[TJ]*(#P(OUP)) OR M$ PCXIT) END 
ELSE MES]ISABS(WES1)3 


coe woe 
SaaS 


19900745 


’ o900R 


19900750 


19900758 
19900760 


19900780 
eaeies 


19900805 
19900810. 
19900820 
19900g30 
199008 40 


012282 


043041 
013784 
01. 


O116ty 
O119%2 
012012 
012310 


012792 
0429%2 
t 


te 


OL4ite. 


O14ers 


499008 
19900870 


T 


SECT is 
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Per z3 an Se sa ~ 


PROCEDURE EVENTANDINIERKUPT, 


BEGIN wey s Koad 
REAL TYPES t 4s RX TYPES JSATTA NTERRUPT CAT REL eADDR Reb INT) 
RELINTS*5» & Ta EVENT CAT ABSOLUTE ADDR ABSEVT) 
ABSEVT="63 4 Z=DETACH INTERRUPT (AT REL ADDR RELINT) 
& 3sCAUSE EVENT CAT ABSOLUTE ADDR ABSEVT) 
REAL Ke TeAsSIZEaMI Xs de 1PABSOLD SIS. : 


LABEL ATTACHL > DETACH» CAUSEL* ONE L AeL2+.3eL49 DONES 
SWITCH & © ATTACHL sDETACHL »CAUSEL; 
ARRAY SFINT@C¥J*TSKAL HIS 
NAME BIGGER; 
DEFINE IMASK = €2000000000CCO0OR»EMA SK = @ 00000000000000083 
SUBROUTINE DETACHINT? ae 
BEGIN If CABSULDePRTCPIMTX,RELINTI CRF II40 THEN 
BEGIN “WHILE NOT MEABSOLD}s (541) D 
ABSULO ¢ McABSOLD).[FFI3 
IF mMCABSOLDJ20 THEN SLEEPCLMEABSOLDJJ>EMASK)3 
MCABSOLDIJ ¢ PCDUPsLODsSSP)3 - 
K © T © PRICPIMIX*RELINT) gOFF IS. 
A eCPRTCPAMIXsRELINTI) INK O38 
WHILE MCT), Je¥A 00 To + METI (tered: 
MCTJel{FF) ¢ IF TsK THEN i ELSE K3 
PRICPIMIX*RELINTI,CFEFI © O38 
MCABSOLUJ ¢ PC DUPsLUDeSSN)3 


ee . ENDS 
END DETACHINTS er ee 

% FORMAT OF INTERRUPT CIN PRT. 
A UPPER WORD (LINK WORD)! 
b Citijst ie INTERRUPT rs DISALLOWEL 
A $$ 

& “HERS. ATTACH (1ST OR OF THE EVENT IF 
oe ‘THIS INTERRUPT IS THE LAST ON LIST 


CEJ! RELATIVE PRT ADDRESS OF NEXT DECLAR 
INTERRUPT FOR THIS PROCESS 
(LOWER WORD! PROCEDURE DESCRIPTOR FOR INTERRUPT 


‘e "ORIGINAL" EVENT#ITEM CAT ABSOLUTE ADDR ABSEVT)8 
— t4s402 EVENT INTERLOCK BIT (ON TO START) 
Sit)=) p18) : VEN RCM 
ATTACHED INTERRUPTS 
CFRIs pee e ADDRESS OF FIRST INTERRUPT 


= GaPvaae WaPPEN SIt an 
"copys EVENT*#ITEM CREE Ive AS A PARAMETER)? | 
ae ck’ ABSOLUTE ADDRESS OF ORJGINAL EVENT _ 
CONTENTS “OF TSKAL8)3- 
C1tzyJs4 FF INTERRUPTER HAS JUST RUN AND 
S NONEMPTY 
~ _NGRSERE TY 


eS, + SFINT. TERLOC 
- CFF] = ADORESS OF OLD IRCW 
CCF) © RELATIVE PRT ADDRESS OF FIRST IN LINKED 
LIST OF DECLARED INTERRUPTS 
a ee Wa ae 8% ee od Be & ‘ x a 


r+ 9! nee SA ac Be a: ERE SpE me BA Me beaw 2 > 


IF MCABSEVTJ20 THEN SLEEP([M[ABSEVTI]»EMASK)3 


START OF REL SEGMENT3 DISK 


T 004340 


wORDS 
00498 


S1Z2E3% 0152 
990900900 O000%0 
ADDRESS 3 
19901000 7 00010 
990 O00 000610. 
199901200 fT 0000:0 
19901300 T 900030 
19901400 T 000080 
19901500 7 000080 
199014600 7 0000180 | 
19901700 T. 000010 
19901800 FT O0000!%0 
19901840 y, 000030 
9901A50 000070 
19901900 7 000010 
19902000 T O001%0 
19902100 (0900383. 
19902120 T 000632 
19902130 T Q00984 
1990 Q Ogi! 
“49902450 T 00158, 
19902190 T 001880 
19902200 002010 
19902300 ry 002780 
19902350 T 00314%1 
9902360 0033%3 
19902400 T 003513. 
19902500 tT 003513 
9co250. OD 3420 


-goasto 


19902502 
19902503 
teeo8so8 7 
19902506 17 
9902507 6t¢ 
199025084 003670 
ae ota Beare 
199028117 003640 
19902512 T 003630 
S¥O02614 | GHOSAIO 
19902516 003680 
pene 003630 
ere e () 
19902824 T 003610. 
19902526. 7, 0034610 
19902528 
19902529 
19902530 
49902900 | 
iseagss0 + G03et0 
9 29902860 T. 0036 
19902570 003680 
19902580 003630 
19902593 T 0063610 
“249902600 7 003610. 
49902700 7 
49902900 7 008,12... .. 
19902850 
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oS . SS NS NS NN = 
: : 5 Ea : 


MEABSEVTJ «© PCDUP»LOO»SSP)3 19902860 ¢ 004710 e 
7 (TeMLABSEVIJ] o(FFJ)2=0 THEN T ¢ ABSEVT? 19902900 T 004930 | 
PRICPIMIX»RELINT)] © PRICPIMIXsRELINTI&T CCTFIGPIMIx (833841093 19903100 y 0053!0— D 
MUABSEVTI + (iit Ade EE A eae gee ign alee ek 19903200 T (QUST40  et® 
ee “POKIT) ote 9903300 7 Ok , eee a 3 
DETACKL? DETACHINT? “PexIT)s 19903400 T rOGeOLs 4 
CAUSE, MCABSEVT}.C4721) © 13 %SET HAPPEN BIT? AWAKEN ALL YE WHO WalIT 19903500 T O@62%4 |@ 
IF MCABSEVIJ.CFF Jeo THENS IF THERE ARE INTERRUPTS ATTACHED 9034600 06510 8 
BEGIN © IF mMCABSEVTI20 THEN. SLEEPS EMC ABSEVTS 12 EMASK >) 19903650 T O067ty .. 7 
es “WCABSEVT) ¢ PCDUPsLGD+SSP)5 — 19903660 T CO7ET3 1@ 
_* MLABSEY 3 199034 Oo7T3i3.- meee b 
WHILE AZABSEVT DO & INSERT ATTACHED INTERRUPTS IN THE 19903700 7 007630 
BEGIN 4 RELEVANT SFINTQS 19903900 T 007784 |@ 
MIX ¢ (T#M[A]),£8310]3 19903810 y 0077! 12 
IF TERMIX«CCFISMIX THEN ; 19903820 rT 00793 
BEGIN IF TeCFFIZABSEVT THEN. 19903825 T 008110 7 \@ 
DG MIX. « eM ACT Fe “B110 0903030 T 00Aaat fl 
UNTIL TERMIX«LCFJ*MIX OR Tel FFISABSEVTS 19903850 T 0086%4 Ls 
lk TERMIX, CCF JBMIX THEN 19903860 T 0090%0 hed 
3 h AB SEVTJ« DUP a SSN2J5 POX AE NDS 990380 00943 : be 
ENDER ae 19903a70 tT 009410 eke 1@ 
TSKA e PRT(WIX® 18X35 oe : 19903900 T- d094t0 ne 
NOT. LEA “EP KALE & MASK 23 VFO 3907: “OaQss . : 
TOKAI «La! 1 ere 19903908 T 0099%0 “ 
SIZE © CSFINTGSPRTLMIXeSFINTX])«COt1G "43 19903910 T 040;%2 21@ 
K ; pee eee : _ 24 
‘TF NOT TSKAL83.0384) TREN® IF INTERRYPTER INTRINSIC NOT RUNNING ~ 49903917 T OF0583 2 
WHILE JSSTZe oo % COMPACT. called PUSHING ALL NON@ZERO 1ogoaego T 010710 — 2] @ 
BEGIN ne NIRLES Towa RONT OF THE ARRAY 930 63,0833... 2 
IF SFINTalal#o THEN 4% AND ZEROING at REMAINDER i aa 7 010883 28 
BEGIN : 19903950 T 010983 1@ 
1_¢ IF K#O THEN k+2 ELSE J+13 19903960 Q110% 
Las. IF 12S1Z— THEN GO DONES (49903970 T O11410 : 
oo TR SRINTQLT 120 THEN. BEGIN I # 1443 GO TO Lis END 19903980 7, O115%) bh ®@ 
K ¢. 3) 60.70 L323 199039090 T° O120%6 3 
Let 1F K>S1Z~— THEN Go To L43 : 19904000 T O121%1 
IF SFINTQCK)]#0 THEN 19904010 T O422t2 27 
SFINTQLJ) © SFINTOCKI5 19904020 04233 : 


BEG N 


We OLE « + Rass. GOTO L23 19904030. Seles 
. 1svOuo ee, 


FOR | « J STEP 1 fe : aD SEINT ari) aOR ee 
END ELSE gy ¢ uti 19904070 


“TF SFENTQt Siz TA HENT QUEUE FURLH=RET MORE SPACE. 
jp th Rake sora oas THEN : . ; 


Gu2nte 


043783: 
013932 


ee ° 4301 

19904340 
TSKA(8) « * (CLP) OR iMASKE Ane Ts FFIICG ONS EET 
END ELSE 19904370 
BEGIN Slee ¢ eat AF CAGE EES TM Xe eX) 19904400 


GETS SPACE AND. zeROS iy OUT 19904600. 
dem | -49904650° 
19904700 
19904950 
19904960 


“WOVE CSIZE+1+ SFINTO*BIGGERO)i 
FORGETSPACECSFINTO INX 0)3 ° 
SFINTG ¢ B1GGERQ) 


is) ths 
Lute. ADDRESS OF. INTERRUPT Po 


i) Oy ee eRe ra ae, 
A e¢ TeCFFI3 19905200 7 016633 
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e @ 
& TSKA(8) «© *FCUUP) OR #12000000000000003 19903300 T 01680 ® 
F MI XsSPeEMIX TH Be ee 090! Q O) jonne 
1 BEGIN HALT} NOPROGESSTOG ¢ NOPROCESSTOG*42 19905320 r O47083 
@? : ENDS 3 19905330 T 017310 
3 ONS 9905340 i] 10 
: ENDS 19905350 7 
@| MCABSEVT]) © PCLUPsLQDsS5N)3 19905360 
i F 
7 END EVENTAWDINTERRUPT3. 19908200 + wert 
@: ye ge “ . s1Zes 0178 WORDS 
9 ae WE FORMAT OF SEGMENT ZERO OF PROGRAMSY 20000000 0000130. 
jo % $tol = LOCATION OF SEGMENT DICTIONARYS 20001009 tT 0000'0 
er % $(1] = SIZE OF SEGMENT DICTIONARYS 20002000 y+ 00000 
12 + 4 2) = OCA ON O PRT& 20003000 000080 
x §{3] 2 SIZE OF PARTS 20004000 7: 000010 
@' % Stal] =z saree OF FILE PARAMETER BLOCKS 20005000 7 000040 
Ns 4 . = ARAM R BLO te os eS oe tra HO06000 OOOn TH 
6 % §C6).0131) = 1 FUR “NEN FORMAT SEGMENT Os ELSE 0 20006500 Tr 0000!0 
r By % Slo] = STARTING SEGMENT NUMBERS 20007000 t aQ000t0 
7 % 2ii) = RTRAN FA : ae Se as Parad WA 0007 40 eKeXelen. ze 
9 % $C7],033215) = NUMBER OF FILESS* 20008000 7 000080 
- oo % SUZ1,0182159 = ‘CORE RE SU ERERENT / 64% 20009000 -y 000080 
q ¥ Z 0 HEN iH O08 Wa DB oBOL 3 see PP ens eee ee ae sano ee ANLOHOG. O00036 
r % $€15] = oISkK ADORESS OF LABEL EQUATION ENTRIES 20010100 y Q000!0 
@» % eee ee WHEN PROGRAM WAS ale ais AND 20010200 T 990070 
4 y 4 () A HO0190 20 QOO00 6 
% §(16) = ESTIMATED PROCESSOR “TIME | cFROM COMPILATN) 20040400 fT O000t0 
@ % S$l17} a ESTIMATED 1/0 TIME CFROM COMPKLATN) 20010500 7 O000t0 
P|. x ~~ $t18) a PRIORITY ; ROM COMPILATN) AOLOK00 oo00gts 
pe % $[19) = COMMON VALUE CFROM COMPILATN) 20010700 T 200040 
@ ps x gt2Q) = ESTIMATED CORE REQUIREMENTSC(FROM COMPILATN) 29010800 tT 0000!0 
Bo % $21) = STACK SIZE FROM COMPILATN 20010900 000080 
i eae 3 20011000 7 000040 
@ | - pe ee ete | 20011100 7 000080 - 
PROCEQNURE SELECTRUNIS ts ee 20011200 000010 
START OF REL SEGMENTS DySK ADDRESS = 00504 
6 BEGIN 20011300 7 O000%0 
_ 20011400 T 000080 
REAL MSCW =z "2s . . 20041500 fT: OOO0FO 
. 3 F eB 8 fe 20011600 T 000080 
_MYMSCW Leo ©. Pee 20011700 “O000t0 
RCW = +02 20011800 T 0000!0 
& I = +s 20011900 T 0000%0 
T = +2s 20012000 000080 
: ae = $38. fe ee ony 20012100 T O000t0 
@ pT ee eee ie Sn he 20012200. 7 O000%0 
‘ a MIX Se he a ee ‘ — 20012300 T 060030 
HOR | = +68 20012400 7 000030 
] LEVEL = +7» 20012500 T 000080 
MCPYUB = +8» 20012600 000080 
: OLAYOISK a A ee : ; 20012700 Tt 000080 
er THISLINK .. @. 22 20012800 7 900080 
51 NEXTLINK | ® re 20012900 Q000%0 
PREVLINK = 20013000 T 000080 
@ } TYPE = 20013400 7 0000%0 
aS = 20013200 T 000030 
@ - es 20013400 7. 000080 .- 
Le _ARRA 20013500 7 90000!0 . 
e 20013600 T 000080 


Data Documents/inc. 


S a * 0 ry 5 ry a Amn a . aS 5 TS s =. 3 
op > i & eS % SG & Bb 2 . = > 


TRP = +18[*)> 20013700 T O000!0 ® 
4, = _* 00 a00. OON0fN 
SD a S ONT2C*#)]— 20013900 Tt 000040 
nail * pie es Ue 20014000 F OQ00!0 
o ee Re ae ; : : 2004-44 060: -OGOOT6 
NAME ADDR = LBL +13 20014300 T Q000!0 
REAL cores = ADDR + IL» 20014400 T 90000 
; 3 PASSLEVEL a 0014500 4 QONO0 
te erccaerrn rere @ PASSLEVEL # ye. . 20014600 T O000I0 
' _-RETURNRCH = Rp TORNRS CM + a 20014700 + 00010. 
: : id : sic 2HO0 helo Ft: O000LH 
DEFINE SHEETMAX S MIXMAXA 3 20014900 7 0000720 
20015000 T 0000tO 
. : : : 0.0 f 0000 O 
“RESR. eee NOTE ee” 20016200 T Ooooto. 
es) 2 oe THE vanbabies DECLARED ABOVE MUST GoRRESeaNO EXACTLY To 20016300 7 OQ000%0. 
RRS THOSE DECLARED IN PROCEQURE SELECTRUN. : 25016400 TT. GOodtO 


sg 20016500 000030 
RETURNRCW + | 20015600 900040. 
UV AL eer : 0Q weheke 
FBADRS. ee . —"Bo0t6e00 7 0G 
PPOVERSIONS i> Bogan es 20016900 T 0 

: 2.0.6 Onenh ee 
LINDX 20017400 
LINK 200137200 © 900010 
NSEVA AP een ee eet inne 60 a DY crc 10) Gane emma °F OK ON vale 
SPDVAL OO Huda oe oe 20017400 T a0CcotO 
SB Ae, 20017500 ooo00to 
5 ee, oe ee an ae j Rea HO47 AKO MOO00%0 
saa 20017700 000040 
NT 4 20017800 0000!0 
_= 091790¢ 0000:0 
boy : 20018000 -Q00070 
oS COMMENT: THEVA, OF at yPEr ‘DETERMINES. WHTCH. PORTIONS. OF — Re 20018,00. 0900%t0 - 
THIS PROCEDURE WILL BE EXECUTEO, THIS PROCEDURE CAN ALSO 20018200 eleyeyer Me) 
DETERMINE WHICH PORTIONS OF PROCEDURE "SELECTRU\" ILt BE 20018300 0000!0 
EXECUTED BY ASSIGNING A NEGATIVE VALUE TO "TYPE" BEFORE 20018400 0000t0 
RETURNING To THaT sue 20018500 00000 
ED OF COMMENT? Oe ae oe 600. 


DEFINE STARTING a. : a oc) ae ee Bia 0018a 
CONTINUEING 20016900 
QUITTING | 20019000 0000%0 
_0000to0 


EUVAL 
FRBADRS 
2 ee 
OER: | 


LING) 
SENSEVAL 
SPOVAL 


a & wiuaa - ae aon 


= ae ~44H44 


DEFINE XCLOCKTINE = ~~ ~~~SCS;«7; ETP 20019500 7 000010 
CCONT2#S(XCLUCK DIV 3600)) MOD 60 + CNT2 DIV 60)x100 + 20019600 T 000010 
Se : me 


20020100 7 000080 
20020110 
20020119 


S UNBLK® STOPR 


SUBROUTINE DELINK: Pe eee hae Tes ) 20020500 T 0000%0 


%@ DELINKS THE SHEET ENTRY ANG RETURNS SHEET DISK SPACE 20020600 T 0001%0 eC ] 
BEG ss 2.00 Q 0004130 
STREAMCASSSC3) £6910] e8 SPC, SCHEDULEIDS) )3 20020g00 T 0001%0 
BEGIN % MARK SCHEDULE | SLaT SOREN" a 20020900 t 000283 
KIP A DBs DSesrR 3 200217000 | 


END} 
If F 0 THEN & SHEET ENTRY NOT PASSED AS PARAMETER 


20021100 
20021200 


TIF NEXTLINKEO THEN SHEETCLEVEL) «FF )1@PREVLINK? 20021400 
If a lac THEN: . 20021500 T 


oe ~~ @® FW FF WH = 


do09t2 
oo12t0 


50021700" 
20021800 


ere [CF J=NEXTLINK? 
see 


GO OLX; 


HE N 
“BEGIN os = 2002191077 oo1at0 
MECLBLI=CMCSPACEC 3012830084381 102) INX NOT t)el9s6) 3805 20021920. 0013%2 
“NO 200 630 OO204' 


DISKHAITC=(LBL INX 0)» 30% PREVLINK)3 20022000 002082 


+4 


LBL L229]: SNEXTLINKS 20922100 002253 
DISKWAITC CLBL 1INX QO)» 30% PREVLINK)3 eae 20022200 002430 
~ FORGETESPOISKCTHISLINK}3 | 20022300 T 002630. 
END# X IF SHEET ENTRY NOT. A PARAMETER S 20022400 7 002633. 
"ENO DELINKS Pete ee . 00228069 oo26! 
P 20022600 T 002730 
b PcMYMSCWs STF)3 20022700 T O0027t0 
P ; 0022A00 00273 
Ss CO*# Of OF Ge O» OF. OF OF Or.09 0 - ABLES LOCAL TO: THIS 20022900 T 0027%3 
: ae % PROCEDURE ONLY — 20023000 T 003012. 
5 BI = ah es ue ms 2n028100. 7% O03ao : 
S bs IF TYPE*CONTINUEING THEN GO TO CONTINUE; 20023200 T 0030!2 
2@ » IF TYPESSTARTING THEN % SEARCH THE SHEET QUEUE TO FIND A CANDIDATE 20023300 7 003183 
Bae ike % FOR SeLeCTIUN 20023400 T 0032% 
BEGIN ; et 20023800 tT 0032%2 
2 $ SET” aMpt = way cakeaKouT i ‘a . 20023700 T 003330. 
FoR LEVEL3s0 STEP 1 UNT! _ SHEET MAX pO % FoR ALL "SHEET PRIORITIES 20024400 T 003310 


BEGIN 20024700 0034%0 


PREVLINK#=NEXTLINK?=03 % RESET FOR EACH "LEVEL" 20024800 T 
% IF THEBE I> AN ENTRY IN THE SHEET» See IF IT wIbk FIT 2002490 

TRSHEETULEVELJ.CCFI) NEQ O THEN GO TO LEMS. 20025000 7 

Sl Be ote tee oo T 


“003733 


: 50025 30 
%® "NEXTLINK"™ OBTAINED FROM "SHEETC299" BELOW 20025400 003723 
% IF THERE 15 AWOTHER ENTRY AT THIS LEVEL» PROCESS IT NOW 20025500 T 003743 
CTF CTHISLINKSENEXTLING) | NE® o THEN Go TO LEMS Re eae 20025600 T 003713 
END3. ae 20025700 7 0039%2 
TYPE 42 QUITTING? & END OF SHEET. SEARCH 20025800 7 00a1ta 
6o TO EXIT3 20025900 004283 
20026000 T 004341 
QQ! 

004384 
OOM3S) 

“9082. 
O044ty 
0044%3 


aaa : -SPACE GBT : ae Radabago 
S t= CMCGETSPACEC31,200)+2) )&30L8398%10)3 20026600 


44h ~~ 


e e ° . . C) ° peer aryl T Oo4&i2 


a + * o a fz 3 


Data Documents/Inc. 


5 a * 0 u n a Aa A sy 8 5 > 3 S 


REXTLINAESSCZO37 z NEXT ENTRY IN, SHEET QUEUE AT THIS LEVEL 


4 Whew ee « rere * ee awe TT TT 

% * w * * * * w * * * 

4 Kee * * Woke kak ee * * a ea 

& * * * * kot * * * ene ee 
a es a wie Ew Cree eee ee ee * * 0 


DRis ETSPACE: 3046 5. 0: SS. 0)9000) 02 
% THE EXTRA WORD IS FOR COMPILATIONS CJARE30 1=F 10 OF OBYECT FIle) 
DISKWALITC®HDRs 30s S$l25))3 & READ FILE HEADER INTO CORE AT “HOR 
GC TO EXITs aa 
ENDS XS IF TYPE = STARTING OR CONTINUEING 


IF TYPESPASSING THEN % PASS THIS ENTRY WITHOUT DELINKING 


BEGIN 
% hah oe Fk ek _ 
Err Sey or aaa Sor 
) ee ee ee ee 
% te a eee | nr ae * = 
y4 * * * keh ke kkkkk 


Ip S$€3]) GTR QO % SC3], Citijs¢ FIRST TIME THROUGH 
$ SET OM{T = PackETS 
AND SCHEDMSG 
$ POP OMIT” 
THEN BEGIN 
Sc3]#SNABS(SC3])4 %& MARK JT SCKEDULED 
If F=O0 THEN 4 SHEET ENTRY NOT PASSED AS PARAMETER 
% WRITE THE SHEET ENTRY. BACK OUT WITH St3] "MARKED". 
— DTSRW ATT CCS: INX 0)9 300 THISLINKIS 
_  OSTREAM(CISLEVEL® AteSC#)» Ins#S$03).06%40 
$ SET OMIT = NOTCOCSPO AND DATACOM) 
eer Cee atee BsSHOR)3 


EPG Cs OSt#eDECs. OLts0 I-63. ORteSE TELS 
DItsBs “OLtsDT 46) batik Oe 


% PRIORITY 


SEt=SI+1i CE DSt=7CHR3 % F 10 
DStsLIT"s"53 STss_Loc 1Ds OS*=20ECs3 % SCHAN(e 
Mae Lee ue Sh yetas Qs DSte4DECs % TIME 


SET OMTT = NoTC DATACOM ? 
SPOUTERC HDR» UNIT TNO» SCHEDMSG )3 
END % if SCHEOMSG ANO Saute fanouee 


PORSETSPACECSC?I)} % CORE ADDRESS OF SEGMENT ZERO IN S£7) 
IF se Gose LT THEN SeGO?EO3 2 AVOID "DOUBLE “FORGETSPACE" 
rh y REE 0 NO 


LOCKTOG(SAEETMASK )3 


20034700 7 
20031800 T — 
- ang 


TUEEITG 
20032400 


20032400. 


(20032900 
00 - 
20033200 


20034900 


20034600 


20034610 7 


50035000 


20030200 T 005853 


20027200 7 ee 
20027400 7 005083 
20027500 7 0051183. 
200274600 7 005432 
20027700 rt 0951383 
20027800 tT 005183 
2092790 09 | 3 
20028000 tr 005143 
20028;00 T 005183 
0028300 005133 
20028400 y 005524 
20028900 T 005534 
2002900 00572Q 
20029100 7 005712 
20029200 r 005782 
20029300 7 0057 % 
20029400 tr O0058%4 
20029500 +r 065833 
00 9400 00 Bt 
20029700 7 0058683 
20029800 7 005613 
H0e96000 ” O056? 
20030000 tT 00583 
20930300 T 005883 
20030949 T O0059%2 
20030250 ty 0059%2 
; HO O 4 00593 
20030300 7 005933 
20030400 T 006141 
20030500 T 00630 
20030600 7 006313 
20030700 T 006333 
030800 T C0662 
20031000 7 0068! 
20031500 7 006841 
one 40 00 30 


rar 
007513 
007633 
0077 


oosate 


90892 


Data Documents/inc. 


a y 2 + * zy ¢ A x. Ry 
> & na g 5 © So es S ¢ on 


= 
S 


= 


= 
id 


a 
ao nO a 


~ 


53 = x. 


oon~ @D OW FF WH = 


ve ;ae ae Beh 


SHEETLOCKED ss 413 


IF Chaesl2).0CF]) GTR SHEETMAX THEN LS@SREETMAXS 

X SHEETC2).0CF] = “SHEET” PRIORITY 

If SHEETCLJ.0CF] NEG O THEN & SHEET QUEVE ALREADY ExIsTS 
BEGIN % LINK IN THIS ENTRY 
DISKWAITC@F CCF Js30,Tt=SHEETCLIGLFFIJ)s ZTAIL OF QUEUE 
Sce2git=ts % LINK TO THIS ENTRY 
rset i oCCFIe3051)3 % ‘REPLACE ENTRY. 

SE SHEET(LJ¢=T3 ¥. ESTABLISH NEW SHEET QUEUE 

SHEETCLJ+(FFJ8=Ts % LINK IN AT END OF QUEUE 

TYPE t= "QUITTINGS 

GO TO Exlt# * DONT EAUtESS ANY MORE ENTRIES 

ENDS - 


$ SET ‘ONTT ® NOTCBREAKOUT) 


P NKP@THISL INKS | : 


Ir MIX LEQ MIXMAX THEN 


BEGIN 


= ef DOK New 


go TO CONTINUES 


END - 


BEGIN 


TYPE 33 *QUITTINGS 
0 QO Ex ; 


ENO? 


ENDS & IF TYPE = PASSING 
IF TYPE@RUNING THEN ¥ SPECIAL HANDLING FOR "RUN" JOBS 


kaye we 


* 


* 


* 


* 


* 
* 
heute * 
* 
* 


IF (Sf0} EQV JARECI»0))=(NOT 0) AND 


x * * * kaeeke kake eukkw 
* + ee * ee ee ee ae a ee 
rt a Pee. Seer 2c eee ae sr we ee 
a ee ee a 2 ee Se 2 * * 
* kek * wk keke wRkeewk kkk takkne 


iF IESE C2ti] NEG L°oTHEN & Stal, C281)". WHEN ES*ED 
FOR Ite] STEP 1 UNTIL MIXMAX DO 


JARCI#*] NEQ O THEN % JOB RUNNING AT THIS MIX INDEX 


CSC4] EQV JARLI+1])=(NOT 0) AND 


BE 
og ser OMIT | sd NOT Caer AND. baTacoM ) oe 
BOUMESS THEN © 
BEGIN 
$ SET OMIT = NOT CUCSPG AND DATACOM) 
BEGIN 


OR 


aoa 


STisL0C C? OS1=60EC} DIteDI~6) DSi=SFILL? ¥PATOR 

OJ t=B83 DItsp1 +63. DStSL ITs"; 
Stteas Sisss Lets OStS7CHR} DStsLIT"/"3 & MFID 
: p : ee ire es) 
*20ECS cols WEX 


OSts4DECs OStaL1 Tes O] Di-te ; SteFILUGY TIME 


20035100 

00 00 
20035300 
20035400 
20033500 
20035600 
20035700 
200359800 
20035900 


20036000. 


20036400 7 


20036200 
20036300 
20036400 


20036500. 
20036700. 


200 O0 
20037200 
20037309 

00 2400 
20037500 
20037600 
20) OO 
20037800 
20037900 


20038400: 


20038200 


OO 38. 200 
20038500 
20038600 


20038800 
20038900. 


00 39000 
20039100 
20039200 

0039300 


20039400 | 


20039500 
20039600 
20039700 
2003900 
2003990 


20040000 


20040100 


20043000 


20043100 
20043300 
20043400 
20043700 
20043800 


20044900 
20044400 
20044200 


20944300 — 
R0084 4: 0 
20084800 7, O46 


20044600 


4-4 


“4 


0098%0 
00988 


009883 


010240 


OLoz%0 
010332 
010480 
01073 

Q108%3 


O11082 - 
Q110%¢ 


O112%4 
0114%4 
Q11531 


“O14543 


011523 
4 
O116%2 
O141731 
Q) 


011883 


O119%4 
f) ) 

011984 
011933 
0 om 

042494 
Or2its 
oni £. 


012780 
043080 
0 


“013480 
O134t2 
O134%2. 


0135%4 
0435:3 
0435! 

0135%3 
OL3ryy 
014980. 
014230 
014380 


Data Documents/inc. 


a 5 * y zy g 5 a a a aS = aS ~ ~. 55 3 
da oS & a Oi & oD é x o © ob 


END STREAM; 
oPO hOR§ e 92:939I))3 
- ENO % IF BGv MESSAGE SHOULD BE SENT 
$ SET OMIT = NOT COCSPO ANO paar 
PND % RO IMESS 
ELSE. FORGETSPACECHDR)3 
% BUMP oPEN COUNT ae _QGWN 
ry =) al! R ii al 
eee | 2 Sto) ary 0 “THEN "O7SK 
FORGETESPOISKCS{63 oe heen CARD IMAGE FOR LOG 


ABS(S[Q} 


WHILE T a 0 pa se LABEL EQUATION SEGMENTS 


BEGIN ; 

O[SKWAIT(# NX QO)» 30s ; 
FORGETESPDISK(T)3 
TesSt2913 

ENDs 


BEL TKI % DELINK THE ENTRY FROM THe SHEET QUEUE 

IF F=O0 THEN % SHEET ENTRY NOT PASSED AS A PARAMETER 
BEGIN 
TYPE fs “CONTINUEINGS 
Go 10 CONTENUES : 


ELSE 
BEGIN % SHEET ENTRY PaSSED AS A PaRaMETERs 
60.10 EXIT; 
“END? 
WO Ss 


END OF SPECIAL HANDLING OF RUN CARDS} 


pONT 


Yee = FQUAT) a ah 
BEGIN. ay 

x tee ee ae Ah ketwe 

4 * * * * * 

% fy ek kkk ht kk tke 

% * * * * 

x * 0 * Q. w#ekwe, Qo 


PRISGETSPA 
SEGo[ 3] 
SEGO[4] = 
SEGQC7) = 
ETRLENG. § 
MESEGOCS? 


ECSEGOLS) INX 10903423 
SIZE OF THE FILE PARAMETER BLOCK ON OISK 


NUMBER OF FILES IN ThE FeP.sBe 
NUMBER OF WORDS PER ED IN THE FePoBe 


% PAST TRE END O COMPILER 
FRIZGETSPACE(SEGOL7) «CCF IXETRLNG® 091) 425 


ze"Few wILk BE "IN-CORE* FILE PARA TUR BLOCK LOCATION 


TDYSKWAIT (FFE SEGOCSY INK o» ACTUALD [SKADDRESS (SE Gots 
COMMENT“ FORMAT. oF cis cia AL FPBS | 
= FILE NUMBER C12 
= FILE TYPE 


= vr io 


EGOC 


4 RN M ot 
I N NUMBER Th 


Titey 


" ELSE Sills 


13))3 


CONTINUE 


RELATIVE OISK ACDRESS OF THE FILE PARAMETER BLOCK 


Be PRED RODS % SET TO. ZERO TO INSURE THAT. STREAM STATEMENT 
SR USED TO BUILD ere FPe WILL NOT SKAN & 
T 


o GCF, ) 


20050500 


30050900 


20044709 


20044900 


20045000 | 


T 


OO 45:300 - 


20045400 
20045500 
200454600 
20045700 
20045800 

NO4S9N0 
20046900 
20046100 


H900 


20046300 
20046400 


N046s500 
20046600 
20046700 
O046Rn00 
20046900 
20047000 
H047400 
20047200 
20047300 


20047500 


20047600 


DOAT POO 
20047800 
20048000 

OO048 O 


20048200 
20048300 

NO4RBOO 
20048500 
20048600 
20048700 


20048800 | 
20048900. 
20049000. 


20049100 
20049200 


7400 
eb 
ee eaene 


ayes 
20049900 


20050000 
20050100 
“2g050 ie 


005030 
eooa0acs 


=" 


444-4 


+ -4 


45 a on i tae 4a st 


+a-HAAwHas 


014912 @ 
01493 
015133. : 
015143 1@ 
2g : 3 
015133 
0155%3 |® 
045523 . 
015740 : 
Pipers |@ 
9 
Of6st0 ha 
O164tt |@ 
01643 12 
016682 : = * is 
016734 @ 
Qi6at 5 
017030 16 
047180 \@ 
Q 3 18 
Ooty : 19 
a aie : od @ 
; : oe 2] 
TEE i 
017323 a @ 
24) 
017534 a 
017543 24 @ 
( i 2 
01780 i 
017810 |@ 
0 ASO : 
O17at3 ee 
O179 Fy a] 
01793 ‘ 
O179%4 
017984 39 @ 
01798 4 36 
O1798y 3 
O179hy 1@ 
O79 FE 9 


ene 
0188!0 


20054900 t O2i5t2 

eae ee 2 as ‘ 0055000 1. Q217! 
DSt=8LIT"0"} & ZERO GUT FIFTH WORD OF FS 20055400 0218!0 
GO TO LI 20055200 7 021984 
XXIT: END STREAM STATEMENT; 


PGB THEN ao 10: STOPS. x Na Gaaet -eauaTI0N FOR MSYSTEN™ Joes 


“Fa% Lapel EQUATION Fr TOCESSING 


"022083 


20055700 T 
T 


MARKER FOR FILE OPEN ( 1 = COATE GIVEN 
NUMBER ee oe 


20055900 022083 
a COMMENT LABEL EQUATION RECORD FORMAT? : | 20055900 02203 
+~ is Be P = Te ee a ae mr 209086000 T.., QQQ003 
pp ROs IF NONE GIVEN ) a oe 200561001. ORBOs3 
ol Bo ee ae sd ag tae 0056000 y Qap0!: 
P i7] 3 REEL NUMBER ( 3 BCL DIGITS ) 20056300 T 0220383 
$30) * CREATION DATE ¢ 5 BCL DIGITS ) (20056400 T 022023 
5 | “Cael ] =z 


“PORMS" REQUESTED 


@ e 
@ NEXT TWO CHARACTERS FOLLOWING INTERNAL NAME CONTAINS 20051000 Tt 019612 ® 
4Q8 = SENSI[IJVE BIT 00 00 0 96% 
i Cati2) oo DISK SPEED CisFAST»s 2s3SLOW, OSUSPECIFIED) 20051200 Tr . 
@ }: £a3tsy ue mw EY NUMBER - 1 ae e053 300 i O1e6te. 
f , oe : a 
‘ COMMENT FORMAT OF “IN-CORE" FPB < 5 WORDS FOR EACH FILE ENTRY ) 20051500 019682 
@|: WORDLO],C e 42] = MFIO 20051600 T 0196%2 
6 WORD 2] = s - . 7 : 
’ WORDL2),¢ tei?) = REEL NUMBER. (3 BCL DIGITS) . : 20081900 7. 019682 
@ | WORDLE QI. C48130] sv preaneey DATE (5 BCL DIGITS) - 20053900 7. 019612 
a OROLS; ae UMBER (CBINAR N082000 7. 
ng WORDE3)eC 6317] = PRN (PHYSICAL REEL NUMBER) FOR NON@= ~DIsK FILES 20052100 7 pi get2 
eo" . WORDLS), C1584 J = SENSITIVE BIT COISK FILES sae 20052200 T 0196!2 
bi NORD = DISK SPEED 0 : 9052300. 91963 
; = WORDED) ,(1815 ) = EU, NUMBERD] (DISK FILES ONLY) | 20052400 7 019642 
@ ' | WORDED] «£2311 Je 10 cope CINPUTSO,QUTPUTS1) | | 20052500. 7 019682 
: . WURD = RARER d : 0082400 
. WORDLE 3). [3916 J 8 LOGICAL UNIT NUMBER + 1 20052700 T O196ts 
eo,” WORDL3],043t5 J = UNIT TYPE 20052800 T 019682 
. ND_O OMME | so knoe 0052900 94 
9 pee eae. 20053000 7 0196te 
@ FRBVERSTONS#S6G005],0138)]3 % NEWER VASN« CONTAINS EUs SpOretc. , 20053100 T Bayete 
1 § REAM( TOGta(FPSVERSIONS1 J» Tlsags 2t8OsCieOeFPB,FB)3.- a. 200832061. Ato 
P BEGIN 20053300 T o200t 
@ & SIt=FPB> 20053400 Tt O200%2 
ei tbh: IF Sc="0" TheN &% FIRST bisil OF FILE NUMBER 9053500 02003 
el a BEGIN | 20053600 7. 020181 
70 be seeegisa iF Scenon THEN. go TO: Las. a ND OF FPB. 29051700. 7 020444 
5 p EL we Se ane Noe 00 9 Oa0oka 
Sg PB Stissleps Teen sliestori ‘ FILE TYPE LOCATION ; 20053900 T 020283 
£@r 2CDStSLIT"O"s DSt=7CHR)S % MEIDOFID 20054000 T 020382 
an Tas=D1s OUss_0C Cs DitsDI+7s DSteCHR$ DI sata XINT»NAME Size 05): 02048 
DS¥s45LIT"0"3 % ZERO OUT REELsDATE*CICLESETC,, me 20054200 r 020610 
@ = T2areSts SlssTis: OStsCHR} SltsT2s % FILE TYPE. 20054300 T 020831 
GO TO SK; Lit. gO TO LLy Let 60 TO. XK Th SKE 20054400 Tt 02098) 
SIs=SI4C3 % SKIP OVER INTERNAL NAME. 20054500 7- 021030 
@ *: TOG(T228013 D1s=p1"6s SKIP 3pBs SKIP 4SB3 20054600 tT Oz210t2 
IF Sg TREN DS#eSPT ELSE pStsRESETS SKIP SBS % SENSITIVE 20054700 7 O2i2t0 
acrr SB THEN OSt=SET ELSE DSssRESET? SKIP $B)s % SPEED 20058800 Y O2i3t2 
@ SCIF SB THEN OStaSET ELSE DSteRESETs SKIP SB) HEU T 
e 
@ : 
@ 
@ 
® 
@ 
@ 


20056900 


Data Documents/inc. 


s a . a A a o sty 3 Th 3 TS gy x 3 
~ & op oS & &® & o & b OS 


END OF COMMENTS 


2C43%5 J = UNIT TYPE 
WORD Qi6 = SIZE OF NAL NAM 
ef 6342] = FIRST SEVEN CHARACTERS OF INTERNAL. NAME 


WORDLE 3) THROUGH wOROCL1] a pk drccha OF INTERNAL NAME 

WORDLE 123 53! = SEN ene nartoar! 
tote } = DISK SPEED (1s FAST» 2=SLON,0=Not SPECIFIED) 
004835 ) = EY NUMBER + ! 

WORDC29) = LINK TO NEXT ESP SEGMENT FOR LABEL pcuAriGn 


FOR L is 1 STEP 1 UNTIL 2 0C 
BEGIN : 
LINK#=]F L THEN S15) FLSE S113]; % FQN FROM COMPILE/EXE 
- 2 $015) # RELATIVE DISK ADORESS IN CODE FILE FOR LABEL 

a EQUATION ENTERED AT COMPILE TIME 

% SC13) = ACTUAL ESP DISK ADDRESS OF LABEL EQUATION ENTERED 
% AT RUN TIME s 
S2 t= NOT Ls * TRUE® IF LBL+EQNe ENTERED AT RUN TIME 
WHILE LINK NEG 9 20 *& IF LBL »EQNesEXISTS 

~ BEGIN my ot Pa ee 
IF. Aare THEN 


TAGE TEPCICLY CE SeaT ECE 387107) INX NOT 1)e6936)2803 
END; 
& IF CINK=5019],READ FROM CODE FILE ELSE READ FRUM ESP DISK 
DISRRALT ELBE INK 0)» 308: 
Fo. THEN ACTUALDISKADDRESSCLINK) ‘ELSE LINK )3 
I ts 03 -S START BEGINNING. OF SEGMENT 
IF NOT L THEN Er aTEUETTHEL TST. 
LINK 8= LBL(29]5 % NEXT LINK 
IF $2 THEN % RUN TIME LAB EQUATION 
BEGIN 
8 TF “COMPILE. JBs SAVE. Fip GF Opvect: FILE NAME IN 
& yARC30) TO PRINT MIX MESSAGE OF THE FORM3 
% "aLGOL"/<MEID>/<F1D> 
IF JARCMIxs0) LSS 0 THEN JARCMIx930)%s_6LE1]3 
S2i#0% 4 USE THE FIRST EQUATION ONLY 
END) — 
IF. LBL (0) s ig THEN Go TO STOPs 


STREAMC(FNI3Q 3 Teil ZEROL=0» T2=0> 
TOGS*(FPBVERSIONS 1)» FPBe FSECLBLELINDX+4] 15 C320)3 
. E . 


a ae AM * IZE 
Or ts Loc. TERGS STiesie2s 


IF 2 SC = DC THEN GO TO XXIT# % FILE NUMBER®O 
Ties ecHas Sli ss SAVE FILE TYPE FOR CHK SELON 


= 20059200 7 023639 


20057000 T O22033 
7 0 
20057200. T 022083 
20057 300 tT 022083 


0087400: O520% 


20057500 T 022033 
20057600 T nee S 
20057700 t 02208 
20057800 T Og20ts 
20057900 7 022013 
£008 eogo wee 08 
20058100 T 022033 
20058200 T 0223%0 


20058300 7 022330 
20058900 + Og25t3 


20056500 7 O22asts 
20058600 Q22513 
20058700 tT 022533 
20058800 7 022583 


0058900 T 226! 
20059000 T Oz2eto. 
20059100 7 022810 
200591410 022910 
20059420 022932 
20059430 023619 


i Finan ee, 


44 


20059300 0236ta 
20059400 023834 
20089500 T 024563 
20059600 024680 
20959700 024834 
20059900 02493 
20060000 024982. 
20060100 025040 
20060200 7. O25010 
20060300 025080 
20060490 0250!0 
20060500 025430 
20060600 - 
20060800. 
20060900. 
20061000 
20061100 
ee 


+1 


“+A + 


025712 
0259t0 
0 


at se st HH 


20061600 
20061700 
20061800 1 
20061900 |: 
2006200 


30062200 
20062300 
20062400 J 


20062800 


Data Documents/inc. 


TOG(SLESS1+2)5 & SPEED AND EU CHARACTERS IN FPBCVERSIUN 1) 20062900 7 eo ete e 


030344 
030730 


0 3 RIES Se eee ee ee IE ee NOA3000 7030 
1 XXIT?# ENDS 20063400 o27081 
( | : 20063200 T 02 
3 LaP ( ate 
4 BEGIN 20063400 
5 FBADRS?=(Tel)xtTRLWG+F Bs & ADRS OF FB FILE ENTRY 20063500 
6 % FT 1S FILE TYPE FROM FPB OBTAINED ABOVE 
7 IF CFTIFSLBLOLINOX 4324043853) NEQ @37 THEN FTPFFTIsSNEW TYP 20063706 
8 FT3aFT.C43t513 & REMOVE "FORMS" BIT 20063800 7 02 
9 TYPEDISK « CFT#10) OR CFT12) OR CFT#13 OR FT*26 20063900 7. 0279) 
no STREAMCXS=LLBLCLINOX] J »TOGts(TYPEDISK AND (FPBVERSIONS1))> 20064900 T 028332 
hi : FBAORS); 20064400 T O285!2 
n2y BEGIN 006 00 0286?0 
h S1tsxX3 OSsegwoSs OSPECHRI *& MFI Ne FI Oe REEL» DATE» CYCLE 20064300 7 028610 
4 TOGCS18 eS 1+23 ‘SKIP 5SBs Olt=s01+23 SkIP SDB3 20064400 1 026643 
g “IF S8° TH DSteSET ELSE OStSRESETS SKYP S83 ss HO6aS0O Cone! 
6 JUMP OUT TO L)3 % SAVE EU/SPEED SPECS FOR DISK 20064600 T 028983 
7 DS?=3CHR3 20064700 T 029082 
8 t DSt=3CHR3 Re eee ee ee a ee ee Ee Mere RE er _ 006480 02903 
9 IF. SC NEQ *e* THEN & NEW TYPE .SPECIFIED — 20064900 - o2g91to 
poy” TF SC. NeEQ """ THEN DSt=CHR ELSE DSteSET; 200656000 0291%2 
1 ENDS A eMENTS Bi eae ace oe 0065100 O29 3 
2 SENSEVAL t= CEUVAL ts LBLCLINDX#12]4(15#81),(4034]; 20065200 029330 
23 SPDVAL = EUVAL.C41:2])3 20065300 029680 
P UVAL t= FUVAL AND @373 0065400 02973 
PS Tk SPDVAL GTR.O THEN ; 20065500. T O298%2 
be MCFOAORS #31 teceP COUR) IESPOVAL (161461213 20065600 299% 
PL [F SENSEVAL THEN % FI SENSI 00; 
ba 


SSS AREPE PTTL PERSE CASEI 20065800 Y 
IF EUVAL GTR O THEN % nEW EU NUMBER REQUESTED IN LBL,EQN, 20065900 T 
MCFRADRS+3)25C *PCDUPIIBEUVAL (1924335]3 _ 
END? 2 IF VALTOD LABEL EQUATION = 20066100 j 031482 : 
IF CListe1) a 1 THEN ae Webs te) NEQ: 14 THEN Go TO UNBLKS oo canes 

y LINK NEQ ze Sty 


END» 


STOPS 


J ee 7 


% FOR L 20066400 
FORGETSPACE(FPB)3 20066500 
TRPL3] t= (MCFB)) & (SEGOL7 CCF IXETRENG)E: 
ENDS x IF TYPE = EQUATING ee ss 20066700. 
; ey ee 20066800 : 
> EXIT? (a RO eee av : ae 0080000 TT. O3241t0- 
A CTRETURNACHT> STS» 0» RDS* 0» XCH» P&PICTFJ» STF)3 20080100 T 032410 


END PROCEDURE SELECTRUNIS 20080200 


20080800 tT _ 
SEGMENTS DO7SK ADDRESS = 
20080600 000080 


START OF REX. 


000010 


20081100 0000%0 
20081200 T 000080 


6M Ut: a5 8 
50081700 T 000020 


Data Documents/inc. 


5 


LABEL OLX» BMSGs NGs SKIPs EXIT; 


‘DEFINE XCLOCKTIME = — , 
SL daa oreebet “OTV 3600)) bea 60 + (NT2 DIV 602% 100 ; 


fda 8 


DEFINE ACTYALDISKADDRESSCACTYALUISKADDRESS1) = 
JARCMIXs (CNTG23AC (UALUISKADDRESS1) UIV (NT: 
+ CNTA. mond NT3) + oe? DIV 1243 


tsJAROUMI x9 a))2+19) 


$ SET OMyT = NOTCRACKETS) 
DEFINE DALOCSIZE = G#; 
% VALUES - ASSOCIATED mite mye iat Be 


EQUATING 


DEF INE START. NG. z Lz) 
CONTINUEING = 28> 
QUITTING = 3» 
RUNING = Ak» 
PASSING ? 

n. 


SueHCUTINE GEL iN a 
X DELINKS THE SHEET ENTRY AND RETURNS SHEET DISK SPACE 


Goes oe 266 FSF FE SESE EEUSERE SES SRESEITSEREESR 


90 
20089000 


20085800 


20086300 
20086400 
HORS one 


20086600. 
20086700. 
20086799" 


20086810 
20087200 

0087400 
20087500 


20087600. 
20987700 


20087800 
20087900 


MCP JB | = +8» 20081800 T 

OLA = g eiiidiecee Soot oe ee SOR OOD 

“THISL INK S +10 - 20082000 T 

ONEXTLING = +410. 20082100 7 

PREVLINK Se #120. - 20082200 T 

TYPE s +13» 20082300 T 

STACKLOC = +44» 20082400 T 
DHEFTLOCK = +153 ere tne septate 0082500 

“— 7 ae 20082600 T 

ARRAY 5°. B+ P604ls. 20082700 T 
SEGO. +170 *)5 200a82A00 

TRP zs +18(*)> 20082900 T 

LBL s  +190*)s 20083000 7 

SD s NT2t*)> 7 20083400 T 

—TSKAS =e NT2C*I3 20083200 T. 

4109 me Be | 20083300 T 

NAME: ADDR. = LBL +23 20083500 7 

REAL  PASSLEVEL = ADDR + 1» 20083600 T 

SVALUE = PASSLEVEL? 20083700 T 
RETURNMSCW = PASSLEVEL + 1s 20083900 

“RETURNRCH © RETURNMSCW + 13 20083900 T 

ie abla a PA ONS oN TES sd ee 20084000 1 

é INF SHEETMAX = MIXMAXE i 0084100 7 

20084200 T 

20085300 T 

L¥E% tee NOT tee 085400 7 

Sx%X% THE VARIABLES DECLARED ABOVE MUST CORRE SPOND EXACTLY TQ 20085500 T 

ose THOSE” DECLARED IN Hehe eaueige cs e000R608 7 

at A ME AGESPACE s RET : mh A. m2 3 A ( FRO RK fa es of) Po 

20085710 T 


20086000 + 
20086400 


r Oo0Ot0 


Q0000%0 
009030 


000080 


“GO0OtO: 


QO00tD 


0000!0 
0000'0 
000020 
000040 
000010 


OQ000%0 


000010 
00000 
00000 


— 9000to 


o000'0 


000010. 


Q0000rO 
0000°O 
000080 
000010 


oocoto 


agoots 
0000!0 
o000to 
Q 80 
000070 
OGO0t0 
N000 Y) 
0000%0 
0000%0 


0000!0 
0000%0 
000040 


00000 
0000%0 
000030 


~~ O000T0 | 
000080 


Qoooto 
000080 
000080 
000080 


7 GO000!0 
tT. 9000%O 


saosacen « 100% 


aaa 


12 Bk oe 
Q003%2 


IF F = 0 THEN & SHEET ENTRY NOT PASSED AS PARAMETER 20089100 7 000383 @ 
BEGIN Saree Se a ne PP Ne eIS OR eR ec he ae 0089200 0004 
1 IF NEXTLINKSO THEN SHEETCLEVEL J, CFF JS aPREVLINKS 20089300 T 000510 
2 IF PREVLINKSO. THEN 20089400 7 O00B8' 
3 B N 20089600 Q006t0 
4 SHEETLLEVEL)eCCFI=NEXTLINK? GO DLX3 20089600 T 000982 
5 ENDS . 20089700 T 001280 
IF LBL=0 THEN. 20089800 001230 
7 BEGIN: | 20089810 7 ‘GotgtD 
a MECLBL#=CMESPACEC 30) 11890081 38110)) INX NOT 1200916)%a03 20089820 7 oot 
9 END}. snd ah lift noe COs dt RN ares oe dies tet is ye a ie Aho 990890830. 
ro DISKWAITC#(LBL INX O)» JO» PREVLINK)3 20089900 T 0020!2 
m LBL C29) s3NEXTLINKS . 20090000 T 002283 
n2 DISKWAII(C (LBL INX 0)» 30» PR NK ; 0090400 
OLXs FORGETESPOISK(THISLINK) 3 20090200 7 002680 
M4 ENO} % IF) aneer ENTRY NOT A PARAMETER 20090300 tT 0026%3 
#5 NOD VK 3 AN9OA00 002 _ 
a 20090500 T 002780 
: BCOLEAN eee REENTRYS 20090700 T O027%o 
0090x800 
9} POLISH(FALSE)} 20090900 7 
Po TF SARUM IX 204 £8410) NE@ O THEN % Not "gO" FROM COMPILE AND GO 20091000 T 
: NO 5 [2 HEN % NO Sef D n0974100 
b? FOR [:=4 STEP 14 UNTIL MIXMAx DO 20091200 0031!0 
P IF JARCI»*] NEQ O THEN 20091300 003340 
IF (CJAR{MIx29) EQy JAR{1+0})) = (NOT OQ) THEN & SAME MF LD 0091400 003480 


IF CCYARCMIX*0) &SS 0) -OR % COMPILER. 
COCJAREMEXe1 2. EQV. VARCT52])) 5. CNOT. 0290). THEN. x SAME FID- 
[F JARLI+10) NEG O..T i * COMPILER: OR SAME M 

IF JARLIe2). (§:10]7 NEQ QO THEN % NOT "GO" PART UF COMP, & GC 
IF PRYORCIJ GEQ O OR 
=1)xNDX+ 


20091500 T O0037%2 — 
20091600 7 © 


20091800 
20091900 


Vala VOCUMEMLS/ IT. 


a a a a s % 5 a 55 Th =. ch 


; : “eid age . 20092100 7. O082tt 
COMEENT MAKE THE ENTRY IN LINKEOS: STYLES : 20092200 y 005233 
IF PRYC1246), CFF J NEG O THEN % ALREADY PRESENT 0092300 00593 


BEGIN 20092400 005510 
COMMENT ENTER AT TAIL OF PREVIOUS LISTS 20092500 
= I. ANT pCISSPRT 1r41 ef 2416] aot 20092400 


OO NT1i3 
NFOCCM: 20092700 1 oeseti 
1n1)xNOK#1ItePRTENTLs 4) 1 20092800 T 006313 
CaP (DUP) OMEN 249421613 ae s 2 20092900 ry .0066%3 
20093000 
20093100 
| 20093200 
COMMENT CONSTRUCT NEW LIST3 . 20093900 
: FIXNOX4+L I) ESPRIC Te 4] 98 s . 20093400 T 
js LIBtAAVsGamMIXCS]6to2s6 73s 20093500 | 
™4)XNOX+1]3=STRPC4] t= 20093600 
, PRICI»418@77( 241421613 20093700 0078%3 
E 20093800 ooa4t 
20093900 rT 008143 
20094000 7 008811 
In094100 * ODB3I0 
20094200 7 0085'4 
T 0085t2 


O076tt 


~REENTRYS=POLI 
END REENTRANT 


AF: 


SH 
Cc 


20094300 
20084500 _ 
SRAGRTBAT 


; : : 
ODE LINKAGE ESTABLISHMENT SUBROUTINES 


ie Bees : ie iy os 4 “i AT eG aE : i sf. U # Jf oO ernie 
ee a ee ee ee 20094800 tT 00870 


ake eh ko 


Data Documents/Inc. 


SH aS * TS 5 3 > 


% ror * * so ©  & * * 20094900 T O008&7!0 e 
x PCA Wo * * * w ek eh thea w + 20095000 1 00878 
a. * wo eR ea * ke & 20095400 tT Oca7io ; 
% TelehelE Colabathe Wk te nr a co. es ee Ss 2 2. ee 2 22 2 | 20095200 T. OOBTIO -— :|@ 
. : = : 1095300 T OoaA7iO0 : 
$ SET Omit = NOTC BDCSPO AND DATACOM ) 20098900 7T 008780 4 
IF BOJMESS THEN 20100700 T 008730 |@ 
mcP JOR HEN % "SY mM" p ee 0100800 0087 3 7 
TF: NOT CAUTOMESS) THEN % “SUPPRESS BDu/E0d MESSAGE 20100900 7 008910 [7 
IF NOT cSt2), ca ay} THEN % NOT eeare 20101000 T. 009082. |@ 
F. $1) THEN 2 SUPR Ow MESSA parece! 20101100 OO98h4 9 
BEGIN 20101200 T 0u93t3 ie 
ae uae MIXe TtsTisGETSPACE(4,0,0)42);3 20101300 T O094qty4 l® 
0 one 0097 ; 
psts6L ite AUTOWN; | 20101500 F 009783 7 
Sktalac Ns S1iesieii DSta7CHRS 20101600 7 009883 @ 
VS esol rte sty” alLOC MIX: DSi=2nEC3 H101700 TT. O09gtia | ys 


SLIT™e"5 DLs:=D1°33 OStsFILL; 20101800 
ers T 
okoxe 


~ go tO SKGPs e coe 20102400 


tT O102ta Me 
ENDS» 20102200 7 O103%0 2 @ 
(ETS . 7 NL04K400 010780 2y 
IF BOUMESS 20104700 7 O103%0 | ea 
$ POP OMIT % PACKETS ; 20104800 T 010380 a ®@ 
ee SET OM LT SNOT CP AC ir i) POLI CNO TO 0 RO 2 
AND NOT SC2jeCesl) THEN & SL2]. C24ije1 WHEN ES*ED 20105200 T 010320 25 
BEGIN 20105300 7 010584 23 @ 
REAMCDAAT1@07 DT OG s=NOT(NGP VOB) AND TRUE,» SV t20» ee _ 20109406 0190533 2 
“S SET OM]T = NOTCDCSPO AND DATACOM) 20105500 T 0107%2 28 
CheS(l8), AtsJARRUWEMIX), MIX», % SC18]=PRIORITY . 20105900 7 0107!2 4 @ 
___Gt=XcLOCKTIMEs Bt=MESAG SPAY 15 GE TSPACE(120020)42)3 | 20106000 T 03,08%3 20 
BEGIN. 20106100 T O415%2 a 
-- Srracoc Cp. DSisgnecs Dyrad yes OS t5F UUs &® PRYIOR|TY 20106200 T 0115%2 | @ 
<DEtsBs Olt apl+6; OStsLITses — 20106300 T. O1463 33 
SltsA; Sls=Sl+13 DSt=7CHRs % MFID 20106400 T 0117%2 
DStsLTT"/"5 SrtsSr4is DSP=7 CHR; * FLD 20106500 T O118%4 31@ 
SItsLOC MIXS DSssLIT"="3 OSs=2DECs % MIX 20106600 Oligti 36 
SVIFOYS DLPSDI" 23 OSISF ILL 3 DIssSv; 20106700 T O120%4 37 
OStaS_IT" BO "] OSPs4DECF OSteL1t" ae & TIME 20206800 7 gai 2 @ 
OTOGCSIIFLOc DAaT; Slt3S14+2). Ee phe 20106900 7. O,23to a9 
3COSt22CHR3 OStsLIT"/")3 OLtedl1)3 % CDATE 20107000 7 012480 40 
$ SET OMT = NOTCDCSPO AND pATACOM) 20107300 T 032533 «|@ 
OStaLiTten; 20107500 T 042583 42 
TEND STREAM STATEMENT? ee 20107400 tT 012684 4 
$ ser omit. od see tables AND Dat acon) nL ee me 20107700 Tt 012642 a@® 
eae ener 20108400 7 01268 __ ig 
END? 20808500 T 0126%2 
20106700 T 012682 etd 


8 SKIP3 _ 20108800 T O 26%2 48 
ices ee a ee hay 20108900 +. O12612 as 
Be : aves enn a pe ae ' “egengnge T. OL26te 1@ 
3 —~ Rikers eeeee stews seewe evens eewee eneee 20109400 7 O12et2 s 
52 ; * ” * * * * * eat eetos T 5 
EJ % ae ee ke * x* * keke eek oY * 20109300 tT QO126%2 sd @ 
«+ +o : : ‘+ * + 20109400 1 012682 
B oe, Dah St ad WM te wees: eee 2 ; ; “20109800. 7%. O126t: |s6 
et ae A “PARAMETER ee he 2 4 2. ee ie : 

30105800 Y O127%4 e e 


Data Vocuments/inc. 


01818 
0148220 
018240 
0483%2 
018312 
01484t2 
018583 
018644 
peat 


MESAGLSPACE #03 | 20117660 


~ ENO 2 
TYPE ¢3- “PASSING? GO TO EXIT3 
END E  * 1F ONO MEMORY 
IF NOT MCPJU8.C1:1) THEN % NOT "LDCNTRL"» WPRNPBT" AND OPTNS SET 
IF STACKLOC GEQ ®50000 THEN 
BEGIN % MEMORY 1S TOU TIGHT TO RUN CSAVE SPACE 
itis Cinins team pied BLEERCCR ARCH 88: 10 NG 


20417670 
20117700 
20117800 
20117900 
20118000 
20118400 
20118200 
20118300 

LL RERG 


ee ee) 


QO RIGH) 


4 aly 4 4 be 


BEGIN 20118360 ae 
SPOUTER( WE SAGE SPACE »UNIINO+(BUJMESS AND NOT SE2)0C241)2)3 20118370 T 0191984 
% S{21.(2t1] = 1 WHEN ESTED oT: 


% COMPUTE THE AUDRESS FUR THE PRT “SUCH THAT “PRTADRS. razt6) 80 20118800 Y 019588 


e 
e IF SEGO NEW O THEN FORGETSPACEC(SEGO)3 20109900 T 012733 ® 
GOt=S@sr7ILCTC) & SEGMENT ZERO PRESEI A RE ADOR "S " 0110000 01303 
1 20110100 
@” 20110200 
3 BE i a Be 
i IF SEGO=0 THEN 30110400 0135%0 
eo; ae: 20110410 013640 
6 0) O 
2 ENDS 20110430 oyagae 
@ | DISKWATT(@CSEGO INX 0)+30sMCHOR INX 10323 % READ SEGMENT ZERO 20110500 O143%2 
9 ENDS %& IF SEGMENT ZERO WAS NOT PRESENT 0110600 014740 
by JAREMIX92) 8= CHPCDLP)) &@ SEGOL2ZI(1°1%2) & 20110700 T 014780 
er SEGOL2ZIL5%2:3) & 20110900 T 044983 
2 SEGO 123 0 00 015410 
y % SEGOL21.01421) @ sOB COMPILED BY COBOL € NO “QAT" ENTRY ) e 20111200 015283 
@ | % SeGota), f2t3ds SEGOC7I,C24t] = USED FOR INTER@PROGe COMMUNICATION eee 015283 
5 is + Pan ae ET Te Ee OE § 50 O13 
e $ SET OMT = NOT(BREAKUUT) 20111800 T 015582 
ee. 20115200 0455%2 
a +4 wake keenk wwe wk kk * * ahkke tebe eee () Q (¢] ‘ 
9 x * * * * o% ee eee * * « * * 20115400 YT O455t2 
or. % take * a. kk eet wk hie * 20115500 T 045542 
: % * ® * “ * * * oo Wee et 3600 0 5 3 
22 % kath * rT Ts Te * * * * * 20115700 T 015532 
@ 20115800 T 0155%2 
ea % $C21) CONTAINS STACK SIZE» SEGOL3) CONTAINS PRT SIZE ae a115 000 015512 
st NFOCOMIX™2XNOX*#2),0CF] t= 20116500 7 0155%2 
Or CSTACKLOCISGETSPACECSEGOL3) INX SCL21) INX 64% 25 3))+23 20116600 7 01454630 
2 IF STACKKOC © 0 THEN &% NO MEMORY 20116700 O162% 
i BEGIN . 20116900 + O463%4 
@ > NG? Ie SC2)] LSS O THEN &@ ESwED UR xS*ED 20116900 T 046383 
pC BEGIN — 20117000 T 046433 
ai] STREAMC(OSs]2sSPACE(4))3 os 20117100 T 04654 
@r -- OSteP9L 17" NOT XS#EDONG MEM) «N35 20117200 tT 0146890 
SPOUTER( I sUNI TNO? 123° Section yee ee 20117300 Y 047130 
Cel t= ABS(St2])3 % MARK IT *NOT* XS"ED / ES@ED 20117400 rT 017183 
e DISKWAITCCS IN¥Y 0)» 30% THISLINK)$ % WRITE BACK SHEET 20117500 Tt 017332 
END} % IF ES"ED 4 XS*ED —— 20117600 T 0475%2 
JARROWONTX) T203 20117610 t O175%2 
er COREs(FFI t= CORE.CFF) = S(2013 20117620 T 01763 
IF MESAGESPACE NEQ O THEN % BOY MESAGE BUILT 20117630 o179! 
BEGIN 201217640 018080 
@ FORGETSPACECMESAGESPACE)3 20117650 018082 
e 
e o 
@r 
@ | 
@ Fe 
@ 


Data Documents/Inc. 


7 me Ae eS > = Tk =. 3 


Ue ee eer rele OR 63) + 15 & SCALISSTACKSICE 20118900 T 019582 e 
=MESTACKLUC@2] “C.t=SEG0 NX aTK 10 THEN == 2 N00 TF 019980 
BEGIN Z RETURN REMAINDER OF PRT SPACE 20119100 T 020333 ' 
IF NOT STOREY THEN SLEEP CLTOGLEI*STOREMASK pj 20119600 T 020494 * |@ 
OcKTO STOREMA: tot. () 9700 0207: ’ 3 
MCL) %= I @ CSTACKLUC= 2dECTEI & MIXE9?4246)3 % NEW LINK 20119900 T 021083 le 
pti. CFF) te Lh % BACK LINK 20120000 ry O214%4 : 
ACKLOC#: % FORWARD LINK 2012010 0216 7 
DMDeRERG (STEGER ERG we cae 20120600 T 021984 7 
FORGETSPACE (L+2)3 ; 20120800 T Og22t3. |@ 
; NO3 ; - eer eee oe (} V900 eek f} 9 
% ZERO OUT STACK TO EASE PROBLEMS OF CONGENITAL DUMP=READERS 20121000 tT O224!0 
MrSTACKLOC] t= @33333333333333333 20121100 T 022410 @ 
MOVECT@STACKLOC™is STACKLOCs STACKLOC+1)3 ete _29121200 Q225 22 12 
7 : : ee oe RES << 2 201214300 T O228te if 13} 
Be ga uP ae Me te ats cae a ghia 20121400 y og2et2 @ 
% READ IN PRT. FROM OYSK Q B06 O228! 15 
% ® e. 9 ° ® BY) | ° ° * ® « ® ® e e ® J e ¢ ry 20121600 tT 022832 
| 20121700 T O228t2 |/@ 
OISKWAITC@T, SEGOCI)00CF ACTUALD SKADDRESS(SE OC2jeCCF] 20121800 T 022822 18 
% SEGof2) = RELATIVE OISKk ADDRESS OF THE. PRT IN TRE CODE FILE 20121900 T 023710 ae 19 
% SEGO(3] * SIZE OF THE PRT... 20122000 7 023710 © eq @ 
RPSEPRTROWC MIX] ¢SCMC &1023 §:38310)3 % DESCRIPTOR TO THE PRT 2ol2e2i00 +  O237!%0 ere 2y 
20122200 T O240%4 ; 
% kate akkak keke kkk kk aiken keke 20122300 T O24031 2 @ 
% * x eer ae ee ee ee err were nemeeee 1) uae Tree i 
% Rant Whee Oe * * oe * * 20122500. 7 024034 ca 
x i. ee ee ee ae * * w ot 20122600 T O240%,4 | @ 
a teeth eke hae eae O eae nak eee * 0. pats Eon As 0122700 02408 2 
20122800 024084 my 
IF REENTRY TREN 20123000 024034 21 @ 


x RESENTRANT JOB* PRTC4] POINTS TO EXISTING SEGMENT DICTIONARY | 20423200 7 Oadyte 3 
COMMENT BUILD. pipe ICwe TRCW> & INCW3 20123300 Tf ere | @ 
MESTACKLO 2 ee 123400 7 Op443 
MESTACKLOC+1) : WAGE EICLEELE ORE . 20123500 1 LEE 
MeSTACKLOC#2) = *FLAG(O); 20123600 T 0246%3 | @ 
TRP(B) t= “FLAGCSTACKLOC+2)3 20123700 + 02493 36 
TRP 102. ts eee 20423800 7. 37 
END 3 REENTRY : 20123900 1 } | @ 
. ed BO cgay 20124000 t 0 as 
BEGIN 20124100 T 025480 ac 
NFOC (MIX*1)XNDX41) $5 20124700 T 025810 | @ 
TRPC4IPSCMETPSGETSPACECSEGOCI1) CCFI>191)+21)3 20124900 T  0¢ 2 
“  PYSKWALTCeTs SEGODT CCF Is. “ACTUALDT SKADDRESSOSEGOCO]eCCFI)I3 © 0125000 T. 026510 ‘la 
- % SEGOLOJ= RELATIVE OYSK ADDRESS OF SEGMENT DICTIONARY . 20125400 t. 027342 4@ 
_ SEGOL lz. SIZE OF. HE SEGME NT pic (ONARY | : ‘ “= 2eota5200 "7 O27332 ae ” 145 
McTRP(4)] t= SEGO(1]. CCF) “143 % SEGDICT[OJ®SIZE OF DICTIONARY 20125300 tT OQar7r3ta 


$ SET OMIT = NOTCAUXMEM) eee tT O276%2 
Q 


or Oarete 
4 ‘Og76! 


Stee ee teeew 


zoig6400 


5. 
te * 20127000 7, O276%2 B 
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aes dekh aah es 28 


Ts SPACE (DALOCs12£,04034213 g 


OO oTSO0 7 Oz8ith 


Sas Sles=sle65 GSssDALUCSIZE wWDS; 

1 IF OL aY DISK NEQ 0 THEN a aL ay DISK OBTAINED ABOVE 

2 BEGIN... 

3 DALOCEMIxe0). ts #2000023. 

4 DALOCCMIxe1] *=3 OLAYCISKS 

. ULAYDISK t= 03 

: END; 

‘ OLAYMASK te. TWOCMT ed OR OLAYMASKS. % QLAYS ia ALLOWABLE 

8 

9 | Se F525 ee ee Pere oo i woe te LL. ce * 

ho % * ” ee a * ok * 
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5 x PLACE COMMON" VALUE IN FIRST SIMPLE VARIABLE IN THE PRT 

8 NT4 t= SC49)3 % COMMON VALUE IN SHEET(19) 

7 FOR Its @25 BTEP 1 WHILE NTL NEG O AND I LSS SEGOL3) pu 

4 If TRP{I=0 THEN % SIMPLE VARIABLE (NOT A DESCRIPTOR) sears Snore 

. BEGIN 

‘ TRPCT ARNT IS 

; NILE O ee ee i __ 
END3 

3 CELINKs % DELINK SHEET ENTRY FROM SHEET QUEUE 


EXITE 


P IRE URNRCWJe. STS oO». RDS» 
END PROCEDURE SELECTRUN23 


Os 
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% FOR ADDITIONAL INFORMATION CONCERNING THE SHEET,» SEE THE 
% DOCUMENT aT SEQUENCE NUMBER. 20312000 


PROCEQURE SELECTRUN(F 3 VALUE Fs REAL F3 


Be Se SSaE SE SE 
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20429200 
20129300 
20129400 
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20129700 
201429800 
20129900 
20130000 
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20140000 


20140100 
f" LO900 


20140300 
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20140500 1 


20140600. 


HL AOPFOD. 


20140800 
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20141400 
0 


20128400° 


20141000 1 
20$41400 ‘ 


20141300 


y O28171 

02Ah220 
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T ‘O20a50 
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928740 
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r 0286982 
O289%2 
T 0289!2 
tT 029089 
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7r 029633 
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T ogee re 
ts 
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T O297%4 
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y O298%2 
T 030210 
r 030320 


0303%0 


T 
tT 030380 
i 0.20 6 
T 030533 
STZE= 0306 
OC0a!rO 
“000080 
tT 0000t0 
sVetated #1 
y 000080 
ADDRESS a 
000030 
efobeten i0) 
000040 


. 000080 
pou 


20141600 7 


a0 700 


BGLa1O06 


eo racue? 


20142300 7° 
20442300 7 


8 4g AHS 


“20142500 
20142600 


20142700 


£0143 808 


20143000 


-pogata 
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T 000080 
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00526 
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ee ee 55 Th gy eS ~ Ry 
is oF 5 ae ie 3 G 
a 


NAME ADDR 
REAL PASSLEVEL 
SVALVE 


“RETURNS 


423% 


JRNRCW 


eeajua 


eo eelaa 


4170C0%*)]5 
+18(*Ja 


+4904 )— 
-NT2E¥) — 
CONT2U*73. 


LBL +is 
ADDR + 


» 


PASSLEVEL? — 


PASSLEVEL # 45. : 
RETURNMSCW ¢ 43 0 __ 


DEFINE SHEETMAX = MIXMax#3 


: ee  yaeNOTE News 
UR rr Cw’ AND. RETURNRCW #8 eM 
ZL VARTABLES DECLAREU IN THIS PROCEDURE, 


eee BE 


L.A 


T 


“COENT2 t= (XCLOGK DIV 36009) ead 60 + (NT? DIV 60)x100 + 
Od ye piv. Pets 2 


$ SET UMIT = 


STA 


NOT(PACKETS) 


R “ON 


gu IT 


IN 
CABEL, JARSPACE » TRYAGATNG: 


ON 


Bi a.. 


. Q 


COMMENT THE VALUE OF "TYPE" MAY DETERMINE WHICH PORTIONS OF 


PROCEDURE 


"SELECTRUNI™ AND/UR "SELECTRUNE” Wl 


BE EXECUTED. 


PROCEDURE “SELECTRUNI™ AND “SELECTRUN2" MAY? TIN TURN» SPECIFY 


THE BRANCH POINT IN THIS PROCEDURE. | 
THE FOLLOWING DEFINES aRe USED TO SP 


IN SWITCH TOW. 
END OF COMMENTS 


FY TH 


BRANCH POINT 


20143200 T 0000!0 
0 4 00 000020 
20143400 7 000010 
ppp tate 000010 
600 0900040 
20143700 rT Q0Q0%0 
20143900 Tt 0000?0 
0 4000 090080 
20144100 7, O000!0. 
20144200 Tt O000t0 
9144300 -O000%0 
20144400 ft 000080 
20144500 r Q000%0 
“a 4400 7 000020 
20145700 7 000080. 
20145800 ry Q000%0 
on a8o00 rr.” Go0ntO- 
20146000 7 On00?0 
20146100 T Ou0080 
0 6200 9.00020 
20146300 7 oo0gto 
20146400 t O000%0 
if # eraraves Bs 
20146419 7 O00OtO 
20146500 ry Q0d0tO 
20146700 T O000t0- 
20146800 T 000040 
Int H6O00 —-goqontko 
20147000 T QCOOID 
20147300 tT O000!0 
20147200 000080 


“20147 300 yy. 000080 
“20147400 7 OoootO 


20447500 000080 
20147600 7 000080 
20147700 T 0000t0 


20147800 


000030 


| : DEFINE STARTING si | ” 20147900. T 900080 
py ig QONTINUEING e oe : 20148000 7 000080 : 
io - rING ee ae 20148101 tee OOTo oe, 2 
AONENG = 4d Bo1agnoo T 000080 r 
PASSING = St . 20148300 t occoto «|@ 
— | SQUATING = 6H} | 20148400 T 000080 _ 43 
oe TOE = | | 20148500 7 O000TO ae 
ae P00: 002 00 020207 0% 0.0000 090700000700 0)8 20148700 ! Q0q00t0 ] 
Bf he as ROW te RCW & PCy eSELECTRUN®LODI(CCTC]S 20189300 7 000581 45 
20149300 7 000683 : 
20149400 T 000683 | 
, 20149500 y 000712 
ge 201 SoeTongesy i 
a ee C e 
0149900 1 O00att : 
52 20150000 Tt ‘000910 53 @ 
20150100 1 009t2 : 
Bie Bosgao Osis a 
a fa @ 
20150500 T OOl2%t 
@ °®@ 
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. 2 , a zy * 3 * R} = 


IF TYPESSTAKTING AND NOT SHEETLOCKED THEN 


N 
: SLEEP (LTOGLE]» SHEETMASK)) 
2 LOCKTOG(SHEETMASK )3 
3 | TLOCKED ts 
‘ ENDS 
5 PCCSVALUEJs STS)3 
6 RUNL?s 
7 IF TYPE LSS 0 THEN 
8 Go. 710 SWCTYPE!=ABSCTYPE I) 
9 END 
10 
uM CONTINUES 
12) 
; PUMIX. $s Os 
Na 7 OF eae t= 


5 QV "019K  ")=C(NOT 6 AND 

8 aaa QV "PRNPBT ")=(NUT Q)) OR 

7 (CSCO) EQV "LIBMAIN")=(NUT G)) OR 

8 SCO) E@V "LOCNTRL")=(NUT 0)))) THEN 

9 Ie CCCSLOT QV "PRNPBT ")® (NOT 02) AND AUTOPRINT) OR 
~ CCCS60) EQ "LOGNTRL™ (NOT 0)) AND CDONLY) THEN 
1 


‘OB tij ts _ 
3 & NOTes A NEGATIVE SIGN FOR MCPYJOB IMPLIES seen THIS JOB 
% SH Di ARTED REGARDLE [HE A AB Ty Q 
x SYSTEM CORE, 
i sO HEN NO INTRIN 


erica ELITE: INTRINSICS FILEses#"5 
SPOUTC(NT3)3 

SLEEP(CINTSIZE],@177793- 

END, 


WHILE CNT22SXCLOCK+P 


RTR)) GEG WITCHINGHOUR DO MIDNIGHTS 


Ie NOT weraeg. THEN Si NOT. ALEEMAEA WLOCNTRL"s SPRNPBTS 
IF OLAYOUSK#0 THEN & NO OLAY OFSK OBTAINED YET. ; 
IFCOLAYBISK? =PETUSERDISK(500 OR Me1))80 THEN & NO OLAY OISK 
BEGIN 
If $2] LS§S_0 THEN %_xS"ED/ES7ED 


Re SSeS Ss BESESE SRE SREVEESE 


aSPACECS)I3 ny ‘ 
T XS*EOCNO OLAY piakaens 
SPOUTER CIsUNITNO*1)3 
END3 


@U TO PASSs__ 


1) AN XS OR ES MESSAGE AS BEEN ENTERED FOR THIS JOB» CIN WHICH 


20150600 
0150700 
20150800 
20150900 
0 O00 
20151100 
2015120C 


20151400 


20151500, 


20151700 
201514800 


20152000 
20152300 


0152200 
20152300 
20152400 
20152500 
20152600 


20152700: 
C15 2800. 


20152900 


20153000 


20153200 


20159306 


20153300 
appara 


201533800 
20153900 
20154000 
20154100 
20154200 

0 7700 


20158200 


20159200 
20159300 


20159400 | 


20159500 
20159600 
20159700 
20159800 
20459900 


20160000 
201 0. 
Lae 20 j Lo 
20160400 


20157800. 
20157900 7 


“20158100 
20158400 
pihbatocdte 


r- BAQ0 | 
30159400 


—_ 


“44 


a4 44 


an 


4d 


SH 4H a a 


COLES 
OC} 4.9 - 


003613 
004020 


“Doar” 


“005081 — 
“0053t3" 
“O054s 


-—-0068t0 
Oo6at 

006810 
006850 
Tooesto 


006890 
 O66R bo. 


061233 ] 
OO 


001443 


0020%2 
ee 


ere 
oo2ate 
Og2714. 
00273 
0027343 
00% 3 
002713 
O028t2- 


Oo30'4 
00320 
O034%0 


004584 
004584 


005630 
005630 
0056'0 
006840 


0069t3 
007283 
00738 

OOrAss 
OO7 als 
oo7712 
00814%1 
008210 


O082I2 


@ @ \e 
@ CASE SHEETDIDDLER TURNED ON SL2@Je0121) AND CALLED SELECTION)» 20160500 7 o082ta e 
R_2) THe SUM OF THIS UBS CORE REQUIREMENTS (SC20)) PLUS SUM 201 60KON TT B28 
OF THE CORE REQUIREMENTS OF ALL OTHER JOBS ACTUALLY RUNNING 20160700 T oeate . ; 
@ CCORE » (FFI) 1S LESS” THAN THE TOTAL AMOUNT oF CORE AVAILABLE 20160800 ft | Bebgte ; ~ fp @ 
NR USER: PROGRAM le At AD GOO." 3 
TIMES THE MULTIPROCESSING FACTOR CCOREs Catia)))s 20161000 T eee : 
© OR 3) "LDCNTRL/DISK" IS BEING TESTED AND THE "CDONLY" OPTION 1° SET 20161100 tT O0B82t2 :|@ 
OSA NE aed CANES EI SAV SAE ON EST OE OH14 O¢ oray: , 6 
e *PANPGT /D ISK" IS BEING pEstee AND THE “AUTOPRNT® OPTION 1S SET 20161300 T O08at2 © le 
18 
Of FE NG “STED an Wake MY" JOS (LIBMaINeLOcN R ’ BOL ceaoe oaee lz : 9 
PRNPBT) AND THE ABOVE CONDITIONS ARE NOT SATISFIED» THE 20161600 7 008232 ba 
@ THE APPARENT AMOUNT OF eects cORE (AS SHOWN IN THE ncORE” enter ue T 008282 1@ 
A 3 5 Q : R 12 
. IN “ORDER 70 ATTEMPT. TO FORCE THESE JOBS INe 20161900 T 008242 3 
@ END OF CONMENTS 20162000 tT 0082! e @ 
core 0142500 FF  OOBst HS 
IF Sta). (8! 101s 5 THEN & "RUN" Joa GETS SPECIAL HANDLING 20162300 T O0082!2 
® $ SEY UMIT = NOTCUATACUM AND RVE ) 20162400 T 008430 @ 
HF N 0162700 Ogsaito 18 
TYPE t# RUNING} oo i 20162800. 7 008432 3 
er PCLSVALUE]»STS)3) : | 20162900 t coasts 7 oy @ 
RUN os am eon Se ee as 01463000 008430 aq 
‘ If TYPE LSS O THEN 20163100 T O0086%2 re 
@: GO TO SwlTYPE?saBS(TYPE)]3 20163200 T 008734 24 @ 
b _ENOS % [F A "RUN" REQUEST eee 20163300 T O0928o. 24 
3 IF NOMEM NE@ O THEN GO TO PASS; 20164000 T 009282 2 
@r IF (Sta) LSS 0) OR CMCPIGB+Citt3) THEN GO TO JARSPACES 20164200 T 00944 23 @ 
gp % MCPUOBe(14135) MEANS RUN JT REGA SS OF CORE AVAILABILITY 20164300 OO97!0 2 
2 FP % SC2]+eC182) st: LOZNORMAL, L=NOT USEDs 2eXSnEDs 3SES™ED] 209164400 T 009710 . 28 
SOF $ SET UM]T = NOT (BREAKOUT) 20164600 T 0097t0 1@ 
3 ‘ OM = NOTCWURKSET 2016 009730 By 
ae IFS CE¥ScQRE.(42143/100)° GTR O THEN % FACTOR GTR 0 20165300 7 009730 | in 
2 @F ‘IF MCPUOB THEN Ife1.10 x 1% | % TRY AND FORCE IT IN 20169400 7 00994: @ 
Ir CORE CFF) + $€20) GTR CORE, {CFIXI] THEN GO TO PASS3 20165500 T. 01018 
20166800 Tt O105%4 
& 5 4 ee Se ee es ee ee ee ee ee ee ee ee 2 ee oe 2 20166900 T 040584 3 ® 
6 % * * * * x o& * * o* * * 20167000 T 01058 36 
¥ ett.) ee ee Se ee ee ot ee weet 20467100 T O1OSty ip 
e ; ne er ee ee ewe a ee ee * 20167200 T O105%4 1@ 
9 B weak Ok * o¥ * eee Ow! DS dRET. h AETE thn itind okie Raidtedediel “20167300 7 010581 9 
20167400 y 010544 10 
r) JARSPACES 20167500 7 010584 |@ 
cite eit 20167600 T 010583 42 
% FIND A Mix SLOT FGR THIS JOB ~ oe eee ee — 20167700 7 010544 - 4 
@ FOR MyXteq STEP 2 UNTIL MIXMAX 09 oe 20167800 7 O105N4 4@ 
Sf F JAREMIXs*)30 THEN GO LOAD; — gat on 20167900 7. 010740... 45 
; j 20168000 011083 46 
e@ % NO FREE SPACE IN JAR? PASS ENTRY WITHOUT DELINKING AND CONTINVE 20168100 011083 mh 
Gc TO aes A 
| ee ae, 2 : 20168700 7 Otity ‘e 
@r * eye thd Ln ee ee ee 2016ag00. OPEL... 5 @ 
‘ ee Te ee ee ee ee ee oe 280 TY Orie 61 
62 * ke we kee Ok * * tekkh keene en 1 69000 Ovi134 5 
@ BS * * * * a! * *  * * * © &* 20169100 T O11444 5 @ 
: * akkwe * * 0 9200 T 0 3 54 
5 : 5! 
@ | \e 
JAR ROW 20169600 0141181 
@ @ @ 
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g . 5 a = a ‘a A a A 5 Th 3 cy 5 x, 


SG pee ae 1= MIX3 #2 PLACE MIX INDEX IN MEMORY LINK 
R t= CORE Fl] + 3 20 % ADD IN = a 
$ SET OMIT = NOTCPACKETS) 
Geir ae ts ae 
AR 3! 


: ae THIS IS A "Run" _vO8s CHANGE a TO SAY “EXECUTE” 


eGo" PART OF COMPILE AND GO 
CONPILE AND: €0 


oor om to fF WH = 


= 
i=} 


COMPILE FOR SYNTAX 
CUMPILE TO LIBRARY 
RUN Ob 
STREAM CAT eJANUMIX? 3341301 18j¢ DtslOTJ2s &% CREATION DATE FROM HDR 


= 
= 


= 
te 


= 
> 


a 


As OS#S8DEC3 


Ds 
GIMEDATECCDTIeCCFIJs» *OT)s % CONVERT DATE TO **MMODYY"* FURMAT 
JARUMI X53) t= SL16)3 % PROCESS TIME LIM 
JARCMYX94) 3% SCL7IS &% 740 TIME LIMIT 
STREAMCDATE, AballIy)3 4% CONVERT DATE TO OCTAL FoR LOGGING 
BEGIN: 
ST*=LOC DATES DS?eBUCT3 
ENDS 
ARCMIXs5)%s(XCLUCK+PCRTR)) & 1:25123)3 % DATE ANL 
JARUMIXs 6) * SLOTESTA3IC 2¢2'615 % CARD/PSEUDO ROR» UN <r IN Vote) 
JAREMIXS 7). 93 0) % TOLETIME ENTRY 
VARUMIX9I CFF] $s 08 & ZERO OUT. "CHAIN" DISK ADDRESS FIELO 
Z JARCMIXs8] THROUGH JARCMIX*#29] STILL CONTAIN CONTENTS OF 
% QBUJECT FILE HEADER AS OBTAINED ABOVE 
YAREMIX»9) t= MLHDR INX 91,CCFJ @ McPJGB(1247381) & 
“CS$C2),C4t1 7 AND NOTCSC2),C2%1} OR AUTOMESS))C23473193 
% Sto), serine MEANS SUPPRESS BOU/E0U MESSAGES 
es MARK JARC9O Je (181351 FOR “"LIBMAIN'»"PRNPBT","_OCNTRL” 
IDLETIMES 
% INSURE THAT THIS yOB HAS A UNIQUE STARTING TIME CFOR 0G) 
TRYAGAIN: 


IF 1 NEQ MIX THEN % NOT OUR JOB 
IF JAR IN TX# Ss C24i2u)sJAR(155),¢24824] THEN % SaMeE START TIME 


ia N 

RCW 1X25) 024: 24 TFaVAR TH IX® 51, ERAT EATS) * BUMP THE TIME 
i TRYAGAINE: 
-END3- ae 


ENDS 
%%% SEE ALSO "SEGMENT ZERO" SECTION IN PROCEDURE “SELECTRUN2”™ FOR 
_4ER F YATHER Ah TERATIUNS TU THE JAR 


Rewne 


Be Bei ae 


* * * * * 


TTT TE REET CNTAFSSC2I,068210))=5 THEN 2 ELSE NT1)68%38310); 


% SC2)eC281]1 WHEN ES@EUs S£21) CONTAINS STACK SIZE 


20169800 
0 OAC 
20170700 
pt ag be 


S017 100 
20171300 
0 0 ¢ 


20171500. 
20171600 T 


20171800 


20171900 


r 
O oneke 


20172100 7 


20472200 
0: e300) 
20172400 


20172500 
20172400 


20173000 
20173100 
20173200 
20173300 


20172700 
20172900. 


ede sabes 
20173000 


20174400 
20174200 
20174300 
201748400 


20174500 


20174600 
20174800 
20174900 


20175100. 


011344 


O119t0 


ae 


Q ° 
012984 


042944 


01390 
Q13982 


015994 
015943 


SoI7 S400 5 


20175500. 


‘ 400 
20175800 1  O4729 
900 T. 


20176500 
20176200 
0 6200 


20176400 


20176500 t 


20176700 
et eee y 


20178200 


44 


THI 
01750 


O17 510 __ 


0179380 


@ @ \e 
e NFOLCMIX™1)xNDX*2]¢ =OeS(20I(CTFIRCCCLUCK#PCRTR)) DIy 60)C1t3121795 20178900 T 0179%0 @ 
P MIX = zZ 7 048 
PROCTIMECMIX]# *SCIOJ@CLOCK*PCRTR)S & PROCESS TIME LIMIT IN SC16} 20179200 T 018640 : rad 
e $ SEY OMIT = NOTCKORKSET) 20179210 y Oj8@t3 :1@ 
$ § T-= NOT CNEALUGGING __ 20179.200 016881; 3 
CcRIMear A t= "SC17)3 % 1/0 TIME LIMIT Iw SC17] 20179600 T 016833 ‘ 
e : 20179700 T 019032 |@ 
BALLS Lh 4% % % % % Se O179800 019032 i 
oe ee Bk a eG % %% 20179900 7 0490%2 7 
PUMIXtSMIXS «= -R&REX a a ee: x 20180000 7 019082 | |@ 
pS Milas og 4 ¥ LZ y x 3 ee aes 4180100 o. 8 
% %K% a %& & %%% % % 20180200 T 019184 i 
ro) 20180300 T 049443 1@ 
USEKCQUECMIX JtsA8S (S124 J); ¥ USERCODE IN S(24 7 eee 20180400 T 04948 12 
CHANGEABORT(S{[6])3 20180600 T 0493%0 : 3 
@ Ip $€2],08%19320: THEN FORGETESPpISK(S(25))3 % FORGET GBveSKELFTON 20180800 T O494%0 s@ 
4 SC2).CattO]s0 FOR "GU" PART OF MCOMPILE AND GO" 2o1R0900 019780 hs 
STREAM CQ#SFSROW (MIX ISS(MLGETSPACE(4* 001 421) 84(83 382101 )3 20181000 T 049730 
@ DSt=32L17"0"5 20181100 + 020183 hed 
UMIT = NOTCAUXMEM) gestions é My 
; 20185700 7 020611 19 
@r “TYPE #3 CONTINUEINGS 20185800 tT Oz06t, 1 @ 
fe ore 0185900 020710 i 21 
; % SELECTRUN2 IS CONCERNED WITR: 20186000 T 020730 a 
@: %  BOd MESSAGE 20186100 T 020780 3 @ 
P : IMENT ZERG of ie es etn ce POP REQU0 7. “05071 O ad 
: % STACK AND PRT Sas 20186300 fT 020780 bi 
@ > % SEGMENT DICTIONARY : 20186400 T. 020780 bs @ 
g p % DALOE. : manent H1R6500 T O707%0 2 
2 % COMMON 20186600 y 020730 8 
2 @} 20186700 T 0z07%0 23 @ 
2 PEE SVA 2$TS)3 | 0186R00 020780 a0 
8 SELECTRUN2? | - | 20186900 T 020733 Ff 
£@ tp TYPE LSS O THEN 20187000 T Oz08'1 hd 
GO TO SWETYPESSABS( TYPE) 43 s4n7+00 0270920 3. 
: 20187200 O214t4 | 
@. IF (SeG@l7].(CF150) THEN % BUILO A DUMMY FILE PARAMETER BLOCK 20187300 Ozlasi 2 @ 
é TRPCSIIS(MCGETSPaCe (1? Oe )+21) ELSE = 20187400 02153 36 
BEGIN 20187500 7 021982 | i 
eo TYPE. t= EQUATINGS ® BUILO FPB AND PROCESS Lapel EQUATION ' 20187600. O220!%0 21 @ 
: PCLSVALUE Js STS)3 e 20187700. 22 38 
SELECTRUNG 2018700 0221482 r 
@ “IF TYPEsC1#1) THEN GO TG SwtTYPESsABS(TYPEDI3 20187900 1 O2aato «|@ 
NI 88000 42 
ae oe . | | 30168100: 226810 : ‘ 
® NFOL CMI X#4)xNDX) ie MAPLSAI - | 20188600 : jg @ 
-% TRPE3) VALUE SET BY SELECTRUNY FOR NON@MCP TYPE yoB - 20188800. - } ye 
Go TO WINDUPS 20188900 023042 5 
. | 20189000 023180 J 
B| 3 g 
@; Tye. i PASSIN NOP 2 + «4 @ 
: PECSVALUED@STS)3 OY 023913 51 
' TYE 20189500 T O232%2 : 
@| IF TYPE LSS 0 THEN | 20189600 T 023310 e 
Go TO SWLTYPE?=ABS(TYPE) 3 % SELECTRUNI DETERMINES BRANCH PUINT 20189700 T 023313 
5 Te tpg ae : eee 2 ey ee 56 
@ ks. | ‘ | @ 
rw SS ss ee Ss 2 20190100 S897 
e @ @ 


oonr mo mm fF WH — 


= 
S 


= 
= 


Data Documents/inc. 


Amn 


sey ; 


Be BEE BE 


* wk * * * * * * * * 
* * oko * * * * eka 
* w oe * ® + & * of * 
hak a Wee * Q week ewe OW 


$ SET OMIT ® NOTCWURKSET) 


% INITIALIZE RInER Per CELLS 
RPFLQ CJ WOR 
TRPC2) te. MEMORYS 
TRPC10] ts TRP&CSTACKLOC+1 2 CL8N33F15I3 
If JAREMIX20] £95 0 THEN & COMPILE JOB 
BEGIN 
IFONTISs¥AREMIX,2)6(8210))=4 THEN &% CUMPILE TO LIBRARY 
TRP(@26)]!$sS5(22] % SAVE FACIUR FOR OBVECT FILE IN SHEE 
ELSE YF NTi=3 THEN *& COMPILE FOR SYNTAX ONLY 
BEGIN 
TRPL@26)%$s"13 % SAVE FACTOR = (* % OONT SAVE OBJ 
JAREMIXe2),(821g)i=23 % MARK IT AN “EXECUTE” JOB 
ENDS 
ND3 2 OMPILE OB 
TRP C6] PS FLAG(OS (LTRP (63) (48: 334 152832(83 38610])) 
Ip JARCMIX»2] GE@ 0 THEN &% NOT COBOL 


TRP JisFLAGCORLTRP 13618233215) 88 THY OJ)3 % "OAT" 


BRING IN STARTING SEGMENT&BUILD CONTROL WORDS FUR INITIATES 
MAKEPRESENT (TRP es POLISH(SEGGL 6)» TRPLAJ*INXsLO0) 008310) )3 


6) = STAR “N 


NIRY 


% SEGDICTESEGOL OI}. testo) = PRT "LOCNe OF DESC. FOR STARTING SEGMENT 


Wet ACKL OS ea] te EUR RECURS EGE ae Ete TPN ne UR) (18%45)); 


0 ts" 6 
MrSTACKLOC] t= PUTT ET EEPreVeyrry 
TRPL A] t= “FLAGCSTACKLUC+2Z)3 & INITIATE CONTRUL WORD 


NT{3=STRP(4),[1826)) NE@ O THEN 
INTABLEROWLMIXJP=INTABLEROWENT1I) 
ELSE IF tial na oe ugh, 1]) THEN a NOT SYSTEM TYPE vQB 


a SINTSIZES 
INTABLEROWECMIXI2= (MC GETSPACECI2121)+2) 1761682 38210)5 
STREAMCAt=] >, TtsINTABLEROWEMIXI)3 

BEGIN 

Sitsts sliestngs” ‘DSIeA WOS? 


If SCa),C2t1] THEN * St2], tetiist WHEN ESEDs CALL TERMINATE 


BEGIN. 
JARCMIXs 2) rerrereses & MARK IT TERMINA ED 
TERMINATECMIX & 


CIF JARCMIXs23ef 721) AND C¥PCETRPCTSXJ])2.PBIT THEN 


90 ELSE 35)CCTFI)3 
END 
ELSE. S 
IF JARUMIXe2 700731). THEN. _ TASK WHOSE PARENT HAS 
IF CTSKAseePCCTRPLTSXII)), PEIT THEN % DECLARED TASK ARRAY 
BEGIN 
une See be JAREMIXS O13 


20190700 T 

0190: 

20190400 T 

20190800 T 
0190400 

20190610 T 

20190700 T 
ROO 


20190900 7. 


201914100 
20191200 T 
20193300 T 
20191400 
20191500 T 
20191600 Tf 


2014914700 


20191800 T 
20191900 T 
N19 2000 
20192400 oT 
20192200 T 
O44 UG 
20192400 T 
20192500 T 
Q 4 OO 


20192700 T 


- 20492800 T 


r * Bf) (}: 
20193000 T 
20193100 + 

0 ; le 
20193300 7 
20193400 7 

ObiS OO 
20194100 T 
20194300 T 
20194400 
20#94500 T 
ee. T 


20194a00 T 
20194900 T 
20195000 
204195400 T 
20195200 17 
OL go “00 
20195500 T 
20195600 Tf 
204195700 
20196300 Tf 


20496400 7 
20196500 T. 


20196600 T 
20196700 T 
20196800 T 
20196900.T 
20897000 T 
20197400. 

20197200 r 


023980 
930 


023980 


024940 


O. RES 
023910 
0239%0 
023930 
O2g40%4 
Og4132 
0245%0 
024680 
Q2488 

024933 
025133 
0252! 

025383 
025683 
¢ 6% 

025633 
026010. 


09641 


0265'1 


0265%4 


() eRe 
02682 
O2eata 
boreto. 
027880 
027803 
O282%4 
028342 
¢ 
028884 
028910 
Q2g3t 
OZgGato 
O294re 


9996 
029583 


029583 
02958 
029513 
029613 
Q 
030084 
030083 
03038 
Q305183 
030833 
Q305% 
030783 
03100 
03108 
O312b2.. 
BSeale 


REVERT 


Data Documents/inc. 


zy o 3 a RY 


ta 


Ss 8 a se a 
5.3 8 8 & = 8 BS S 


a 


WORDS 


$ SET UMIT = NOTCNEWLOGGING) 20197300 T 0317380 
SAVEM MIX)3 oe 041780 
PRYORCMIX] t® $£16)3 %.PRIORITY IN SHEET(18]3 20198500 T 031743 
If Feo THEN * SHEET ENTRY NOT PASSED AS A PARAMETER 20199200 ° OFL9t1 

BEGIN: ae 99.300 032040. 
TYPE 2= CIF Sl2)}el1s11 THEN STARTING ELSE CONTINUEING)3 30199400 T 032032 
& IF ES*ED THEN RE“START SHEET SEARCHS OTHERWISE» CONTINUE UN 20199500 T 032332 
To $ ARTE ote cette 0199600 7 0 3 
ENDS 20199700 7 0325%0 
20199800 rT 032510 
erat + 0000 ok £6 
20210100 7 032580 
P4MIX t= Q3 20210200 Tt 032580 
i) -TLOCKED HEA x iG M A ; ae ae SRR eS AE ORY Oe OO See ¢ 0300. W 5 & 
If S NE@ 0 THEN FORUETSPACECS}3 ; x SPACE FOR SHEET ENTRY 20210400 7 033030 
If SEGO NEG O THEN PORGETSPACECSEGO)3 ® SPace FOR SEGMENT ZeRO 20210800 7 0332%2 
OLAYDISK NEQ O THEN FORGET ROISKCOLAYDI Sks #500 20210600 033530 
IF LBL NEO 0 THEN FORGETSPACE(LBL)S % SPace FOR Lapel EQN,ENTRIES 20210700 T 0337%2 
KILL CEMSCW])3 20211400 ry 034080 
EXD SELECTION RCUTINES _ 20211600 03408 
epoca = — SIZEs 034} 
DEFINES 20212000 T  0000%0 
= ee eae 0 A.00 jooaro 
EQUAL = 114% 20214000 T O00080 
PERTO = 429% 20215000 T a000%O 
weil AS BOIS NON TF ON008D 
QUEST B 1Gk, 2 rus 20247000 T O000%0 
POUND = 158% BLP 4 B08 175607 090080 
Sp = O ; Roce BOO 0: ~OOOH 86 
IDENT = 204+% 20219000 T O000%0 
UNLOCKV = 22H sk A SWITCH PAGEL (FUNC) JN 20219050 T 000080 
Us | = 73m, Sr OR 0) 9NAD 0000 %0 
LOCK. B 2ueeS- VALUES OF “WUNLOCKV® THROUGH "FOPENNs 20219100 T 000080 
FREE. BRM s% 20219200 T 000080 
OREN: = 268s) 0 9300 *FeleleR Ts 
PACKET = 27t ot 20219310 T 0000!0 
USER = 28> 20219400 T 000080 
RUNV = 298» 0219500 ON00tO 
COMPI 3 30#s% 20220000 7 0000%0 
EXECU = 314% 20221000 T 000080 
_ COPY. = 328, 20222000.7  0000%0 
UNLOAD = 338s 20223000 Y OdO000%0 
ADDY = 348» 20224000 T O000%0 
ENTER = 35%» 20224500 000080 
REMGV “=. 368» 20225000 tT 000040 
CHANG 378. ' 20225500 7 000080 
 ENDFI | oe 39k eS 202260 got 000040. 
$ SEY OMIT = NOTCPACKETS 20226099 * 
DATAV = 20226500 T 
_ = 20227000 ( 
AON AS 20228000 1 Ood0To 
UREBETY re) eee ee 20228190 FT. 900080. 
oPILEy ealde 20228200 7. 000080 | 
EXPIRED Z4BH» 20228300 T O000t0 
20228400 T O000!0 
A STORE NEAR THE END OF PCC 20229000 T O000!0 
«MAKES Us SE. OF THE ORDER AND: VAL § “20830000 t ~Od06t0 © 
z OCE’ THR: SaAYEN" 20231000. 7 00G010 
fe 20232000 pr -0000% 
20232500 T O00080 


Data Documents/Inc. 


‘ xs n,m y * SS SS yA RY ; 
a 5 mg S & = a i: 0 


COMMENT 
REAL MSCW 
CARD 


RCW 


SPECIAL 


REMOTE 


SLOW 
B6500 
Ss 


COPYN 
MAXY 
REEF 
FIXED 
SENSE 
saree tt 


= 
a 
= 
LJ 
= 
= 
= 
id 
3 
*® 
= 
= 
= 
= 
bl 
= 
= 
= 


a 8 Ayu 


“aie ajaia 


“Op. 


MSCwe+ls 
+0» 
RCwels 


PROCVAL +1» 


SWITCH OCPCC) "FORMA" PECIAL"3 


PAPER 
RESWOS CONTAINS RESERVED woRDS FOR CONTROL CARDS% 


MYMSCW = CARD» 


RIN CASE OF TYPED PROCEDURES 


CARDLOG#I> 


CDEX+1» 
CLOSET+1° 


KOUNT#¢1 


 CMPLAGEe 
-INVS19: 


LASTSCAN+¢1s 


OPTNN#1s 


Nae 


= PADDR, 


@ PDEXe 


20233000 
20 \) 
20234000 


rehab 


20235075 
20235080 


20235100 T 
20236000 


“2OS 37000 fT. 


20238000 
20239000 


2024aqa0 | 


202419000 


20242000 


20844900 T 


20245000 


20247000 


20847500 


Ged 7 AO 
20247700 
26247800 


900 


30247010 T 


20247920 


SO Sur eaG 
20247950 
0247960 


20248000 


20849000 
20288100 
20268105 
20288110 
20288115 


20288140 
20288445 


20288420 T. 
20288125 T 


20288135 


20286150 


20888155. 
“20288 


20288165 


20288200 
20288205 
20286 10 


0: 
20288230 


60. 


pee T 


ake Veal 


0000t0 
Q Q20 
900040 
000010 - 


000010 


00000 


0000!0 
000030 
00.0020 
0000t0 
0000%0 
avevetou sim 
000080 
Q000010 
000020 
000030 
000030 


000010 


0o00to 
0000t0 
00 «Lie 


doo0ro 
~ Q900tO 
-O900tO 

0000%0 


000010 
0000380 


900010 
leche 


900010. 


000080 
000080 


000030 


poe O48 LS 
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% 7 S a a 3 v3 Ry 1 3 x. 53 
a So © > Pr. 3 


SUURCE = SMD4+1> 20288235 tT 000080 6 
PQUTU =  SOQURCE +19 een 20288240 7 Q00030 
st = SPOUTUNIT+17 : : 20288245 7 000080. Tt 
Peek. = STHie : | 20288250 7 000080 1@ 
NITNY 2 : 3 ONPRB IES oRaleron Be 3 
USERID = UNITNO*L3 20288260 T 0000%0 ‘ 
ARRAY ACCUM = USERID+1(*], eooseee. T O000%0 |@ 
er ae ee a eR cts -| | Sem SP Col AUS CCS | en a | nO RE r 000080 ‘ 
CMM we CEQN+1 Ce), 20280275 7 O000%0- A 
DIRECT = CMMei Cele . 20288280 t 000030 | 1@ 
LPH ‘m.  OITRECTS1L* H2ABPAD on0oto._ 
PEON = NB+ilels 20286290 t 000080 r 
PROG = PEON+1L#)3 20288295 7 0000%0 1/@ 
NAME ADOR = PROG+413s Bred fee ete | 0288300 000030 ; 12 
BOOLEAN. ABORT “es ADDR¢1s. : | 20888305 7 000010 "9 
me POG.) oe a ABGRTOLD : 20288310 t 000080 | 1@ 
REA _RETURNMSCW = TOGei, | * THESE LOCALS MUST AE TH AS 20288315 OG00t0 hg 
RETURNRCWH = RETURNMSCWHy» % THREE LOCALS OF CONTROLCARD 20288320 T O00080 16 
RETURNVAL = RETURNRCW413 tT 0000!0 he 


20288325 


$ SET OMIT =. WNOTCPACKETS) — ‘ 20289009 rt d000%0 rs 
COMMENT ~ Ferse READS THE NEXT ‘CONTROL caro , ‘sets SOURCE TO BEGINNING 2029009000 7 O000%0 @ 
ARD 5. 40K OE PERT OO. Deore tS ae eae ee 0291000 O000% 0 
PROCEDURE PETER CONT INO/ORRDLUCHSOURCET: 20292000 t Oo0v0!O ir 
START OF REL SEGWENT3 DISK ADORESS = 00536 2] @ 
ws aN INT TN Ci a sg eh a ere’ 0000206 24 
REAL BMS INCA CAROM OE: SAURCE ae - 20292200 tT 000080 ml 
BEGINE ae : 20293000 7r O000!0 rs @ 
: AL: - ry . ; : : O294500 +TekeveR ae 2 
Erm@14&UNITNOL 4S! 11d) UNITNOSSABSCUNITNO)DS 20294800 7+ Og00to 28 
IF CUNITNO OR 19231 THEN & DCOM OR ZIP 20295000 rT Q003%4 23 @ 
RCE‘ SCARDLOC I) #20142545 2373737 20295400 7 00043 i 
ELSE oe ; ue ae : - 20295200 rf 000683. aye 
: BEGIN 4 NATEDOOM ee : 20295300 T Oo07%, 1 @ 
$$ OMTT = PA KE Rea Bot te e 19950909 | NO0GtO | 
IF UNITNO232 THEN Te 20296000 tT 0009t0 
$ PCP OMIT 20296001 1 0104 1 @ 
$ 5 OMIT = NOTCRPACKETS 0296099 00103 36 
READEMFROMOLSKCCIDROWLCUNITNO@32],% “Baderado + Color 37 
ae 7. ie eee eka ‘EL Sex 20298000 tT 001112 7 aa @ 
00 BEGIN Te : 20298100 y 0014430 3s 


20298111 T ‘ 
WALTIOCCARDLOC INX @4Q0000000sEsUNITNODS 20299000 + «i @ 
IF _UNITNO=30 OR Te(45t1) THEN 42 
TSTREAW(Q+12>CAROLUC)I- oe q 20299030 'F : 
BEGIN. STeLOC Gr SieSie7s0secHRsDSea uit "END et ENDS , 20299040 T 4@ 
If UNITNO@25. THEN 20299110 7 2 
BEGIN | 20299111 7 O0022t2 
STREAM(TeOSCARDLOC)3% 20300000 T 002350 hd 
: BEGIN SI*CARDLOCSOI*LOC TsDI+D1 +65 SI1¢SIal s0S*2CHRISICSI=13 20301000 T 02431 : 
we DEGCARDLOCSOLeDI“1 30540 IT" <P 3B CEO CIF Scare THEN © : = B8O301{00 Fy 002583 4 
POP 8 GIN DSeCHRSJUMP GUT 2 TO L-ENDSIF SC <" THEN se Bago uae t 002713. 1@ 
: BEGIN DIeDI"14IF Sc#oc THEN OlepI"1 END ELSE ___ 2Q801900 fT OOaoty 
DS*CHR))3) | 20301400 T 003082 5 
Lt OLeCARDLOCSOLeD -1sSTeLOC T3S1+S1+6sDSeCHRS 20301500 t 0031914 :j@ 
| 20301¢ 00 7 O0032%2 3 5 
| 4700 % 069213... 5s 
oe 


20303900 T 00407 


. 
ENO ia 20304000 tf 0040%2 e 
= 0 RDS 
, COMMENT THE SCAN ROUTINE IS USED FOR CONTROL CARD SCANNINGeS 20305000 T 00000 
2 SCAN. RETURNS THE po iN: RESULTS 3% 20306000 000040 
3 : Cin Oe fA . fi 4 OAR NO Pe LER 2 O3O07 605 HHoHHotn. 
q Q FOR PERIODS 20308000 Tf 000030 
1 FOR SLASHS 20309000 7 O000t0 
6 OR «¢ ) N MARK 0 L000 N000%0 
7 Seee FOR IDENTIFIERS IN DIRECT«S. 20311000 7 00010 
. . 3, FOR OTHER SPECTAL CHARACTERS 9% _ 20318000 T 000030 
9} ; OR "PRIORITY" Ss 4 f): noo O000L8D 
no REAL PROCEDURE SCNCUNI TNO» CARDLOC» SOURCE » ACCUMsKOUNT#LASTSCANs 20314000 T 000030 
mM START OF REL SEGMENT? DISK a~DDRESS = 00540 
n2 JIRECT)S _ 0 05.0 On00rn 
VaLUE UNITNOsCARDLOC | 3 203141400 Q000to 
14 REAL UNITNOsCARDLOC» SOURCE? | KOUNTstLASTSCAN 3 20314200 Coooto 
5 R MC«), ¢ Pe ee ee ee a0 H000%6 
8 BEGIN’ | 20315000 t 000020 
7 LABEL GOGO» TYPEOs TYPE» TYPE2s% 20346000 T O000%0 
8 SWITCH TYPE ¢ TYP sTYPELs TYPES 3% 20317000 0000%0 
9 DEFINE DSIZE = 5693% . 20318000 T 000030 
REAL 133. 20319000 7. 000040 
ABEL PERPER:¢ N320000. 1 on00TH 
; GcGO:s 20321000 T 0000%0 
2 IF LASTSCAN THEN? 20322000 T 000082 
3s BEGIN IF LASTSCAN < Q OR UNJTNO = THEN Shee eee q 100 0000! 
Sf BEGIN I © QUESTS LASTSCAN © O3 GO TO TYPE? END; 20324900 T 000340. 
2@ ke PETCHUUNTTNGs CAR DLO Ce SOURCE) 5 20325000 tT 000513 
§ 7. A ANT SO 203% 00 . O007%4 
a ai $ Set UM]T = NOTCPACKETS) 20325109 7 O007%2 
£@ 2 END3% 20326000 Tt 000782 
oP ¢ IOENTS4 Be NE Sol Bh ee OO IB POOO.T O00 R TG ic 
STREAM CJ*O*K*O#SOURCE % ACCUM)3S . 20328000 000910 


Aan A ee 7 


BEGIN: 


20329000 001140 
SI ¢ SOURCE 3 DI * ACCUM 3 DI*DI443% 


20330000 001140 


GS 


Ls IF SC =" ™ THEN BEGIN SIeSI+1s GO L ENDS 2033109000 t 001133 

‘ lF SC = ALPHA THEN 20332000 tr 001233 
Be BEGINS 20333000 00133 
: If SC *@14 THEN GO TO Lass . 20334000 F 001384 

ia - 05 © CHR 3 TALLY © 13% #0559009 rT. O014%0 
a Lit O3CIF SCRALPHA THEN BEGIN DSeC: 5% . 60007 OO1at 

¢ TALLY*TALLY+1 END ELSE JUMP OUT)3% 20337000 T 0015%2 

KETALLYS TALLY€Qs JeTALLYS DSB LIT™ "3% 20338000 T 001633 


ENO | 
“ELSE IF SO = "8" THEN 


20339000 7 0018! 
ce 20340000 T OOlat3 | 
BEGIN: SE @ S1edsx 20341000 00192 
_ SOCTF SCann" THEN JUMP OUT? 20942000 7t Oolgt: 
OS&SCHR$ TALLYSSTALLY41)3 20342250 


T 002110 

IF TUGGLE THEN % FOUND CLOSING QUOTE 20342500 7 002483 

BEGIN DS%=8 LIT" "$ SIsaSyey3 20342750 T 002210 

KeTALLYS TACLEEALE id STARA: 3 : _ 20343000 Tr 02342 

{aN ibs 03943250 1 OOaaty 
S_INVALID STRING | 203639500 7 OOz4s 


“BEGIN 20343750 


T O0241%2 
STe¢Si*315 GO &33- 20344000 Tf OO024t2 


ENDS _ 


eek es nee oo gar eee 
TALLY © 23 JeTALLYs OLeLQC KS DIeDI+735 DS*CHR 3% 20348000 7+ O025%1 
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a ~ Th eS 3 ~. RY 


END 3% 
DOUR CE ae ts 
ENDS% 
COMMENT STACK NOW CONTAINS. 3 0 FOR IDENTIFIER & NOe OF CHRS% 
oe: . &§ NO, O HRS 3 
2 FOR SPECTAL CHR & ACTUAL CHR 3% 


PCECSQURCE)»¢)3 

PCCKOUNTJ]¢)3 

GO. TO TYPELPOLISHI3% 
TYPEOtS 


1¢°23 WHILE OIRECTCI¢I1+2)40 pos 
IF COIRECTCI] E@V ACCUMLOJ])= NOT 0 THEN’ 
BEGIN IF DIRECTEI+1) 4QUEST OR UNITNO@25 OR UNITNO2Z30 THEN 
BEGIN Te*pIRECTEI+193G0 10 TYPE END END3% 
I ¢ IDENT 3 ses 
G0 TO TYPE1 3% 
TYPE234 
IF KQUNTz™«” THEN ACCUMLOJe ™ 
F_KOUNTS"¢e" QRS 
KOUNT #"," THENZ 
BEGIN LASTSCAN © 13% 
PERPER! I © PERIU3 GO To TYPEL3% 
ENDs& 
IF KOUNT=""" THEN BEGIN IF UNITNO2Z32 THEN 
IF CIOTABLECUNITNO=3293J>  _—_ 
CIDTABLECUNTTNO@32*7] THEN 
BEGIN ISENOF I} GO TO TYPE1 ENDS 
[TF UNITNO # 34 THEN 
BEGIN I*PERIOS GO TO TYPES END3 
FETCHCUNI TNOsCARDLOCs SOURCE )3 


O" GR KOQUNT3; 


$ SET UMJT = NOT RACKETS. 
GO TO GOGO} 
END} ; ES 
F_KOUNT = "3" THENS ; 
BEGIN LASTSCAN ¢ "1; GO TO PERPER END;% 
I « IF KOUNT s"/* THEN SLASH ELSE% 
CIF KOUNT = @14 THEN QUEST ELSES 
CIF KOUNT se THEN COMMA ELSES 
CIF KOUNT="=S" THEN EQUAL. ELSE &. %LP 4 
CIF KOUNTS"#" THEN POUND ELSE SPECI 3 Pod 
TYPEL: SCNeI3 
END SCAN 3% 


a eee ee BaCeDrEeN3 


LABEL FINDSLD 
ARRAY NOL*I3 


INTEGER, die FeeNaeKisRaT 
LABEL RESTARTS 


neaIn ERI arc 
Jitsy3tso} K1ssk2ssMOOULUS@13 
IF A GEO O THEN Jit=Kita(a,[6118}4A,0 241247) MOD MODULUS; 
"h GEO OTH POIRS ASE GSAS STE AH t2et2ay) Go MODULUS 


‘ LW. j , OT: 7e > “7 is Oo 1 oe a ayia 
J,teT.C3626)5 J2t=T,[30%6)3 eat Tice 


een Stee 20374 100 _005530 - 


20349000 T 002682 


20350900 7 _002¢ 


20351000 T 002683 
20352000 t 0027380 
O3 000 — 00 ae 
20354000 ¢ 002780 
20355000 T 002730 
° 6000 O00 3 
20357000 T Q028!t0 
20358000 To 0030's 
GAATAOO O06 i 
20362000 T 003084 
20363000 7 003333 
20364000 T 0035! 
20365000 7+ 003984 
20366000 T 004213 
20367000 00 $ 
20368000 T OQ04a%0 
20368100 T 004480 

9 30 


20370000 T OO4a7t3 
20371000 T Q048%3 
20372000 T 00503 

20373000 T 005380 
20374000 T 005380 


20374200 T 0057%0 
20374300 + 005833 
20374310 00603 
20374320 T 00648] 
20374400 T 006380 
20374409 00648 


20374500 Tt 0064142 
203746600. T 006510 
20375000. 7. 006580 
20376000 T 006513 
20377000 y 006880 
203780900 0070%0 
20379000 T O007240 
20380000 T Od74!0 
0380800 T  0076#0 
20381000 0078!3 
20382000 0079892 

= 0080 
20382010 000080 


START OF REL SEGMENTS OFSK ADORESS. « 
0382020 OOOO 
20382030 000080 


20382040 7 000080 
20382050 t a 
20382052 T 000010 
20382054 7 000010 


20382058 T 000330 
20382060 T 000682 
20382062 T 0009%2 
soasaEeey 410 
re oi i ae ad ts iy ei fe - 
“/ BOSBRO6R ff. OOLRIO 2k 
20382070 T Ozit2 


@ e 
e@ Kit=T.l2486)5 K2t=7.[1826)3 20382072 T OC25!1 @ 
Ning O3R20 oe 3 
' NBSs(MCN#1)38600813821013 20382076 + 002733 
@ IF C NE@ 0 THEN GO To RESTART; 20382095 7 003012 
3 at: = Ki 0 135 ale OG: . 
4 FOR J283J3 STEP 4 UNTIL K2 00 20382410 1 0033!0 
r Bi BEGIN yf=SCRAMBLE Cul eu2d3 20382320 T 003430 
6 YO £6 N O04 0 
7 ris DISKWATT (#N# 19602593 : 82741 004tt0 
@: - FOR Tso” ‘STEP 3 UNTIL 57 bo ane O3¢ T 004330 
7 : -BEG RN et } “We 40: rr OOGHTC. 
10 IF (Tienalld) NEQ @14 THEN 20382165 tT 004480 
e' IF ¢T £Q@V AJENOT 0 OR AKO THEN 20382170 YT 004582 
na IF CNBC I1+1 EQv B=NOT O OR B<O THEN GO FINDS _ 20382480 00488 
h RESTART! ENDS 20382490 T OO53f0 
@™ | eta UNTIL CJtenetad, CFF IDSO) ; 20382395 T 0055324 
ps ND? mde is 0382900 A. 
8 FURGETSPACECNG)3 20382202 T 0062!2 
@ : IF C0 THEN Ni=Q ELSE Ct03 . 20362204 T 0063!%2 
: . t ‘s 
a FINDS 
@ . “DENBELISESNBEL4195. 
A : TSsNBCI+2) CCF 3 es Golor3 
P MEN] $=yad1( 3634236] gJ2[ 30! WEISSYLSUETISTICSELETECLY ELISE 20382026 T 007380 
@? J3C12°42:6)3 20382227 7 007880 
ENDS & SEEKNAME | 


20382240 T OO79%2 
ae Seo ea tee ese 


a7 FAL PROCEOURE PP - . 2028: 600. 
START OF REL SEGMENTS DISK ADDRESS = 00586 
pa CADDR* EQN X*DEX* TYPE*UNITNO* CARDLOC*® SOURCE» ACCUMs LASTSCAN? 20384000 Tt 000030 
0 OIRECT)3 0384100 
VALVE 2 oe ree JY¥PEsUNITNO*CAROLOC | ; 20385000 +. 
REAL ADDR» -DEXs TYPE UNTTNO*CARDLOC» SOURCE, LASTSCAN 3 . eonneows 
_ARRAY EQN *) s XC], ACCUME* Js DIRECT); 20 gd 
BEGIN’ Sesarao 
REAL IQD»sKUUNTS 20388000 
LABEL ExITsERROR,NEXT : UISK ob pLPUNCH»LPAPER »% 203 00 
~ ROUNDePROTECTs nee Pani oni 203909000 T 
Creeper visoe cou % (SHM). 20391000 a 


vata vocuments/ inc. 


. a a 3 a is = 2 z 
an i S oO OG & = é 


LSFECIAL+LPRINTs LBACKsLGUPY>LFREED | Perr 000080 
SWITCH D ¢ _EFORM*LNGSLDISK aL TAPES LPUNCHsLPRINTsL PAPERS 20394900 000080. 
0399000 900020 


20396000 + 000010 


DA pe SEO % 


20396010 Tt 000010 
REAL: NOLB PNO BS nee ; _ O397000 +r 000090 
BOOLEAN FAROUTS 20397050 000070 
REAL SUBROUTINE SCANS ’ 20397300 0000!0 
_BEGIN SCANeSCN INI TNO» ARDLOC»s$ vE eo ACCL iC A 0.397200 
ra  BERECT) Cee aan es Bed 


20397900 1. 
pres) 


20399000 
20400000 
20401000 


9300 ADDRIEX 


20405000 tT 001623 


ADDR ¢ EQnL2913% 


DEX « O3% 
P ON OMASK = Bie Seen 
END3% 
IF (TYPED SCAND < IDENT THEN eo TO ERROR 
“EQN «© C4 EX N aN st Ai 
Panic Ti col r ZERO OUT EU/SPEED CELL % (ShM) 
STREAMC KOUNT» ACCUMs Z ¢ CEQNDL4)))3% 


BEG N% 
t LOC KOUNT & SIeSI+7s OleZs OSeCHRIS 
ACCUM 3 SIe*SI+13 0S KOUNT CHR 3% 


IF X01 <0 THEN JF KOUNT=4 AND ACCUM(O),(O824]="CAaRo" 
THEN FAROUT © TRUES 

If SCAN # EQUAL THEN GO TO ERRORS 

IF SCAN < IDENT TREN GO To ERRORS 

EQNC2) « EQNC3)] 6% 

EQN(OJ*O%3 EQNC1] * A CUMTORI% 


: : “END. ELSE .GO TO . ERRORS% 
ae eee a TYPE. ee SCAN ENDsx 


STR een me 
BEGIN. TREC TE "Sl estet} DleDl es) OSeKOUNT NUMP 


SSREUERE ! 
5 s S 3 


IN 
FCTYPE*SCANDA IQENT OR KOUNTSS Vie Go TO ERRORS 8 
SIRE AM 2 “KUUR KOUN : QN is 
BEGIN SI*ACCUMS SI#SI+13. DieD1#5s0SeKOUNT NUMY 


EQnE2] ae eaant © 13% $0 FILE OPEN KNOWS 1 -ABELEQUA 

IF (TYPE*SCAN)= COMMA THENS 
BEGIN% . 

IF (TYPE*SCAN)AZIGENT OR KUUNT>Y THEN GO TO ERRORS 
STREAMCS# 1 -KOUNT* KOUNT# ACCUMsT#CEQNC3)))3 
BEGIN SI*ACCUMS SleSI#gs DleDI+#SsDS*KOUNT NUM3& 
END} TYPE + SCANS% 
END& CYCLE 3% 

END CREATION DATE 3% 

NUMBERIA 


sa 
BS 
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5 4 * OT 7) 5 7 4 a > 
% oS & 5 GS & op 7 . 


A 


eS 


TPNOC@373%— 
NObaL © 05%. 


WHILE TVPEFPERIO-anD-(TYPE < FORN-OR-TYPE > FREEFY 0G 
TYPE 1SSCANS 
IF TYPE = PERIC THEN GO TO EXITIx 
G10. ROUNDSS 


[a2tilets G0 TO NEXTIE- 
LNOot% 


NOLBL ¢ 1% GO TO NEXT#s 
NOs 40) -DSKCHI % (SHM) 


TPNO ¢ 23 GU TO NEXTSS 


RE “2 a. i a iy EN a Be 
re 
pe eee ILLNT ant >3 THEN Sa - ERROR} & 


20406000 


20408000 
20409000 
O47 0000 
204104300 
20411000 
0 2090 
20413000 
20414000 


p415000 


20415400 
20415200 
0416000 


20416500 


20447000 


20418000 


20422000 


20423000 | 


J O40 


20425000 
20426000 


~ 29828000. 


20429000 


Oe OFakege 


20431000 
20432000 


20834000 


20435000 
304 35500 


20436000 
20437000 
0438000 


20439000 T 
20440000. 
20441000. 


20442000 
20443000 
20444000 


4 4H tt 4-4 


tT 001830 

00 12 6 
T Q020!2 
T 002082 


00% 
0025%2 
002633 
00283 
Oo2at2 
(00292 
Qdo03 03 i 
003033 
Oogaty 
0036'0 
003810 
004040 
O04 40 


IF CTYPE*SCAN)= SLASH THENS 20419000 T O0044!3 
BEGIN IF SCAN2IDENT THEN® 20420000 r 0047!0 
BEGIN  EQNCOJ*EQNE1]5 EQNC1I©ACCUMEG a 20421900 T 004932 


rT 005310 
7 005320 
o¥e , 
yr OO55%y 
1 005533 
593 
Oo62a%4 
006313 
6 'f) 
00660 
006682 
y OO7311 — 
T 007433 
T 
t 


T 
tT. 


4-4 


0075t0 
0Q77!%2 
0080!0 
0080 
008433 
008744 
0088! 


20445000 7 
20446000 7 
20447000. 3 


20448000 
20448400 
20449000 


20454000 
20455000 


011436 
O11410 
011740 
011710 


Data Documents/inc. 


© 
LPUNCH3% apt yr 012033 ® 
PNO?=Q03 60400 7 O38 
1 IF CTYPESSSCAN)SPERIO THEN GO TO EXITS 20461000 T 
2 1F TYPEsFREEF oe GO TO LFREE ELSE. pant dey atl 
3 YPESBACK ; oO. 
4 TPNO#20 ELSE TET 
; BEGIN at eA IF may each THEN GQ ERROR ENDS 20461300 012733 
6 A O46 ore! @ Q) 
7 IF CTY PE®SCANT®PERIO TREN he we 20461500 7 339 
e TPNO®TPNO+4. ELSE 29461600 7 013540 
? fe PESER! HEN GO TO LFREe ELS NREKARD Ay Sh 
ho : IF TYPE=D1SK THEN 20461700 rT. 013840 
Ww TPNO*TPNO+2 ELSE 20461800 7 013984 
12 : # AP a Ly e RROR 3 - ¢ al O00 #] Ne 
; IF TYPEXPERIO THEN GO NEXT ELSE GO ExyT3 20461950 7 O1442893 © 
By LPAPER#S : oe ee Ro ee 20462000 T O144te 
15 TYPE « SCAN2 NO. « 73. GO 1 NEX : O8s HOO Oi oat 
6 LSPECIAL#% 20464000 044733 
7 Ne «© 33 GU TG NEXT3% 20465000. oarts 
8) 
ue “TENOt™L A. ; : | 20866400 7 010910 
Py. IF (TYPEL#SCANISPER IO. THEN go TO exIT) 20467000 T A eis 
1 Prat EN GB) af tcc aie sie ok Ee 458 
P IF TYPESBACK THEN %P 20468000 T Sisal 
p3 LeACK? TPNO*O ELSE %P 20469000 Tt 015482 


HEN 


BEG N TPNOe4s JF ANZBACK | 
‘SCANSPERLO THEN GO ERROR; 
Ore bese aha scence THEN 


GQ 


RROR END; ZP 0470000 0 
7 20471000 T 
eoTreuye T 


i436 AJ 
016433 
016680 
) 


TYPESFREEF THEN GO TO LFREE ELSE 


20473100 
; TYPESDISK THEN 


20474000 


016910 
017033 


 TYPEATAPE. THEN GO. ERRORS 
IF TYPE *PERIO THEN GO NEXT ELSE GO ExT 


ES 


(20476000. 
20477000 


NOTEPACKETS 1 Snigeccs 
GO TO NEXTS 


20478508 
If (TYPE%=SCAN) K 20478510 
STREAMCAS@OSKOUNT*ACCUM)S (20478520 7 
BEGIN SItsaccumsS TeeSTelsO1ssboc AXDSTSKOUNT QcT ENDS 2OAT ES SO 
If CTYPE ssPCDYP)) GTR 256 PCXCHIL “20478840 7 
EQN(3)eL15%8]:eTYPE"13;GO TO NEXTS saaresse 

20479000 


$ SET OMIT 
OPY3 


017610 . 
ee 


A A ee A eS ee ey 
S & oy 


ERROR?% 


PP ceTRUED GO DOWNS % 04801 32 
Spot “TPNO*#113G0 TO NEXTI3 (pS ag AE 20481000 t O187%3 
GRE OTE! TPNO® 193 GO NEXTF ioe . 20481100 7 0169%0 
~~ SEREAL? TPNOL W12} GO TODSKCHEGKS, = lene (SHM) if 20482000 T 01904: 
“UPDATE 3 TPNOe 193 GQ TU DSKCHECK3 ~ 20483000 T 049182 
PROTECTS TPNO*263 . 20483100 7 0392383 
DSKCHECK3 x (SHM) 20484000 019382 
Gyr ERs Es NJ@COMMA THEN GO TO OSKCHECKS. (SHM) ~ 20464050 7 
eS OS a 4M “29484100. 47. 


20484156. 
20484200 
20484250 

20484300 _ 


IF SCAN NEQ EQUAL THEN GO TO ERROR ELSE 
IF (TYPEt=SCAN) NEG IDENT OR KOUNT GTR 2 THEN GO ERRORS 
: STREAMCKOUNT »ACCUM»T IS ETYPE])3_ (SHM) 


Its p 081 eKOUNT. acts 


2 4% oC ee 
EQNE12)4C1AtS)#STYPE413 20484500 020633 


Data Documents/Inc. 


a SW Tr x. = > 
he 


. TO DSKCHECKS % ee 
M 
ELSE. IF TYPESFAST OR TYPESSLON THEN % (SHM) 
a BEGIN: : % (SHRM) 
EQGNDIS) 046%; 1} #CTYPER OW ; ; * (SHM) 
GO TO DSKCHECKS % (SHM) 
END 
LSE IF TYPE = SENSE THEN Seta Si 
BEGIN: - yoo 
—  EONCL2760158199843 
GB TO HSK K 
ENDS 
M GU TO ROUNDS % (SHM) 
spe a eee ae NOLBL THEN TPNO ¢ IF TPNOs2 THEN 9 ELSEX 
io Racine ane ; CIF TRNG rae THEN 5 ELSES 


rPNOS THEN 8°. 
CIF TPNO#@37 THEN 9 ays TPNO)))3% 
IF FAROUT THEN JF UNI TNO232 ee LEORONCUNTTNO" 3214 (3#5] ¢ 0 
UNI TAO s A « 0 
COD, ELSE IF UNITNO#2¢ THEN READERS SC FFI ¢ 03 
EONC32, Skah poly doe ge 


ENDS 
ELSES 


po UNTIL” Coe ¢ SCAN) = EQUAL OR 100 = “PERTONS 
ee sae Too = PEKIO THEN go To ERRORS S 
“TOO .* SCANS &. 
STREAM (KeOt a « TACCUMTOITSKOUNT) 73 
BEGINS. on ae, the 
Sl «¢#A3 § #51413 DJeLOc Ksd 
ORGUNT CIE ‘SC<"O" THEN BEGIN DSeLTy"4"3 


JUMP OU 'Q. ERAS. AENDD SteSpe1)a- 
oa Spe S TaKC NTE men 
“DS ¢ “KOUNT OCT 3% 
ERR 
END3% 


oF CTPNOeP) ef1t1) THEN GO TO ERRORS. 

aa de TYPERPROCE: OR TYPEe1O THEN: “XL L64TYPE@PROCE J+ TPNOX3600 
£LSE TYPE=COREV THEN X£g0] « TPNO prV. 64. 
ELSE LF TYPE2PRIOR AND TYPESSAVEV THEN XCL8+TYPE=PRIORJ*TPNOS 
IF TYPE = COREV THEN 
BEGIN DO UNTIL C1OU'=SCAN)=MAXY OR 1UDsPERIOS 

fe ee TODRMAXY THEN as dee aici LSE .gO TO DOWN; 


oS AEA a 
> © & a & 


ENDS 


pO UNTIL SCAN & PERIO#3. 


| | , : SFHOCARDIE 
< “VACUE-TYPEs SH18> SF 10> SHE CARDS ore 
REAL TYPEsSMIDsSFIDsSFHs CARD 
ARRAY CMME #1: 
BEGIN 


-, START OF REL 


20809000 
20510000 


“20511000 


2051 
SEGMENTS 


MUL OTSK 
20511420 
20511430 


20484550 T eee 
20484650 fT oa1084 
20484700 T O2t2i2 he 
FOE 8 f J ; $ : ; 3 eae 
20484800 T 021642 
conn a2e T petri 
6 
20484880 yY 021631... 
20484865 T BOtEtS 
DA Raa? p ame Oe 
20484875 T 022113 
20484900 T 022183 
DY ROO 0 ahs 
20486000 + O2aeaty 
20487000 T 022510 
O4a8n000 ir to 
20489000 T O229%0 
sceetee Y 023323 
soaneeoGt 0238'3 
20490000 7 Ogaat3 
0491000 O2745? 
20492000 T 024633 
20493000 T 024613 
20494000 T 024633 
20495000. .T O2a7ty 
20496000 T O250%2 
20497000. O251! 
20498000 T Q253!a 
20499000 y 0255%4 
0500900 025534 
20500100 7 025610 
- 20800200 T O2a574a 
20500300 O25a!; 
20501000 T  0259!0 
205011400 T 0259%2 
20502000 T 025930 
20503000 tT O259%3 
205049000 r 026132 
20504500 T 02653 
20505000 7 027080 
20507000 1 0276!0 
20507300 ~ 027683 
20807200 T O280'2 
20507300 7. O28ete2 
20508000 7. Ogeagte . 


T “960016 
T 000080 
T 000010 
Te 0. 
7 
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AND T LSS FREE AND Serr a — = 20511664 T 012883 


@ & 
e LABEL ERR» ERRORsFUNCI#% 20511165 T 0000!0 @ 
SW H NCO eFUNCYsFUNCOsFUN FUN iN 33 ‘a 0 000030 
’ LABEL EXITS % 20521471 7 C0080 
@” Nate ABSCCMM[5})3 : 208411817 000040 
3 QJEOV "DECK " BN OY 03. AND: DOO2 sO 
4 CCCCMME1IAND 77000000007777)EQV €12000000003714)sNOT 0) 20511184 000333 
e| OR See he ee ht THEN GO TO ERRORS edat tise T 000532 
6 OOO 8 
7 (COMMEOTEGV SWID)=NOT 0 AND. CCMMLAIEQV SFIDISNOT 0) THEN 20311300 T G00St2 
@) ELSE 2s 20511305 7 0043!2 
i IF COPING SOIREC OR SEARCH ‘ Mh oh FQ 64 THEN : 106 t. Ooiato 
be BEGIN 205141311 T 002083 
y IF TYPESUSEV AND NLOPTNG 23 <0 THEN GO TO ERRS 20511312 T 0021%4 
n2 F (Tie C CNS EQV MCP)SNOT OR CCMMLSIJ=NOTC #0) T__0025!0 
nat | ~~ “€MCOPTN# 2720 ANDONG- Pav. ABSCHEOPTN#23) )=NOT ONTHEN 20811320 YT Qo2agts 
@ GO TO SEC3 ELSE 20511330 T 003510 
ps] BEGIN ERR3 FORGETSPACECUPTNDS 20511340 EER: 
h6 FORE TSP a CeTHTRECTONYS: ANCACCHNT OTs GHNETINIaI0) 20511350 T 003612 
eo” . END3 . 20511360 7 003843 
8 NOs : 20 6 Og3a! 
ee ERROR! . . . ~~ 20511365 T 003833 
@r : t STREAM CASS (CMM (03) ,B2% (COPTNS*® GETSPACE (102020) 42))3 20514970 T 0038683 
1 BEGIN SiteAs STteS]+15 OStaL IT" "fs OSte7? CHR 20511360 T 004310 
: Sls=Sl+# qs OS:sLIT"/"%3 OSss7 CHRS 20511390 T O043%4 
to ost=20 LIT " SECURITY MAINT IGNOREDO™S | gon 15400 T O044%y 
y R O04 | 
po SPOUTERCOPTNGCARDLO1 9191» CARO 191 20311420 T 004733 
Or. ee TO EXYT) | 20511430 T 0049t2 
BIE ‘ Z 11: O06 
pe GO TO FUNGLTYPE*UNLOCKVII 20511450 7 005080 
@ & FUNCYEMLOPTN [NX SJeMCOPTN INX 6] ¢@443% 20511455 T 005480 
ac | M bs " UNLOCK" CMM(3] t2 NEDee "33 ee nner “C0 L=f ah eeee 10 2 2k eee 
BH ge a : . GO TO SECass ee ne 20811459 T. 006084 
or _ FUNCOT 20511460 T 006310 
Ba MLOP TN. INX 5] 82°SMID3 MLOPTN INX 6)t= SFID3 20511470 0063!0 
p CMMC2]t= " SECURE" CMMC3]2:= "0 WITH "5 20511480 T 006784 
@ | MESFH#2] %= PCDUP»sLODsSSB)3 20511490 T 006933 
‘ GO TO SEC43 20511500 0072! 
‘ FUNCAS 20511510 7 007580 
ee IF (TLeT1 AND UN COP TNW2180)9 THEN MOPTN62 1 «CMH E623 | 20511515 T 007510 
; SMIDtaMCOP TINGS 4 SFIDSSMCOPINGO IS _ 20511520 7 008013" 
MCOPTN INX 5]%= MCOPTN INX 6]8=03 20311525 T 0084%3 
@ CMMC2J©" LOCKED"SCMML3]©" FROM "SZSCMMC4Je™ WITH &8"3G0 TO SEC4S 20511530 T 008832 
FUNC2$ 20511540 T 009630 
sal MtOPTNW TNX: Se MCOPTN INX 23,0684293 MEOPTN INX S@}eMCOPTN INX 6360; 20511550 FT 009640 
) -CMME2) t= - FREES FMS CMME 3) 48 "ILEee mate Go TO SEC4 , 20511960 T. O40a%4. 
FUR 034 3 - 20511570 7 011080. 
é MLOPTN Thx S}t=e @143 WEGPTN INK Orr 03 20511580 T 
& CMM(2]:=5 " ruaseovrsiees " FIL Eee; 20511590 T 
5 f) 400 
20811610 T 
or 208i ien0. T 
; IF SECMSG THEN 20511640 T 
@r . BEGIN , 20511650 T 
be $ POp OM]T 0511651 
BS) ee 20511660 7 
@ - 20511662 1 
@ 


Data Documents/inc. 


@ 
@ YeTSLOCKY ANDCCON4S EGV MCP)aNOT  OPANDIC COMM EE EQV MCP)Z 20511665 T 013083 
NOT 02 AND +OPTNeOPTN ceBugiimioue os Oe CA OO 2 Te 20 i 
BEGIN Slswcs SissSt+13 Wp rar "a DSte7 CHR} BS tsb ites") 20511670 T 013683 
6 BESTEST eas pst? CHR): : 20511680 T 034082 
: OL: 4p: & ia: e247 een ene OSLLAB 
aCasiEL CT" nA STReLOe AsSSI[82S] 413 DSt=7 CHR; petal tes") 20511690 T 0143! 0 
@ SIleSIl#13 DS#7 CHRI3 20511700 rt 014581 
_Y(X(ylepy"18)s Siecs STeS[+8)sSleSf413 DS¢7 CHR 20513702 T 044680 
“SleS149) pSe? CHRD3 DS uit ens 20511704 7 O,4agto 
é “ENO STREAMS 20511710 T 015094. 
POUTERCOPTNGCARDI9198 9J>CARD»S ECMS G23 = 20511720 T 01508 
$§ SET OMET zs PACKETS 20511729 T 9015231 
@ END ELSE FORGETSPACECOPTN)3 20511730 T 04529) 
$ POP OMIT _- 051173! Q 33 
: 2 Ls ee a aaa eae — 3 20Stiede 7 Oants: 
eM END SECUTITYMAINT? Ee Ga oe at : 20511810. 7 015513 
; COMMENT “THE PRT CELL =e eCGe GIVES OT SK ADDRESS OF 1st SHEET ENTRY 20512000 7 00010 
& #a* ENTRIES IN THE SHEET ARE AS FOLLOWS! 20512400 T 000080 
sf 0 = 1ST NAME S —_ wit a th Rca ert A00 000080 
re eS Ean kane nee ass. rood 20513200 T 000010 
2)e ei 8 NI RM AL eee etree ote ta tt. 0514000 O000%0 
: 2 J0B HAS BEEN ecED (FORCED RUN) 20514400 T 0000%0 
@} 3 JOB HAS BEEN ES*ED (FORCED RUN ANO DS) 20514800 T 0000!0 
b SC 2).C 4%1 ] = SUPPRESS BOY/EGY MESSAGES FOR SYSTEM JgBS ss 20915200 T 000010 
ps SC 20 8410] = 0-60 JG8 (FROM COMPILE & Go) 20515600. T Q000%0 
@ Pp re eee oe eee Ue COMPILER hehe COMPILE &@ 40) . . 20546000 T a00010 
P —® 2 EXE 0536400 Q00Q%O 
re = 3 COMPILER CFOR SYNTAX CHECK (SET TO 2 LATER) 20516300 T 0000t0 
@ = 4 COMPILER (FOR COMPILE TO LIBRARY) — 20517200 T 000010 
pC = 5 RUN 0B 20547600 T 00000 
2 “27eC18ti ee DRESS : 20518000 7 O000T0 
Or - ; Poe BE 27s saat * 20818400 T 000030 
jee es j errs 1.3 SET gy Ss LEC 3 af 20518800 T 00010 
TS SENT CIF SCHEDULED) 20519200 T 0000!0 
@ - SC 3).f 23 3) = 14 RESTART OB 20519600 T 00000 
pe C 3)ef 83:19) = SCHEDULE*ID FOR THIS JOB _ 20520000 000030 
St 5]. ——s® «STARTING TIME FOR L0G” 20520400 T 000040 
er. SU 6Y ee LacaTiG N OF LAST PART. OF LoG 20520800 7 000010 
; oe 7). = CORE ADORESS OF SEGMENT ZERO (WHEN THE | _.. 20521200 7 O000tO 
SHEET 1S PASSED TO SELECTRUN AS A PARAMETER) 20521600 T 0000!0 
& ; DISK ADDRESS OF LABEL EQUATION ENTRIES 20522000 T 0000%0 
EW ro THIS, ERECTION ONLY (SEE 20522400 T 000080 
es Filo oF S ON “20522800 1 O000!0 | 
OM 200 F o000t0 
DISK ADDRESS OF LABEL Arion ENTRIES 20524000 7 0000t0 
@ PRESENTED wHEN PROGRAM WAS COMPILED ANDO 20524400 tT 900030 
Be APPLICABLE TO abl EXECUTIONS oo T pacer’ | 
Oro ® EST] as oT Goooro ee 
i 2 COMMON VALUE 20526400 T O0000t0 
@r = ESTIMATED CORE REQUIREMENTS 20826800 T 000050 
aes ) = "CAN*T EXPAND" BIT 7882. 0527200 0g0g8¢ 
orem TE — Pear Saetecan Le 
° SC231e[2%6] = UNITNO OF CARD/PSEUDO READER IN CORTROLCARD B26 0000:0 


Yr. Q00080. .  . 


$023)-C989) = REMOTE a aes ADDRESS» ELSE QO e022 ae ae rT 00000 ® 
(23 24¢24) = TIM Qa T EETCFQOR JTS MS 9600 000040 
* USER ire 208 30900 
= DISK noone ee OF FILE HEADER FOR TRE JOB #0870460 
& 6 z INE ; J ; 
s(27) = FID FOR COMPILES» TAPE NAME FOR LIBMAIN, 20531200 00000 
$(29) DISK ADDRESS OF NEXT SHEET ENTRY (20 IF LAST) 20531600 00000 


ARE AS FO wst 


20532000 0000:0 


ta* ENTRIES FOR LABEL, EQAT. 


FCO) = MULTI*FILE ID (7 CHRS) 20532400 Y 000010 
FUL) ae ® FILE 10 (7 CHRS) © eopaagoe T 000040 
FLai.Co 8) @ REEL NO (3 CHRS) __. 3200 O0008O 
FC2),C18830J = CREATION DATE (5 CHRS) 20533600 T O0000%0 
FL3],00%6) = CYCLE (1 CHR) 20534000 T O0008%0 
L33,015:28) = NUM COPIES OF PBD OR Pup L 7 ar 20534400 0000!0 
FC33,02331) = 1» IF "FREEF” PBD PACKET FILE 20534300 rT 000070 
set C4231] 2 1 FOR FORMS al ei Aiba 20935200 T 200080 
= RCP PE =» 205354600 _ Qg0080 


FOR LP 20536000 


T 9000%0 
FOR MT 20536400 T 9000%0 
FOR SPECIFIC UNIT see bel! 052326800 OQ00'9 
FOR LP (MAY BACKUP) 20537200 T 0000%0 
T 


OOO N OW & lw & IO 


FOR SPECIFIC CUNLABLED) | 20537600 T. 000080 

QR LP M BACK are 9538000 ogootn. 

FOR PT 20538400 T O000%0 

FOR “ he asta 20538800 T Q000!0 
: OR NLABL Coss, 053920 000030 
= . 10 FOR OISK 2093946400 T Q000t0 
§ FC4),(036] = NO OF CHARS. IN INTERNAL ilar 20540000 7 000040 
§ fte) £6342) © INTERNAL NAME (MAY CONTINUE 147) Aa0400 TT. AD0LO 
§ FEL2Z}.C15t1J = "SENSITIVE" BIT 20540800 T O0000%0 
& FCi2)«c16%2] = DISK SPEED 20541200 T 000080 
: FC12).(1635) = EU NUMBER + 


20541400 T 000080 
20542000 T 000010 


FC14]* FC25) SAME AS ABOVE FOR NEXT FILE CFClgjela IF NO NEXT) 


FC29T ™ DISK ADRS SOF NXTsLBLeEQUAT,ENTRYC "0 IF NONE) © 20542400 7 G000t0 
#eee ALSO SEE PROCEOURE "SELECTRUNI" (SEQeNO+20055600) FOR 20542800 o000to 
wea FURTHER INFORMATION ON LABEL EQUATION AND THE FILE 20543200 tT 0000%0 
wee PARAMETER BLOCK, gpensen 000010 


0000t0 
“wwet CONTENTS OF THE JARS | me eae | a 208444001 O000%0 
VARCODet 14 COMPILE VOB ee beech enacts : 

at 23 08 (1TSS ONLY} | 2 ne Oro 


3 
=: 
= 


aecaie 


MFI OF THE yO8 TCG 


6b42) 


ot: 


T 
WARC1].C 184 J = VOB IS BEING DS@ED eit T 000010 
= 108 
ot ey | 20546800 
santas, C2at 7 8 ROS She CG 
: af aly) 8 DECLA RRUP 47400. 7 
oC 331 7 8 OB HAS MAINTENANCE Log. ENTRY 20548000 T 00000 
of 441.) F INTERSPROGRAM pee ees 20548400 T 900010 
u = D_SOF 1 0548800 T 000030 
@ iO . 
_@ _INTER@PROGRA LON. 20850000 7. 
«C18415) = Q1SK ADDRESS FOR THE SKELETON “SHEET (COMPILATIONS 20550400 T 
0(33815] 3 PRIORITY 20550800 T 900040 
3 


_wARC3) PROCESS TIME LIMIT _ 20551200 


2095: 
20552800 fT 000080 


WARC6O],£ 181 J 


7 * * y * 7% 4 : 3 2 aS = ‘max =. 3 5 


Data Documents/inc. 


@ e 
) of 280 J] # PSEUDO#READER NUMBER | 20553200 T 000070 e 
$45 bad $ UG a IH IHOD TF ONDE O 
033015) i DISK ADDRESS OF FIRST RECORD FOR THE LOG 20554900 f Od000!0 
© JaRE?7] = TDLETINE ENTRY (BATCH) 3 20554400 t 000080 1@ 
ARE? = MFIO OF . (TSS ONLY)» THIS MAY BE DIFFEREN 20554800. r 000040 : 
FROM aa FOR caus JOBS STARTED BY CANDE>s 20555200 7 Q0000%0 4 
e JARU8 1 = LENGTH OF CODE FILE ROW 20555600 tr 000080 |@ 
jaR H = "SYSTEM" JOB BMAINseLOCNTRE»PRNPBT) 2a. 600 q000%0 8 
“et 2t1 7 8” SUPPRESS PRINTING OF BOJ/EQU MESSAGES 20556400 T 000080 7 
@ 944.2 = JOB HAS BEEN "STOPPED" ¢WORKSET PATCH) . 20556410 Tr 000030 |@ 
t138 = DISK ADDRESS FOR "CHAIN" IF NON"ZERO _ 20556800 7 000010 | 9 
wf33!15) = NUMBER FOR DISK ROWS IN CODE FILE 20557200 T 000080 
@ JARC10] THROUGH YarRC29] = DISK ADDRESS OF CODE FILE ROWS 20557600 T 000030 l@ 
= _yARL30) = FIO OF OBVECT FILE (BATCH COMPILES ONLY) 29558000 0000%0 
END OF COMMENTS } a | 20558400 T O000I0 | a 
@ REAL PROCEDURE LIecch | 20866000 7, God0d10 : @ 
oe meee ee START OF REL SEGMENTS DSK ,~DDRESS = 00562 15 
BEGIN LABEL NEXT*LOOPS ~ 20566011 7 0000t0 
@ REAL CNTSENS = RETURNVAL+1>, % BEGIN LOCALS TO L{BCC 20566245 T 000080 © \@ 
OLD = __CNTSENS+1> oe 20566247 y 00000 is 
~HOLD2 s HOLOL+l» =~ | 20566250 T O000t0 9 
Orn HOLDS * HOLO2+1> Ceo a | 20566255 7 000010 1 @ 
es AT = HOLO341,. Mente e 0566 000030 21 
p TYM = REPEAT+13 . 3 S0se6a6s T O000%0 2 
@: BOOLEAN FIRSTIME 9 = TYM#13 29566270 T 000080 21@ 
: ABEL ccoAsQUIT»PUWI FE» ChaNsREMOs INCSce Ms EN 2~COPYsSEFEKs INyT; 20566400 r O0000!0 2a 
LABEL DOWNR»GUTRS : 20566610 + 900010 25 
@- SWITCH SHELCEPYsL-COPYsENTESENTE REND” CHAN? 20566700 1 o000%0 : 2) @ 
if D i; CARD, At 4 544740. o00n hf 
é SUBROUTINE BOTHS | | errr tT 000030 2 
OF BEGIN CMMCO}%="LIBMAIN"S CMML1JES"DISK "3 20566755 T 0001!0 | @ 
: MM $=O08 268s 388 > CMM = : 05466760 000339 ey 
$ SET OMIT & PACKETS | ohn 20566765 T 000790 2 
@: oo cMMc2314s08cARDL 9198995 me 20566770 T O007!0 © | @ 
P 7 Pop ‘OM : 2 ¢ So ; OOO. 
$ SET OMIT = NOTCPACKETS) 29566780 T 00098] 
@: EXD OF BOTHS 20566797 TF 0009%4 a @ 
pe SUBROUTINE GETEMFORREMS XSTORE NAMES OF SENSITIVE FILES IN ESPUI sx 20566800 001280 38 
alt BEGIN CNTSENSESCNTSENS 493 20566805 fr 001240 7 3 
OF. IF CNTSENS GTR 26. , 20566810 T 001384 ba ® 
; THEN BEGIN PROG 2918 GETESPOISKS ; As . 20966815 00133 39 
DISKWAITC(PROG INX 0» 30¢L1BNQ)3 | 20566820 , 
® LIBNOS=PRUGL29)3 20566825 «|@ 
: CNTSENS8=23 | | 20566830 | cr 
TENOR Co otaneno a ie 3 } 20366835 T 00199: a 
© PROGECNTSENS 1 19CHN( 21; : ee | | 20566640 T. : le @ 
E , INTSENS+ | ee 20560845 + Oo21Iy | ks 
EXD OF GETEMFORKEM} 20566050 1 0023tt : 
& REAL SUBROUTINE SCAN3 20566875 7 002382 a7) @ 
SCANeScN CUNTTND» CARDLO.c# SOUR Cee ACCUM KOUNTsLASTSCAN? 20566900 T 00240 
if, ae _ | 20866902 T 902610. i 
@r REA 20566005 t Ooartt : fy @ 
; BEGIN: a zt eet. ee eee eee “20566010 7 002830 __|s 
STAT AN CLTeGTCNNeG ACcEN 20566915 7 002830 | s 
@; BEGIN 20566920 T 002913 _ “1 @ 
SItSACCUMSSIteS1+15 2056692 002983 
ae 7 Ov THEN TALCYF®TALLY $13 END ELSE 2OSGGG80 TF 0O30IL = o 
@ |: EGIN TALLY3« suunr Out END)A op OOBYERE 1@ 
R le CN. OCT. J Pe aac : aia , a : lM if 3010. aver : : ee 
20566945 T 00352 
Y @ 


vata vocuments/ince. 


SKANt%=P3 

ND OF SKAN$ 
POCRCWsMYMSCWsSTF)3 
RCWHSRCW & PCXCHIECTC)3 
PeOe0s020909 02028 % ZERO 
LIBCC3 203 
ees 


OCALS 0 aC 


CAROLOCCARD 9 OF. 
Go To SwCT@cOPY 1s 
Pp 
ENTE$ 
IF CONS=SCAN)SIDENT THEN 


» \ 


OTF PROGEOI>S 2 4 THEN PROGCOJI=5113 


RCO 
$ SET OMIT = NOT Bes 00LOAD 
N= D R \ Ww AL alae. 
BEGIN | 
Ir oo EU THEN 
IF(CNISSCAN)FIDENT THEN GO TO INCSC3 
IF PCSKANs DUP )>19 THEN BEGIN PCDEL)3G0 INCSC END; 
NeP+ 3 9 9S6JeCcN 
IF. CNONEUP »NEUF THEN GO TO INCSC3 


END 
SE: NSSLOW N CMMC19Je*P(OUPsLOn) OR Mm El, 
IF CN=FAST THEN CMML19J¢ C3tijed ELSE GU TO INCSC; 
CNIsSSCANs 


a x. <mt = TH = RS 53 


NQ 
IF patithsad “AND” T GTR UNLOAD THEN: 


CMM(19),C4?1)2513 
ENDS 


"PROGtO). totaseeas 
__GNtSSCANS - 


“IF UNITNOSZ- “GR UNI TNO=2a OR UNITNO232 THEN 
PROGLOJ,L2%6]¢UNITNOS 
i SCAN#IOENT THEN GO a AACECS 


~LIGNO*GETE pee eT 
CMMC19JeCFFIJeTs 
: N 


aren LE NaMES AND STORE THEM IN ESPDISK 


Gy ED 
Oo & & 


IF CPROGTOJ}tsSKAN) 30 THEN PROGLOJs2511 ELSE CNESSCAN} 


ELSE IF OPTN2IDENT THEN PROG(CNJ©ACCUMLO] ELSE GO POWIES 


20566950 
y ) ,AA9 ) 
20567000 


$ 


6 : 
20567020 ° 


epee hee 


20567200 


20567300 


O547 000 


20567500 


= o5e7 608 


30567400 
20567900 


20568050 
20968059 


20568200 


20868300 


OS 4B LOD 


20568500 T 


20568400 
956864 0) 
20568611 
20568620 


20568640 
20568650 


20568710 


20568712 T 


20568716 


Sees 


20368727, 


Seienest 


20568760 
20568770 


20568780 T. 
20568790 7 0 


20568900 
20569000 
20569300 


20869810 


20569900 T 
Peery are 


SECC TIT 


20568795 ° 


20569 200 rT 
/ 80569a 


"2050900 7 


00353 


9034620 
003681 
0038t1 


moiay 


004134. 
oo42%0 


onto” 


904514 


Od 


004933 
004923 


006: 
0063%0 
O064%)4 


006610 


0066%2 


O69 a 
0069%2 
0072%2 
00630 
007932 
Pei og i 


00865!'0 
0089%4 
0090 

O090TD 
Covers 


009ata 
009710 


0129%0 


) @ 
r IF SCAN#SLASH THEW GO POWIES 20570400 T 013384 
F COPTN«SCAN)=EQUA THEN PRO NeLleo 20570500 7 0 30 
“ELSEIF OPTN2IDENT THEN PROGECN*1]©ACCUMEO) ELSE GO POWIES 20570600 7 O188!2 ; 
e TF COPTNGSCAN DBPER IO QR OPTNSPOUND THEN GO TO QUITALP 1 20570700 tT 044384 2|@ 
OP TN ¢ THEN: GO POs ; H570R00 O1HAEO 3 
ENDS 20570900 T 014830 ‘ 
® PROGL29 J¢GETESPDISK3 | 20571000 T 015084 |@ 
DISKWALTCPROG INX O»30/b18N0)3 ae 00 6 
“LIBNO#PROGL29]3 : | 20571300 7 o1sat3 re 
@ G0 GETENS Megas tie = 20574400 TF ONSats — /@ 
QUIT eee OS71800 > 
PROGI291«03 20571600 7 O1ssti 
e@ PROGLCN+2)+@ 143 20571700 T 015632 |@ 
DISKWA PRO Or 30-LIJBNO)$ Q 200 015 1 
| TLIBNO*APS CCMMEL19I93 — | | "20872000 T 04604 
@ Go INTE eos oli ied Gal yr Of64t2 |@ 
PW ae : () y OO z +44 + uJ 
IF CMMC19]elCFI#LIBNO THEN % MORE THAN ONE SEGMENT USED 20572300 T 0162t0 
& BEGIN - | 20572400 T 0163%2 \@ 
| LISKWA =PRO J» 302CMM ws si ROOF A500 TOL oa te " 
, FORGETESPDISK(CMNL19), tcriDs RT 20572700 T 046730 ‘9 
@ “OWNELST¢PROGE291 : eR : 20572800 T O168t2 ithe 
P ENDS 20573000 T oL7ot2 P 
@: FORGETESPOISK(LIBNO)S 20573100 7 017012 1@ 
| Q SC3 ana ts 2057320 O17is4 | ad 
ae ReEMOS ; 20573300 7 04743 2 
@ Ps mane (CNeSCAN) #EQUAL THEN. cHMtode=t ELS - ow te ; 308) 8ao0.4 u ol7ita ol @ 
SPL (F CNZIOENT THEN. CMMCO)*ACCUMLO) ELSE Go IncSc3 ; 20573500. T 037640 le 
Sh IF SCANFSLASH THEN GO INCSC3 20573600 T O479%4 28 
s@} IF CCNeSCAN)ZEQUAL THEN CMMC1J*=1 ELSE 20573700 T 918110 ‘hag 
a: F_CNZIDENT THEN CHMC1I*ACCUMEO] ELSE GO INCSC: 057380 
i. CNEST$20300 oe —. 20573850 T. rrTin ! 
20, IF COMMEO) OR enMELa). ‘LSS 0 THEN. ae 20373900 T O18982 | @ 
K ae = 574000 7 : 
SEEKNAM CMM EATS SPULFLTTIC RECT EERCLET ELSE 56 74100 7 079 cE 
@r BEGIN. 20574200 T 019680 @ 
: CMMC2)%=CMM(0]3 ee 20574300 T 019632 28 
CMMC SIT ECMME LIS 2a : 20574400 7 0419810 ail 
er CNIRAS : ee oe | 20574500 T 049982 hd 
ENO cerns Zn Ue 20574600 7 02003 a . 
IF CN NEQ 0 . 20574700 T 020031 40 
e THEN T8=IF SYSTEMFILECCMMC21»¢CMMC3)) | 20574750 7 020012 «|@ 
THEN 2 20574300 1 020282 
: ; TELS OURECTORYSEARCHC OMNES I> CHNTSIASY sie 57ae50 7 0203 
oH ELSE Fr “OPIN. NEG 0 THEN GO. QUTRE cas ie @ 
POT GE@ 64 THE ae 2 Seep: 574900 7 02081, — : 
: BEGIN TF HOLD 3 P=NOTCHIT#0) TUSTIN) then BEGIN <ORGE SP 50574905 1 020910 
e T? DIRECTOR YSEARCH(CMME2J+CMMC3JQCUNITNOR2S OR UNTENGE30) 20574910 T 021382 J 
a ci147411+4)3 END} . 20574915 T_021610 : 
ie J (aaa: THEN BEGIN FOnaet PRRED) ys Ttaty END? STag20 Ogiely co ae 
i ; oS Ai 2osracg2 1 Oze2t3 /@ 
20574925°T Og22t3 ps tae es 
J : 20574950 T O224r} : 
ry! THEN IF T#4 20575000 7 O224te2 14 @ 
THEN PONE SOCABOCCMMCE | 2 CUM ES) 07 2 4540» SPOUTUNIT# 1) 20575050 T 022533 5 
:  EUSE LS WHCOTs CHMELI¢@7915+0 SPOUTUNIT> 1) D375 00 tT Oaaets. ‘ 
eo} : 1 
aN CM : » SPOUTL IN aL ee So Rost one 
ELSE IF 1 GE@ 64 “30375950 T 023a%0 
@ e@ °@ 


 ] 
THEN BEGIN 20575300 t 023930 e 
+ Q 0 AN SERTD M IN © . f 
NOT 0 ic CUSERID E£QV aBSCHLT #299) NEO 20575400 


Data Documents/inc. 


a a a ° yi la * > t a 5 es = * 53 3 7 


1 
2 soe oO 20575450 024683 
3 rn / Lh 
: PEMESSCGHNTSIGCHNTSICSTE AI, 20575850 O24Bty 
5 Se eee eae: O250%4 
6 S Q $ 
’ 20578700 T O252t0 
8 END : / 20575750 7 0a53t2 
9 P oMEL : 7 ’ NEO O () 00 ' 
9 THEN BEGIN 20575850 T Oasato 
M1 DOWNR:? IF FIRSTIME 20575900 7 025780 
h2 HEN 8 N U 2924) 025750 
d FIRSTIMES #03 20576000 T. 025743 
By CMMCA9STFSCLIBNOt= Ahad Bic T O258%9o 
SPO1SK)a36r 6400 O25910 
ENDS 20576150 T 0261340 
M(T44),(643%2)35 43 20576200 T 026140 
8 3 N A iq ] Os ; F 4 , 205 O O ) 6u3 


IF HOLD3 THEN FORGETSPACEC 
DIRECTORY SEARCH(CMM( 2)» 
MM 


GETEMFORREMS 


20576215 
eit ae ars 


eo on 


026634 
Mb 


20576220 T cases 
END 20576250 T 027140 
“LS URGETSPACECOIR OR ARCH 20576300 T O274%o 
CMME2)eCMME 3} 26 20576350 T Og7483 
$ SET OMIT = NOT CPACKETS) , 20576395 T. 027310 
FURGETSPACE(T)3 20576450 T 027383 
ENDS 20576475 T 027482 
IF CN NEQ@ © AND (CMM[O] OR CMME1])) LSS 0 THEN GO SEEKS ee 20576500 T O274ta2 
OuTRs IF CCNSSSCAN)=COMMA THEN GO REMOS 20576600 7 0278:0 
IF CN2PERTO THEN: 20576700 T O280%2 
IF NOT FIRSTIME THEN 20576710 02818 
BEGIN OPTN&SCN3 PROGL29)2s03 20576720 T 028284 
PROGELCNTSENS+2]2 20145 20576730 T 028433 
DISKWAITCPROG INX Os 309LIBNOQ)3 20576740 


CMMCOJS=GETESPDISK g 10618833315); 20576758 T 029580 

$ SET OMIT = NOTCDATACOM AND Rye) -_ 20576760 7 029780 

Ses rere 5 Se ete Lee CHM INX 093 20576768 T 029710 

t «GO INET; 20576770 7 G299%2 

: END 2 : ge HR PEPAO “6 030016. 

ELSE Go “CCA 20576790 T 030080 

‘ ELSE GO INCSC3 goa reals T 930080 

AN: —— —_ 9.30080 

Tte03 % T USED AS BIT MASK FOR SYNTAX CHECK © 20876900 T 0320080 

ae LON EPG: ae t wNT Be 3 08. SCAN. ANBUT:, es . 20576925 T 930083 

ae : 205769590 +. G303%0. 

OP TN. t= “SCANS 20576975 T 030280 

T te COPTNSEQUAL) & OE heen % SHIFT PREVIOUS VALUE LEFT 20577000 y 0303%2 

If Tt THEN _CMMCCN] ELSE 20577025. 0: ate : 
ee ee aT 


MIBNGTS AE eee 


NECARDLOGT2LI=03. 


pee ty xe 
ENDS % SCANNING INPUT REQUEST 


2057707! 


20576750 


20576752 


20576756 


OO 


“20877125 


4 


029340 


031282 


Data Documents/inc. 


e @ 
rd] IF €T NEQ@ C) ANO CT NEW 5) AND CT NEW 10) THEN GO INCSC3 20577450 + 031483 @ 
% Ts R_=/<NAME 1> =S/<NAMEQ> ob 5 0318 
% Te10 FOR SNAME1>/=- TO <NAME2>/s . 20577200 7 O318%, . 
® r Tso FOR. LANKME YS 7 <WAMEB» TO <NAME3>/ <NAME 4 20577225 7 O3181y ~ | le 
R033. TRES = nave es ® Mataee , 
BEGIN: . 20577275 T 031989 4 
© HOLD1. *= CMMCO]3 HOLDZ t= CNMECL]3 TYMS=13 CNEEO; 20577300 T 032080 |@ 
QR 8 EKNAMCHOLO1, HOLO2s CK MEQ)» CMM HOLD3)3 Q5 2 __O323% 6 
Se acte IF CN = 0 THEN % “NOT FOUND IN DIRECTORY 20577350 7 O92710 7 
@ (BEGIN 20577375 1. 032713 ! 1@ 
TY. = £¥ TH a 7400 03 ee eed 9 
BEGIN 20577425 T errr jo 
e LBMESS(HOLDi»s HOLD2» =5» 15% NOT CHANGEDse NOT ON DySK 20577450 T 032932 (@ 
___O» SPQOUTUNIT»1)3 20577475 T 033330 re 
PEND EC Oo eee oe ; 20877500 T 03320 
eM Go TO NEXT oe ae — 20577525 7 033210 | @ 
2 ENDE- on ee wee 20577550 03321 15 
TYM t= 23 aa 20577575 T 0332%2 
@ IF HOLD! LSS 0 THEN CMM[2) ¢= CNMLOJ ELSE 20577600 7 033381 |@ 
ake oe LSS 0 TH N_CMM[ 3) 33 MM pis % USE NAME "FOUND™ 20577625 T 0336!0 ha 
Gh END 20577650 7 033984 ‘9 
@r. IF CTIMDIRECTORYSE ARCHCOMHE 2» CHMC319509 NEQ Q THEN 20877675 7 033984 1 @ 
e (\ § rr O0 O) 40 ay 
P . FORGETSPACE(T)3 | 20577725 T O342%2 pa 
@» LBMESSC(CCMM[Q]s CMMC1J» *55 295 % NOT CHANGED, DUP FILE 20577750 fT 034384 1@ 
Sg Pe OT UN Ce De Se a ia eee POT PES ORG58 GT 2s a 
ps END ELSE. es et, 20577900 7 O3946%4 2 
© D6 : BEGIN ne : ose Wipes Ba. aise T anne | @ 
DIREC TURY CE AnCHiC NTO CMME1395)3, 20577815 y 034932 2 
@ : IF T GEQ@ 64 THEN 20577820 T 035483 10 
BEGIN IF NOTCMET+4).(44!1)) THEN BEGIN FORGETSPACE(T)3 20577823 7 035233 sc 
CTESDIRERTORTSEARCHCEMM (OTeSMNT STE CUNTINGS 25951147111, 20577826 T O356%9 i 1 
@} 405 END 20577827 tT 035984 2 @ 
IF MET+4],¢4342]"3 THEN BEGIN FORGETSPACE(T)s Treqs __ 05778297 03608 29 
END3 20577832 T 036483 
@» ENDS 20577833 T 036483 31 @ 
r IF 1 LSS 2 THEN 20577835 036483 ai 
By LBMESSCCMMCOJsCMMC1J,°5215¢C( Tei x30)» % NOT CHANGED 20577a75 tT 036582. nae ly 
e@ . : : 8 ab IN USEs 15 ® NOT ON oISK | . aos 12ee T 0369%2- ane 1 @ 
BO} 0 POU AUEN : 205 toe SS pe 0369. ee atte 39 
Sice IF T=2 THEN | 20577950 03708 ‘ 
] LBMESSCCMMCOJ, CMME1)» “55 255 &% NOT CHANGEOs SYSTEM FILE eee 03743 i@ 
Os SPOUTUNITs 3) 03743 a2 
Cras oe TR WUT#2 7° NEG O AND CU Ss “ NOT FREE FILE —~$0s7ec2s + 037540 : 
@u | USE EQV MCP) NEQ NOT 0 AND. rae ‘SNOT MCP | 20578080 7. 037783 | oe I @ 
of (USERID EQV ABSCME[T+2))) NEQ NOT O THEN % NOT CREATOR . 20578075 J O396097) eg 
BEGIN 20576100 ~ 036382 : 
of oie CMME1J "52 41s % NOT CHANGED» INVALIO USER g0a thie etd 
e eyes if h)e CMMES)e 14.) 93 120 | @ 
52 | ENO 20578225 T 039380 5 
@} ELSE | | 20578950 T 039310 | @ 
a BE % CHANGE Ok | | a 20578275 J 039310 
7. coe Saree 7 ~ @05%8300 T 039312 a 
Or t1g1330152) ) posraars + fe 4 @ 
e HEADERUNLOCKCCMM(2)5CMM(3)]eT )3 20578425 T 040320 


Data Documents/inc. 


$ SET OM]T = PACKETS 20578430 T 040s @ 
[F_ LJBMSG THEN 04053 
1 $ POP OMIT: : 30578500 YT O406t0 
2 ~LEMESSCCMMLOJs» CMME 1)» S20. % CHANGED TO ep edo T 040630 
3 MMC MMC 3)5. SPOUTUNIT» BMSG)3 T OQu0gio 
4 PBCOUNT?®=PBCOUNT@((((CMM(O] EQV "PBD ")YZNOT 0) OR 30578575 T O410%4 
8 CCCMMECO] EQV "PUD "YENOT O)2) AND (CMM(1).(CFJ51)) ee T O412314 
6 + MM[2 -Q " PB SN 0 OR Meet eee ee ce A 0 2 
7 CCCMME2) Eav mPud- Teyana 0)) AND COMME SIeLCFIaL) D5 20578650 7 Oaireto 
é ENDS : 20578675 1 Ougata 
: : NOS. i Pe Pl a ee Anis + Oagod 
No IF REPEAT THEN Ga TO LOUPS % FIND REMAINING FILES 20578700 T O422%2 
i NEXT? 20578725 T 042332 
n2 F_OPTN=COMMA THEN GO CHANS3 Sh ste ps 20579900 04233 
; . IF OPTN®PERIO THEN GO TO CCA ELSE GO INCSC3 20580000 7 O424at3 
4 INIT? LIBCC+LIBNO} GO TO CCA; 20880100 7 042632 
hs INCSC? lacce1 Tae : 20580000 043280 
he CCAS CADDR#=CDEX#=03 20580300 7 043183 
7 IF (LIBNO?=PROCVAL) GTH 4 THEN PROCVaLts2 ELSE 20560305 T 0433%0 
a If LIBNO THEN PROCVAL! 36 ELSE PROC VAL? =03 20580310 0435%2 
9 RETURNVAL $SPROCVAL3 20560330 T 043613 
poy PC ERETURNRCH 1987S 10+ ROS 20 4XCHsPEPLOTF 3STF 3 20580340 T O439%2 
1 END3 x LIBCC PROCEDURE yeasty 0580350 7 Odsal. 
Bi S1ZEs 0443 wORDS 
b REAL PROCEDURE CCSET# FORWARD} 20580400 T pveete 
Pp START Cc RE; SEGMENTS DISK ADDRESS = 00577 
- PROCEDURE CCFINISHs oe 2058000 T 000040 


START OF REL SEGMENT) DISK ADDRESS. = 00577 


mai * N ; wa Oa sao O06 

i REAL TEMP : RETURNR GWOT 2 BEGIN LOCALS OF CCFINISH 20581080 7 000040 
ei PCRCWHMYMSCHSSTF)S 20581425 7 000080 
is aCws=RCw & PCXCH 3 2058 ; 000 ue 
3 PCO)$ % ZERO LOCAL OF CCFINISh i: 20581140 7. | 

mes PPCPROCESS1303 © | | 20381350 ¥ 00zt2 
IF OPTN = PERIO OR OPTN = LIBRA THEN 20581250 000410 


prepara 000583 


AE A v3 


MM(egis= PROG i A 06 
Progt2). CcF]te Ts PROGti] 2 32767 THEN 3276? ; 208814007 O007tS 
ini ” ELSE PROGC IOI) : : 20581450 7 000983 
oa | tPF PROG 20) > S12 THEN PROGE 2. 3 : 0581500 7 003 
: IF PADDR NEG O THEN 20581550 7 001580 
BEGIN 20581600 7 001583 
PEQNC29)%= Q3 O5Ah1¢ 00143 
oe an |e PDEX#O THEN PEQNCOJ]#=143 20881700 T O017!2 
= Tf POEX=}. THEN PEON(14})8= 143 20581750 7 OO0Z2080 
ae -DISKWAITCPEQNSEOCF J] 230ePA00R)3 - io O581p00 T 00221: 
é END; 20561650 T Od24t2 
PROG(29)]23 0; 20581900 T Q02432 
MMC2),016%15):2 CLOSETt= TESPO SK j_ 20581950 00258 
ee ~ OLSKWA TCPROG, ECR Is30sCLOSETIS at 20582000 y 002842 
ee ae : hp ee sosqene..t 003082 
Bak ee Co THEN: es ee ae so OO" 06304: 
BEGIN 20582150 T 003484 
P CEQGNC29)t= 03 20562900 T 0034383 
IF CDEX=0 THEN CEQN Its } 


Co! i eke: eer eos. Oe 
COMPLEXSLEEPCCSCHEQULEIDSZNOT 0) AND SHEETFREE)3 2058244Q T O040!0 


Data Documents/inc. 


. 5 * 5 R y 5 Ayan 3 << = TS 5 x > 


| REONTOLIEACCUMT OID % ———— 30584400 tT 0009t9 : 
T&§aSCANSS 20584450 7 001440 
| | TISSCANSS 20584500 00128 


19900670 ACCIDENTAL ENTRY AT 1 | e 
OCKTUGCSHEETMASK); cere copeteseenen city ative eee  WPOFB2ZH5O T _0 Life 
 COEXt# GETESPOTSK; 20582500 T 005082 , 
GMNCD),ECFI¥9 IF GMNC48) > 039767 THEN a2767 ELSE CMM(18)3 20562550 T O05i%2— |@ 
POEX?S IF CMME18). > MIXMAX THEN MIXMAX ELSE CMML18]3 20582400 T 005680 3 
IF LIBNO NEG O THEN CMME19)$= LIBNOS 20582650 T O059%1 4 
IF CMMC20] > 512 THEN CMM[20] 3= 5123 20582700 T 006483 3|@ 
STREAMCALZO1S1SP(ySCHEOULE]DS))3 ee 20582750 7 00643 8 
Sheth: $Slisgs 20582800 T 006513 | . . : 
_. AT CSKIP SBS SKIP 0B; TALLYSaTALLY #2) - 208e2850 7 006610 |@ 
5 JF $B THEN BEGIN END i n5a2000 t One7to 9 
DSt= SETS At=s TALLYs 20582950 T 006832 
END STREAMS 20583000 T 006980 (@ 
TEMP3= P$ CMM([3]t= OKTEMP(8!38140 7 0583050 00698 12 
CMMERST Cadi 2aT*(CLOCK*PCRTR) DIV 603 20563100  O07?2!I0 | “Ys 
Tf SHEETCPOEXIsCCF] NEG O THEN | 20563150 T Oo7S!2 \@ 
o5a3200 00; 0: \ 
_QLSKNATT (“PROG (GFT? 30> PADDR =SHEETEPDERS CFF); 20583250 T 007782 
PROGL29]t= CDExs 20583300 7 Oo81tt |@ 
SKWA ITCPROG Be LOD 2a A vo a SP 0 Helter el eee hee eee ene once a 20 olek-F- Ne 
END “a . eae 20583400 T 008482 ie 
| ELSE. SHEET CPOEXS = -coexs ? bos 20583450 7 008482 ‘ 
! DEX : ae O38: 3% : VO87 : ase: 
CHNT2918« 0} 20583850 T 0089%4 ¢ 
DISKWAITCCHM. ECF I» 30» DEX); 20583600 T 0090!2 2 
LOCK SHEE TMA ee PY ere SR ee 2 
“The CN : | 20583700 7 009610 | 28 
| PCERETUBNACNI» STS, 07 RUS? OH NCHsPAPLCTFeSTF} saees ric tT 009683 3 hes 
ND -CeOFINISEH 0099! 2 
ae SIZES 0100 WORDS ne 
REAL PROCEDURE CCCOMPILES 20583500 1 O000t0 1 @ 
ART OF RE EGM DISK ADDR = 00581 30 
BEGIN COMMENT SETUP sags COMPILER LABEL EQUATION CODE: PNy/PN2s | 20583860 T O00080 31 
REAL SUBROUTINE SCANS _ 20584150 T 000010 | @ 
: CANSeSCNCUN) TAUFCAADLOCS SOURCE e ACCUNPHOUNT»LASTSCANED I RECTI3  —s 90584900 000110 3 
LABEL SKN»EXITS 20584250 T O004t4 
DEFINE ZIPMIX=CARD+l1626)#3 20584975 T 000484 | @ 
DEFINE DISKTYPE = 40#5% | ee. 0584 300 OOC4s 26 
ee PCRCWsMYMSCWsSTF)3S. | ~ 20884325 7 000434 3? 
RENT=RCW & POXCHIECTCIs | 20564330 T 0061)  fy®@ 


) O00 7 {39 


|/@ 
CEQNCSJUSACCUNLODF& LEE gh = ee 20584550 T O01at2 ‘ 
— CEQNER]EmOse pide yt, wee , 20584400 T 001610 4@ 
_ CEQNES )IMOISKTYPE neuer geno ies tay 293840507 OO17H 


CEQNE 1212503 &% EU/SPEEO CELL % (SHM) 
ssl ie 


20884710 T 
SE T 


001983 
002130 


oe 2 THENS- 


731803 20580850 7 002412. | {@ 
£6 ) COIR ONT TNG. GEO. a2 THENS | 20584900 tT 002814 51 
S + UNI TNO)s% 03849350 7 002993 
CEON¢1811€4232151280000003 COEX#=23% 20985000 T 0032%2 | @ 
IF UNITNO GEQ 32 THEN eT OR ON CUNITNUSS Es C3t5)t=1 ELSEX AEE EN T 003482 
oe INT oT WE fay : a) 55 
so @ 
ss 
@ @ 


Data Vocuments/inc. 


g y * 0 * 5 5 A 5 TH = aS ~ Ry : 


IF CN=PERIO THEN es CCCGMPILEt=13 GO EXrT ENDS 
F_CN=WITH 
IF (CNeSCAN) SPERIO THEN BEGIN CCCOMPILE*13 GQ EXIT ENDS 


1 

2 If CNSALGOL OR. CN2COSOL. THEN: 

3 If tsDIR ORYSEARCHCA UMC OJs "DISK " FO THEN 
‘ BEGIN IF NOT MCT*#4),06824) THEN 

: BEGIN LBMESSCACC peailaa eas e722 90» 

6  (" 

7 FORGETSPACE(T)3 CCCOMPILE®} GO Exit? 

8 END? FORGETSPACET 13 

9 ; NU 

no COMMENT SET UP NOMINAL VALUES FOR PROGRAM PARAMETERS? 

Le CMMCO Ji esC(CMPLReeaccUMl(O))3 CMMEL1ISSCEQNCO]3 

h2 MME 2J]8=03 

: CMMEL3I¢" CADDRS*® GETESPOISK3 

14 , $ SET OMIT # PACKETS 
is CMM{23) eO&CARD94939] UN] TNOL244216)5 
i16 $ Pop UM{T 

7 $ SET OM]T = NOTCPACKETS) 

8 27] =CEQN % ) FOR EO MES 

3 ° , z Get OPTION. (GO» SYNTAX CHECK» OR LIBRARY) 

1, : SKNE oo Seb pt pe UNTIL nee aevecan hae senile OR a etal 
1 RO sQ 3 * E AY R ee eRe 
z IF aE TacoUES THEN 

3 IF 2 a ah enon ek: THEN 


OPTNI#PERION SOURCES aCARDLOCS 
eae St GB ie anus 
hat as z 2 
IF OPTRESYNTA THEN 3 ELSE 43% (OPTNALyBRA) 
IF OPTN NEQ@ SYNTA THEN 
% SET UP PROG ARRAY asl COMPILE AND GO al COMP LE TO LIBRARY JOBS 
BEGIN 
‘PROGLOJ$= CEQNLOTs 
PROGLIJ%= CEQNELI3 
PROGC2J¢SPROGCi5]3= 05 
PROGCIOIS=PROGCI7I¢= @3777777777773 
PROG(I8) ts CMIXMAX*+1) DIV 23 
- PROGLZOIts 
_PROGC24) 
PROGL22]t= 
PRUGC23)3= 
PROGL24)t2 


103. 
CMM[L23]2 
USERID3 


FROCV AL: % ADQUST eeauLT OF TYPED. PROC. 
EB Ie STSs ORD RP Or Ch se REP ECT EI» S Pps 


END CcCCOMPILES 
REAL PROCEDURE INITIALIZEIT 


& . fein aeie TO ruretatigel 
REAL SUBROUTINE SCANS 
SCANeSCN(UNITNOs CARDLOC » SOURCE » ACCUMsKGUNT »LASTSCANs DIRECT DJ 


PROG 
TRYAGAIN!? 


START OF REL SEGWENTD DISK 


20585250 7 O0054!2 
0585200 00573 
20585350 Tf 0058'1 
20585355 0062823 

the Fi A okey. 
20585365 T O0067%2 
20585370 tT OQ7Q%1 

0585 *) O00 
20585380 7 0073%2 
20565385 7 007710 


0585390 | 0077.8 


20585400 T 007783 
20585450 T 007783 
058550 00818 
20585550 T 006243 
20585599 7. 008453 
H58se0o. OO8H12 
20585601 T 008880 
Acted T 00880 


008830 
008942 
0089%2 
NO9% 

009533 
0096%9 


50505650 
20585700 


03.0 € 


— 


20585710 
20589715 


+4 


0585720 
2058957245 


T OO99%! 

BOSS a7 30 7 040083 
04100 

20585800 T 040333 
20585850 + O107%4 
20585900 T Oj408%o 
20585950 T OOato 
20586000 y 01406%2 
20586050 T 0414010 
20586400 F O114%02 
20586450 T 9411383 


011630 
205862950 . 
bbractohbd 


20586400 

20586450 

20586500 

20584550 

20586600 
058662 

20586650 

see 0132 

0Q00%0 

ADDRESS » 
000080 
0900010 

000080 
000140 
00043 


86700 


20586715 
20386950 .° 
20587050 
20587100 


20587170 


parota en eae 


Data Documents/inc. 


a a a 3 Th * Th s. x: >. 
or Oo & 5 3 oe b og 


IF ¢T#=0 
"Hh SK 
BEGIN 


BEGIN 
ENTER 

a R 

ENDS 
TF CA 

aie oe 


LSt 
‘nA 


nae t= 
END 
Tt: CT 1 


G0 TO 
END3 
SECURIT 
CMM 1s 
“BEGIN | 


“Ors 


CMM 

CMM 

SLE 

FOR: 

Sires are 

$ sey OMIT © 
$ SET OMIT = 
IF 


$ POP OMIT 
RED 


01 
gO 


ire «e 


. 


IRECTORYSEARCHCABSCCMMCO])-CMM1¢$eIF CmMMCO) LSS 


" ; % MM 3) sO al 4! 
MME OI Eav "LIGHAIN" @NOT. OQ THEN 
a Ov ePArsk “" )enOT 0 THEN 
RSYSFILECL)} 
Ront919 00, THEN GO TO Ss 
BEGIN 


LBMESSCABSCCMMEL 0] )2CMM12" 15202 02SPOUTUNIT + 4)3 


*SCA f at N AND 


GO EXIT END 


Os INIT TAL IZ Lis b_ gO EXT 3 


NX. ai. teaie2 THEN 


sean 


YCHECKCABSCCMMEO])2 
USERID*T)=0 eas 


1803 MM Ft sT 


KIOCN1L (PEON. INK: DegseadautTe0i04. 
C24)%= USERID; 

Co51:= T,CFFQS 

EPCCN1Js TOMASK); 

‘Vist STEP 1 UNTIL 4 00 

(NOT. agscPegntT ] 40¢c07C))) Neo NOT 0 THEN Tix. 4 
NOTCBREAKQUT) : cn 

BREAKO 


PcDIRECTORYSEARCHCNABSCCHHEO] ChAT =ChM 13),DEL)3 
INITIAL IZEIT F843 
1 E 


QO THEN 


eee eee a eee 


IF UNTTNO®31 AND. NT1 GE® O THEN “BEGIN NITRA IST 


PCMCT INX @Je(912)83)3 FORGE TSPACE(T)I¥NOTE FOR BELOW 


PEQNC3IJ,f£181)] THEN PCDELsT#20)34% CAN®T RESTARTS 


rR BCABRCEMMO) js Cunden ipanes Chi =e eT: 
TO SPLAT} 
a 


LSs. es ELSE. rae eeae ate 


CMM(15)]i5 
CMMC 16132 CMMC 47382 @3777777777773 


MM C Biss CM XMAX+¢ 


LUNTIL 22 00 


oe 


IF UNI TNO GEO 32 THEN BEGIN. INITIALIZEIT #85360 EXIT END; 
ENDS” 


DIV 25 


20587200 


20587300 


20587310— 
fy. 


05873 
20587330 
20587 340 


20587360 


20587370 


af & 79... 


ee 


20587500 
20587550 


0 £50 
20587700 


20587750. 


O58 favo 
20587850 
20587900 

7 


20587975 
20888000 


OSHBOLO 
20588020 
20588930 
20588050 
20588100 
20588450 

N§aBo00 
20588250 
en2e 


20588400 
O38 450 
20588500 
209885590 
20588600 


20588650 | 


20588700 
20588730 


20588740 
20588745 


20589450 


20589400 
20589450 
20389 60 1 


20589500 


20588370 


T 


T 
T 


20588710 7 


20588750 T 
20seasoo T OC 


9589000 T 


001030 
NO1250 
001513 
OO16!1 


O44 ato 


002031 
002083 


"908480 
~0024t0 


206: 


002513 
002533 


003433 
0037383 
Q t 


OOaOly . 


004084 
O41 
0044%0 
Od044ta 
Og443 


CO45$2 


Vg 


0 
005333 
005343 
Oo5ato 
0061434 
006232 
00643 
0065143 
0067#%0 
007233 


~ ggaeeane 7. "Gagere 


008984 


0090802 
00928 


009983 


004740 


@ @ 
@ INITIALIZEIT3=33 20589550 T 009933 @ 
EXIT? RETURNVALS=PROCVAL; % ADJUST RESULT OF TYPED PRO 0589400 01008 
4 PECRETORARCHI 2 ST8.0¢RDS0O,xCHPPARECTE Te STF 3 20589610 T 040431 
@ END INITIALIZEITS ; 20589650 T 010410 
3 ‘, ; fF Se OF 08 wiry 
4 REAL PROCEDURE CCUNIT3 20589700 T 0000%0 
ee; START OF REL SEGMENTS DISK ADDRESS e& 00590 
. B N LAB sERRORCEXITS — 20589720 oFeleYen we 
U REAL SUBROUTINE SCANS 20589950 T O000%0 
@: 'SCANMSCNCUNITNO#CARDLOC » SOUMCE ACCUMKOUNTLASTSCAN®DIRECT 4 20890000 7 O004%0 
: ‘We MYM A890N10 0.00 
fo RCWI2ACH & P(XCHIECTC]3 20590020 T dO006%4 
er T= SCANS CNI= ACCUMEO]3 20590050 T 0007%2 
na T©SCANS IF TFEQUAL THEN GO ERRORS 1590100 oo108 
FOR Tes O STEP 4 UNTIL 31.00 : 20590150 Tf 
@ a ce eCOULGISTINUCT Ie C30%16] THEN GO TO U13 20890200 T 
5 hw. : 


U1 IF PAGEL TAGLEr TI NEQ C314 THEN BEGIN CCUNIT#=63 GO EXIT Ends 20590300 


eo” CN?= SCANS saab 

8 LTITABLECT)*sRDCTAB ) 3 
8 — LABELTABLECTI¢= ACCUMEQO]3 | saseeeso T 002683 
or | IF CCNt= SCAN) @ SLASH THEN. agssasg Ty O028t4 
BEGIN MULTITABLELTI2= LABELTABLECTI3 205908 0030%0 
p CNeSCANS LABELTABLECTI]*©aCcCUM(O)3; CNeScCANs 30590400 T 003230 
7 ENDS 20590610 T 003632 

¢ ¥ F CN=COMMA THEN (as ees 0590450 © 00363 
Sky ) J BEGIN IFCCN*SCANDFIDENT OR KOUNTS THEN GO ERROR} 20590655 y+ OO39741 
= STREAM(ReORKOUNT» ACCUM)3 20590660 T 004113 
§ BEGIN SI¢ACCUMDSI*SIF1SDIELOC RIDS*KOUNT OCT END; = 20590665 7 0043!%9 
8 ROCTABLELTIJ*P(XCH*RDCTABLECTJ2&PC(XCH)(14#38210)3 26590668 T 004580 
g IF (CN®SCAN)SCOMMA THEN 20590670 fT 004783 
; BEGIN IFC(CNeSCAN)Z DENT UR KUUNTD>5 THEN GU ERROR} 9590675 fT 005080 
STREAMCReOLKQUNT* ACCUM)} 2 20590680 T 005483 
BEGIN SI+ACCUMSSI+S1413D016L,0C RS0SeKOUNT OCT ENDZ 20590685 T 0056!2 
-ROCTABLELTI«PCXCHe ROCTABL ECTIaPCX¢ H)C24932917)3. : 20590488 Tt 005810 
IF (CN©SCAN)SCOMMA THEN 20590690 T 0060383 
BEGIN [FCCN#SCAN)ZIDENT OR KOUNT>2 TREN GO ERROR; 20590695 T 006310 
STREAMCREO?KOUNTs ACCUM) 3 20590700 006733 
~ BEGIN ST*ACCUMSST#SI41301eLOC Rs DSeKOUNT. OCT ENDS 20590705 T Q069%2 

pO coe de ee ul act Und ania ensoo7 sat: 


GORLIO 


rats XCREATION DATE CEE EES 


T 
END4 REEL NUMBER 20590725 T 007333 
IF_CN* PERIO TREN 00 CN*SCAN UNTI (Ne PERTOSCCUNIT SOS GQ 20590730 Tt 007383 
ERROR: CCUNIT#63) a BOS a8 20590740 + 007910 
EXIT: RETURNVAL #"PROCV AL; & ADWUST RESULT OF TYPED PROC 20590750 tf OOTORS 
- PCURETURNRCW) 2 STS O2ROS* Oe XCHsPRPLCTFE J] 9 STF IE 20890751. T0808 
ENO CCUNITS 20590800 008334 
“sizes 0084 WORDS 


Ry Al PROC BUR CCSECMAINTS 0590p 000080 
ae a ge ; , START OF RE, SEGMENTJ orak ADDRESS w 00593 
aperr ee Tt. 000040 
i594 ; 0000140 
50591400 
20891500 


BEGIK LABEL EX ee 
SCANS SCNCUN TNOs CAROLOC> SOURCE acc UM AKUUNTUES Scant RECT) 
LABEL OPTNOsOPTNi» OPTNe* SECI»>SEC22SECS#ST ys 
ST2sLS5_ 


000140 


GO TO SwlOPTNNI3 


20591650 7 0007%2 


Data Documents/inc. 


. 3 a 5 3 * CS tS a Ry Ts = Tk S: =: > 
g oe) oD A 5 & as z & oe pe 


OPTNC: USERID§= aABSCUSERID)3 20591700 T 001080 6 
IF SCAN LSS IDEN HEN BEGIN MAIN GO Exl NO 3 20591750 + _00 0 
SMIDts CMMCOJ8® ACCUM(O]3 CNISSCANS 20991800 7. OOLMt; : 
AF SCAN | “LOENT THEN BEGIN mere uetNT teed GQ EXIT END; 205918506 “001742 1@ 
( 1t3 a MEO DEXts QO 0591900" 00211 3 
TF (SFHisDIRECTORYSEARCHCSNIG, eric, 43)c0 THEN GO TO LS3 20591950 7 O0024t0 mar 
IF NOTCSYSTEMFILE(CMMCCDEX] »CMMCCDEX4#12) OR 20592000 T 002683 |@ 
S QV _ "PBD "JsNOT 0) AND SFH+5 }=0 0592050 00288: 6 


ae AND MCSFH42) NEQ 0) THEN 20592400 t 003284 7 
x INMTBIT SE. ON- PUGET Ss SECURE FILES 20592150 00353; aa. |@ 
BEGIN Ch SAND. op 0592200 00381) eieeae 9 
OPTN%=Q03 aTreIrE SFH3 20592250 T 003910 
P(DIRECTORYSEARCHCNABS(CMMLQ}))¢CMMC13514),DEL)3 20592300 tT 004130 i@ 
OPTN STREAMCUSER[ De Ot SUSERIO>0s 83=( CMM)» DS=CNS=GETSP ACE(100000)+ 20592400 T 00438 1 
HEE) fog CSItslac. USERTDS SlesSle1s0StelL It "5 OSta 7CHR3)3 . 20592450 7 004774 
17L1T " INVALID USER OF "3 Srteas- 20892500 T O0049!D |@ 
SIteSl¢1s D$ts 7CHRZ OSteLIT "/"3 SItsS]413 Dgts TCHR, 20592550 00523 15 


DSISL IT "3 20592600 T 005333 

END STREAMS 20592650 T O0054ty |@ 
SPOUTER CN&CARD i9:9]*SPQUTUNITs a waa Mie soa ae Ast ae : NS 
- : ae 20592725 + 005634 "9 

F OPTN NE@ O THEN GO To secs) Te oes 20592750 1 005711 by @® 
IF _UNITNO GEQ 32 THEN BEG SECMAI : ie 20392800 0058: | 21 
Go TO CCCs 20592950 T 0061%0 2 

OPTN2: CMM[5]#SUSERIDS 20592900 T 0064%2 ® 
STts “Xi Q3 20592950 00628 2 
FAR OPTNteO STEP. | UNTIL 1 00. 20593000 T 00640 : 

20593050 T 0065!0 1@ 


BEGIN CNESSCANS - 
(F TSOPEN AND CNSUNLOCKV AND OPTN&Q THEN 2089 3n80.’ 
BEGIn T3 SUNLOCKV 3 GO To SEC1 END 20593400 T 


GO64 2 


ELSE IF CN LSS IDENT AND CN NEQ EQUAL THEN GO TO S143 20593150 
CMMLOPTNJ?= IF CNSEQUA THEN =1 E Se AaccUmlO) 20593 30 
CNERSCANS” : ee TELE 007713 31 
ENDS ; Ba ae 20593300 1 0079%2 nl @ 
IF. CNawl. H THEN BEGIN CNes Cancun «lr CN TOENT THEN aCcuUMlg) 205603310 Oos8ii3 33 
ELSE USERID} CNeSCAN END ELSE cCMMLE6] USERID; 20593320 T O0086!2 
IF CMMCO] GEQ O AND CmML1}) GEG O THEN GO TU SEC23 . 20593350 + 009484 19 @ 
Niis MMC OJ5 N2te CMM Js N32= OF ST3e 33 0593400 O0943 36 
SEEKNAM (NT oN22NSsCHMEOT/CHNELI OTL : 20593450 T 0097%3 1@ 
T 


IF N3 NE@ O THEN GO TO SECas 20593500 


20893400 
20593650 
2 0 


IF GST USERTO IEG) MCP) NE@ NoT Stes 
Ir OTS FENF LLECCHMECDEX 2 CMMECDEX #11} UR 
CM EQy "PB 


01048 
as 


MCO 0593700 42 
Ly: 20593750 Po | ‘ 
eon. 4@ 
“yr. 20593850 ‘5 
“IF T=USEV THEN. 20593900 
HEADERUNLOCK (SMID»SFID*SFH)S 20593950 | @) 
20594000 
ITe12da. ‘a 
GIN CO! Tim53 GO EXIT ENDD @ 
NITNO=31 ANO NT1 GEQ O THEN BEGIN CCSECMAINTI=73 GO EXIT END} 30594500 A 
\NTAt= 03 COSECMAINTI E13 GO EXITS 20594550 ® 
_IF TSUSEV THEN 20594 
: f Vie 1 56 
: so @ 
20594751 T O141t3 
3 @ @ 


Data Documents/Iinc. 


5 a * a y 3 * ~. ~, > 
G > & 6 & on 


a 


SESEE 


ENO CCSECMAINTS 
REAL PROCEOURE oo 


PCRONSMYMSCW?STED) 

RCWS=RCW & PCXCHICCTC]3 

NisQ, 
UNITCODECUNITNO*23)42 USERIUS 

MULTITABLECUNTING] 35. OF ee ee 

ROCTABLECUNITNOJ#s | 14tges4 Ol. 

IF UNITNO#23 THEN BEGIN CNISREADERAe (FFI: READERATSCARDLUC END 
ELSE IF UNI TNO=24 THEN BESTS aD al As Rae sata ale eect bin END 

LSE TF _UN, 1 0 G Q 32 N BEGIN DROWC =32 3 3 
: “CTDROWEUNTTNG® 32), C3252 03 

CIOROWEUNTTNO@32), CiS8tisjss CAROLOC, 
” CAR DLOC# 41 EOUESQ0SMrCCARDLOC@ SUN TTNO@ 393 


; END$ 
IF CN THEN BEGIN LABELTABLECUNITNOJ&= "CARD QO" OR 
h NO q 3 HEN "Cs : 
CCOLABEL 3263 GO EXIT? 
ENDS oe 
= LAB HEN BR Now ene ce ce 
MULTITABLECUNITNOJ§=MCCARDLOC+1),06%242]3 
STREAMCAI=0 98520 ,C 420 8D 1=CARDLOC#3 3 
IN D122. 0 Ad = 
osta5octs pSt=20CT) ENDS 
PGR (AGH IEE TAS! S104 TI AE CRUHE GA NESO TOI? 
VABELTASLE (UNITNO]taM(CARDLOC+2), [6%42)3 
END 
IF SCN NITNOsCARDLOC» SOURCE »A MsKO 
"GEO IDENT EN. ee eee 
SBE In IF. UNT TNO GEQ” 32. THEN 
HROW TY NO= ] ALIS 1§sO7 


CCLABEL t=63 GO EXIT 


"20596760 T 


NOFI THEN BEGIN P< 0)? GO TO FINOX ENDS 
IF TSDATAV THEN BEGIN PC4)3 GO TO FINOXS ENDS 
ABEV ThEN BEGIN P(4)5 NOX} ENDS 
ah GIN PCL) NOE ENO 


RE us : 5D. ne Bo 
PCCRETURNRCW) »STS+P&RCWLCTC) »OrRDS» OP XCHs P&PUCTFleSTFD: 
END CcFIND3 


i START oF REL, stow 


LABEL CCeCCTYPE>COMPILE>» INITTALLZATIONe BEFORETRYNEXT »TRYNE XT 


20594800 
20594850 


START OF REL SEGMENTS dey 


EET 
20395090 
0595 Q 


20595200 


20595250 | 


15952300 


T 
t 


0144382 
0000t0 


ADDRESS = 


29599350 T 


20595400 
20595450 


20595500 T° 


20595550 


20595600 
20595650 


O59 00 


20595750 


20595800 © 


95.950 
20595900 
20595950 


20596050. 


20596100 T 


O59 64 30 


20596200 


20396250 


20596500 


203596550 


20596650 1 
20596651 1 


20596750 


20596945 
105969 ee 
20596950 
20597000 
0597950 


20997100 | 
(20597450 


20597460 


20597500 


y 5 5) 
20597650 
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@ $ SET UM]T = wOTCSHAREDISK) 22000499 7 U000%0 e 
PRUCEQURE NSECOND#&_ _ . — 22001000 t Q0vQ0%0 
| oa | STAR! OF RE, SEGMENT? DISK ADDRESS = 00620 D 
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TIMING FOR HIM» AND CALLS "HALT" TO Ck NTERRUPTS3% 22240000 000156 8 
IF JOBKILLED THEN®S 22241000 T 00030 7 

6 BEING 22242000 t 0001414 /@ 
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: IF CHAR THEN S ¢ wESB © MCSI],CFFII.CRFI ELSE S + SHy5% 22259000 T 00130 ze 
er SPRT * PRTEMIX#10]5% 22260000 T 0019383 {@ 
Bo SPRIEX],(2%1] THEN BEGINS —— 261000 0021! 
| Z NEED 10 DO PRT AND STACK SEARCH ONLY IF PRESENT IN THIS PRT 22262900 t 002283 ' 
@; 90: UNTIL: CX © CSPRTCX] © CaP (DUP) )@0(28261)% 22263000 tT 002203 22] @ 
ae BCSPRICKXIACCFIMFRONTICCTCI)»£O%8121)220083% 22264000 002430 
< AROUND?3 22265000 T O0029%0 , 

@ |: wHILE (STACK t= HUNTC(BS)efCF)) LSS S DO 22266000 T 0029t0 233@ 
bs BEGIN CORE « (DESC «© NFLAG(MCSTACKI)) ,cCFIs% 22267000 T 003132 36 
i TF CORE 2 FRONT ANO CORE < BACK THEN 22268000 7 003434 a7 
on IF DESC &SS$ © THENZPROG, DESC OR RCWe 22269000 T 0036!0 1@ 
# IF peESC.C3IL) THENKDESC 22270000 7 0037! 29 
IF DESCel2t1) THENXPRESENT 22270050 T 003832 ‘ 

@ IF DESC,(6%23"1 THEN STYPE 13 INTRINSIC DESC 22270100 fT 003983 |@ 

NESTACK] 12FLAG( DESC & 0£28231] 22270200 T 0041382 a2 
“e CMOF 4080403 pected) Else 22270300 tT O0N3!y A 
@ % DESCRIPTOR “* “INSERT. “OFFSET. AND. SET PeBlT : 22271000. is 004583 \4@ 
| ME STACK] » PLAGCDESCSOLZ#2t413% 900 T. 004513 45 
&CCORESFRONTLCTCII& 32373000 7 O0049%4 ‘4 
e ELSE 22273100 T 005180 | @ 
ELSE BEGINS 22274000 Y 005183 ag 
7 5 CONTROL WORD CRCW) “= UNFLAG IN STACKs PUT OFFSE “g2275000 % O0Sat3 
Or. TBORRESPONDING SCWs AND MOM INTO RCW,ECF) 22276000 T 005233. 
Lo | 2 MEX © DESC OFFI) #% 22277900 1 005233. 

CeP (DUP) OC CORE=FRONT )[CTCJ33 22278000 T 0054%2 ; 
ek MCSTACK) © DESC&SEGNOLCTCI3% 22279000 7 005612 1 @ 
. — 22280000 T 005882 56 
5 oe ef TA Kes a 228 8 /900 T Gosats 5 
en. ce Bs 22282000 T 0059t3. : @ 
bh NS. | - 22283000 t O06oty __b 

e , 5 ROUND NOD 2284000 T 0061492 
© ; @ @ 


Data Documents/inc. 


x 


oon mn ea wr = 


oeeeeeee?eses ®@ 
CERT eR TeeeSESE? zs 


IF PCSPRTC191*TOP) THEN PCDEL) ELSE 
BEGIN CORES=FULIS 
IF CORE < FRONT OR CORE 2 BACK THEN 
ELSE AL eda ys baet 
ORE *F RON 
END; 
$ SET OMIT = NOTC(STATISTICS) 
ND OF PR NT IN PRY CASES 
END OF CODEOVERLAY;2 © 
preenes a 


Sie INX 03 BStsPRTLMIXe10}eLFFI]3 
IF CHAR THEN St*M(CSRtsM(S),CFFII,CFFI ELSE S8=S"43 

AIN? WHILE (STACK t= HUNTCBS $38 S$ nO 

“BEGIN CORES CDESC SEBNFLAGCMCSTACKI)) CCF 3% 

IF CORE GEO FRONT AND CORE LSS BACK THENS 


$31]57 TH 
=FLAG 


seta ban SEARCH FOR TYPE 13 INTRINSIC CALLS 
Pi Bd P 


copscecterarisacwonnberigistetel 


BEGIN MCDESColFFIJJ}330 #PCDYP) &CCORE*FRONT)ECTCJ3~ 


ia anes an ae tatiOl])ccTcle 


END; 
BStsSTACK+413 
ENDS 
IF CHAR AND (STACK LSS SB) THEN? 
BEGIN BS3s$B; SHSHUNTEBS SE) (CRIS GO AGAINS END; 
ND O YP NTR : 
COMMENT ULAY HANDLES "OVERLAY $+ THERE ARE 3 CLASSES 
OF THINGS WHICH MAY BE OVERLAID? 
1) OBJECT PROGRAM DATA SEGMENTS 
~ 2) OBJECT PROGRAM CODE SEGMENTS 
AND» 3) MCP CNON@SAVE) PROCEDURES. 
EACH OF THESE CLASSES GETS SPECIAL HANDLING» 
WHICH WILL BE DESCRIBED aS WE COME TO IT3 
% THIS CODE IS COMMON TO ALL CLASSES AND ALL CASES 
$ SET OMIT = NOTCNEWLOGGING) 
$ SET OMIT s NOTCWORKSET) 
LINK © MELOC]3. MOM © MELOCe1I)3% 
FRONT ¢@ LOC + 23 BACK te LINK, ECE I3 
IF (MIx « LINK,C9367)30 THEN GO TO MCP32% 
% <MIx>=0 AND NUN@SAVE MEANS MCP PROCEDURE OR INTRINSIC 
_IF MYXaP2M 1X THEN STOP3% he te 
CHAR © CINITCHW © PRIEMIXs8)),03291)3% 
Soe INTTCW, (Ces BS © PRICMIXs 10] .CRFIFR 
% CHAR IS CWMFs SS IS ToP-OF*STACKs 8S 19 BASE OF STACK - 
IF LINK.(326]21 THEN GO TO CODES% 
TYPE31 MEANS PROGRAM == QNLY ALTERNATIVE IS DATA 
F CHAK _TRENS 


“CHARACTER MODE 


PCr iaH Gee, [FF])2 FRONT AND T aT CET | 
S*REGISTER FROM ILCW (DESTINATION ADDRESS) 
ie NOT chat THENS 


AND — BACK) UNTIL (8 SX) OR sae 


RONT AND T'< BACK) OR 


22284 ,00 
‘° ore 
22284300 
22284400 
84500 


22284600 
22284699 

RSO00 
22286000 
ebebo bs 


DeahsG AG 
22286040 

2880 ¢ 
22286060 
22286070 

BOOrS 
22286080 
22286090 

one OO 
22286410 
22286120 
ene Ly tr 
222864350 

of? one 
22286470 
22286 ,80 


222879000 


22288000 
22289000 


22290000 


22291000 
22292000 
22293000 
22294000 
22294099 


22294410 | 


22295000 
22296000 
22297000 
22298000 

999000 


22300900 


22301000 
22302000 
22303000 
22304900 

05000 
22306000 
pt 


32309000 
22310000 


22311900_ 


22315000, 


4-4-4 +44 


+s 


“a4 


at et tt st st tet 


SS 


006534 
O0646 

006834 
OO7ot0 
Uo) 2 

O07 4!2 
OQ74%2 


008993 
O09Qt2 


OY 2 


009630 
009733 
010120 
010210 
0105%0 
040 r 
030984 
010984 
¢ 03 

011140 
Ort2ty 


Ollg31 
011684 
01163 

011681 
Opi6ety 
011644 
011634 
0116384 
01163 


OLL6ty 


O116!4 
O12710 
0129%2 
013133 
Q t 
O1346t0 
O136t2 
O140t0o 
014030 
014433 
t 


eetit 


Data Documents/inc. 


g * * * * 5 * Ae a a eS Th ~. ~. > 


RETRY 


% SEARCH THROUGH STREAM LOCALS AND PARAMETERS FOR ADDRESSES 


) + 


~_ENDSS 
END3% 
‘CHAR BRE AKO! ABOL ee 
BEGIN PCAWANEND SSN: GO EXITs 
ENDS 
ANNO AY MA B ADD RE SES N HAR MOL STack 


"TOD*MEMOM Te tati0); 
ae soldi CFFI) NEO 0 THEN % OLaY ADDRESS PRESENT 


© SET OM]T = NOT(AUXMEM) 
MOMe(CFRIJ8303 


NOs 
If OFSks0 THEN DISK! sO01SKSPACECIOD» MIX sNOAUX)3 
TF DISK. LsS 0. THEN = & NO OLAY O1SK 


[BEGIN PCAWAKEN)S GO EXIT? 
ENE ose ey | 
$ SET OMrT = NOTC(STATISTICS) 


IF (€S:3S°1) GTR MOM THEN JF MOM GTR BS THEN BStsMUM+i5 


® IF MOTHER IS IN STACK, ONLY SEARCH ABOVE IT 

WHILE STACK E@HUNTCAS)¢£CFI) LSS S DO 
BEGIN... : 
IF (DESC? =NFLAGCMESTAC Gx) ef 1?2}=1 THEN 

% ONLY WORRY ABUUT DATA DESCRYPTORS WHICH ARE PRESENT 

sMOM rir 
% THIS ONE DEMANDS | ACTION #= IT POINTS: INTO OUR ARRAY 
ee Bese petioles THEN 


NAME D: RIP : AND. af TV Pep 


NES TACTRFLAGCCUESC, tCFJ° FRONT )@MUM[(CTF) ) 


ELSE 
& NORMA ROW DESCR PTOR == ZERO CORE FIELD AND RESET PogitT 
ve 2 NESTACATE «PLeac BEBESC (AY 0128 17) 
BSISO TACKY EE 


IF WCHONTs £323) NEG 7 & NOT READ ONLY ALREADY WRITTEN 


$ SET OMIT = NOTCBREAKOUT) 
THEN 

BEGIN 
NOTCAUXMEM) 


$ SET OMIT id 
“DYSKIOCRSLT» PRON 


McMOMJS= CHP CDUP)) sOCes4724] a5CCTCI3 
B pane Ne DEL? 
FSS IN MOTHER [SS INTE sae Kk SPOR’ WA EPRESEN 
~ $NOOZECOsCASLTD, TOMASI 24 
ITP RSLT,0 2697) N 0 THEN. * 10 ERROR 
BEGIN 
$ SET OMIT = NOTCAUXMEM) 
F ¢ 
BEGIN, ‘% NOOLAY DISK 
sac el COE oes cre 


) LSS O THEN 


BEGIN 


0) T*1 100810316741)e DAT ADDRESS (MIX» DISK) )3 
C381) IN SIZE MARKS I/0 AS ORIGINATING FROM OLAY 


TERMINATE MARKER 


22316000 T 0164!0 . 
. N00 01,6480 
22318000 7 O164%3 : 
22319000 T 016483 |2o|@ 
22320100 T 016530 : 
22320200 tT 016783 |@ 
: A000 0167! . 
22322000 7 016783 a 
22323000 T 016943. |@ 
. 00 9 
22323400 T 017210 be 
22324800 T 0172%0. /@ 
. 000 e t 12 
22325200 7 O4173%y 
22325400 T 017634 | @ 
3254. OL7740_ hs 
eT: T 0179382 ie 
223925600 T O179%2 7|@ 
228264 TF 917932 by 
22326600 7 O,Baty : ele 
22326800 7 O1aaty - py®@ 
327000. 018613 24 
22327200 T 018633 > 
22327400 -T 048982 oy 
3 24) 
(22327800 T 019434 ie 
22328000 T 019384 2 @ 
IPA? OO 4 & ‘ 
22328400 T 019330 6 
22328600 fr 019533 hed 
Sueths inate 29 328800 01968 sc 
22329000 7 049693 
223239200 T O200to | @ 
399400 02044 
22329600. T 020183 
23329800 7 0203%> 3 @ 
22330400 T 02033 é 
22330600 T 020333 by 
22330800 T Oz04tt {@ 
22331400 7 | : 
22331600 fF ‘0 
22331800 7 «/@ 
22332000 42 
22332200 7. 1 
22332400-7 4@ 
22332600 7 O2144%2 M5 
22332800 T 021533 
22333000 T 021681 ahd 
22333800 T 021614 . 
22334900 7. 021813 A 
22334200 T 02081 @ 
; 14400 7 O224189 51 
22334600 022280 
22334800 t 022210 “| @ 
5. 
ta} 
sa @ 
i WME ee os —_ P 
22335800 T O224%3 
e@ @e 


se MIT = NO} 
BACKAGAIN?$ 
SET OMIT = AUXMEM. 


(TSKA ¢ PRICMIXUP,@26)),PB 
TF ct « TSKALS), (FFI)#0 THEN 


THEN 


ana 
ENO UNTIL CMIXUP © PRTEMIXUPS4]6[2486])=8773% 
13 


SEGD ct 


IF CTemeT), nopteuaadl AND TSBACK THEN 
GIN PE L 


3651450 


22366000 


Pie bl 


Se rioe 
22371210 


22365420, 


22365200 T 
22365300 Tf 


a27ete 


aaseenea eo oseriS. 


026712 
a 02 ‘i 


MEMOMJFeC#PCOUP) )8OL28478 1 &DISKICTC]; 22336000 1 0225%4 
P AWAKEN EL 23 6200 02283 
1 ENDS | 22336400 T 023084 
2 IF MCMOM20£3999%6° THEN MERGM)« CStpdeys 223491,00 t -O230%4 
3 OG ORGETSPACECFRONT) 0000 . 0 $ 
4 PCTRUE)S GO EXITS 22351000 T O0236?1 
6 CODE% 22352000 T 023710 
8 % OBJECT PROGRAM CODE TQ BE OVERLAID 22353000 023710 
? IF CT © MCSJ,CCFIZFRONT AND TSBACK THEN 22354000 T O23710 
a] % CANNOT OVERLAY NORMAL. STATE SEGMENT HE WILL RETURN TO 22355000 7 Oaddte2 
a IN PCAWAKENDS GO EXITS 22356000 7 O240to? - 
ki ENDS 22356020 T O242t2 
M IF SOFTI>O THEN 22356100 7 O242ta 
p2 F_JARCMIX,2}.£5%1) THEN % SOFTWARE INTERRUPTS 22356140 02433 
IF CTSKA © PRTCMIXsTSXJ),PBIT THEN: pe 22356350 T O2451;4 
M4 If (7 * TSKALA), {FFI)40 THEN pie dototid rises 
5. OPES CTOME TIC ECE DOF RONT AND BACK THEN. A ee oes ae 
q BEGIN PCAWAKEN)s GO EXITS 22356400 T O2sata 
: ENDS _ 22356420 7 025682 
d IF (MIXUP ¢ (SEGDICT ¢ PRICM][Xs4]) 1240 THEN% 22357000 02563 
a. % RESENTRANT COCE TO BE OVERLAID ** CHECK OTHER USERS, 100 22358000 - 025943 
pal * BEGIN MIXUP © MIXUP,(398613% 22359000 T naa 
i Sie: ; 9» 360000 026444 
“TF “MIKUP=PQMIX THEN STOPS 22361000 T 026482 
% STOP OTHER USER OF THIS CQDE IF RUNNING ON PROCESSOR 2 22362000 T 026480 
7 IF (CT ¢ MCPRTCMIXUPs8)),CCFI)2FRONT AND TSBACKE 363000 026480 
< eae THEN BEGIN. PCAWAKEND 3. 60 RAT 22364900 7 026782 
3 pe Be END} , -22364;00 t O2?ot2 
5 % SAME CRITERIA APPLY TO ALL USERS OF THIS cOpe 22365000 7 02708 
g IF SOFTI>0 THEN | 22365400 + O270%2 
3 IF JARCMIXUPs2),(5%1] THEN % SOFTWARE INTERRUPTS 22365140 T O274ty 


O27334 
O27513 | 


ooaats 
penal? 


Seen 
028732 


gg POP OMTT. 2 39371921 7 “029210 

ee SET OMY: - NO CAUXMEMD ; a a coe a 22871299 7 029240 
JMIXUP THENS. ee 72000 1.029210 

x REsENTRANT CODE BEING iVERLATO on MUST FIX ALL STACKS AND PRTS 22973000 T O29231 

IF (MIX © PRTCMIX94],02436))4@77 THENS 22374000 T O292%4 

x SET UP CHAR» Ss AND BS. FOR NEXT USERS STACK 22375000 02953 

8.4 OId« 22376900 T O295%4 

. 22377000 T O2daty 

aN Rt ia. BAGO r Q ¥ 2 

22379000 T 030143 

enero tT O3020%4 


hes: 


POp OMIT 22383101 T 030710 


o mn bh} & & 2 a > 5 BS eS § 5 5S es fs NS oo owe S&S 


@ | 
e % NOW WAS THAT NOT TRIVIALITY PERSONIFIED s., 22384000 T 0307:0 < 
McP 3 4 A5000 0 0) 

IF PELINKs6326)20UP)=7 OR P¢xch)e13 THEN GO TO INTRINSICS 22386000 T Free 

@ Kk © 92h BS e CPCOMROF)) gLFFIRS 22487000 T | 2/@ 
SET BS TO POINT AT ROw FOR CALL ON OLAY 22388000 T 031340 3 
DO BEGINS 22389000 T rETELG 4 

r) OLAY ¢ NOTCS ¢ CCCURE * (CT © M£BS))efCFI)SBACK 22390000 - 031330 |@ 
AN) COREZFRONT) 3% a Se 391000 U 6 
STs TRUE IF THE RCW POINTS TO THE ROUTINE TO BE OVERLATO 22392000 7. yt 7 

@ BS.« TeflFFI3% | 22393000 7 /@ 
POINT T TO CORRESPONDING MSCH.. 7 22394000 7 2 
WHILE (T ¢ M[BS]),016%1] DO BS e T eCFFIS% 22395000 fT 19 

e % RUN DOWN STACK OF MSCWS UNTIL NOT MSFF 22396000 T il@ 
IF (BS ¢ TelFFI)S64 THEN ae 22397000 fT 2 
END OF STACK =*° THIS TS RATIONALE FOR OBSCURE USE OF "PCO»STF)” 22398000 T 13 

@ BS © BEDEX © KX#2).CFFIE% 22399000 tT 032532 W@ 
ND UNTIL (X>JOBNUM) OR- S3% r iy! So eee 400000 032833 1 
IF RESULT THENS 22401000 7 0330!2 re 

@ BEGIN MEMOM] © (*P(DUP)I&( HPC .ESPBIT)) [CTCIaS 22402000 T 0330!3 \@ 
FORGETSPACE | RONT 5% ——_—_—_~_-42403000 7  QO333% ba 
| ENDS ® aes ee 22404000 T 0334%2 . "9 

@; PORESULT AnD 1)} Go EXITS ae 22405000 T 0334t2 Ld @ 
a : 4 ; = N6A00 0)": tq i 21 
FOR mIxX#4 STEP 1 UNTIL MIXMAX TT 22407000 T 033533 22 

@ IF INTABLERUWEMIX]Z0 ThENS 22408000 T 033730 31 @ 
p BEGIN IF MIX=P2MIxX THEN STOP;2 209000 T 033880 pA 
Tf CT * MCPRTCMIxs8)}eCCFII2FRONT AND TSBACKS - 22410900 tT 034189 ee 

@| “THEN BEGIN PCAWAKEN DS GO EXITS 22411000 T 0344! | @ 
¢ P : ENDS ae 641020 7 034782 2 
2 ENDS% 22412000 T 0347%2 c 

2@ F FOR MIx*1 STEP 1 UNTIL WI XMAX pox 22413000 T 034913 ed @ 
3 fe F_INTABLERUWEMIX]¢0 THE a 4 po 
ee Le BEGIN SEGNO + mOM, TEE 133 22415000 352% : 

s@F ‘STREAMCA © SEGNO AND 3a te LINTABLECMIxs SEGNG DIV 423)3 22416000 03543 ; | @ 
< BEGIN SI ¢ 13 SI © Sta; St « Si4a nl ¢« Lo A3% ; 441700 3572 33 

Cl ¢ Dl+63 US © 2 CHRS END STREAMINGS& 22418900 T 035983 

@ LF CSEGNO © POLISH)Z0 THEN% 22419000 03599 3 @ 
pe IF SEGNU = 62000 THEN INTI3 ELS 500 7 26 
BEGIN CHAR ¢ PCPRTEIMIX*8]* DUP), C32t1)5% 22420000 | 63 : 

@* TYPEL3#=SEGNO4C37t135 , | 22420200 73 1@ 
s -SEGNOt=SEGNO 74 &IGNOR 4205 : ae 39 
S ¢ POLISH I\X U3; BS ¢ PALER e107 (FF IJ3% 22421000 036933 40 

rd SEGDICT ¢ PRILMIXe4)32 22422000 0373!0 |@ 
, : INO 1s 423 03743 sd 
z “TF TYPE,3. AND NOT PRIINT RO KTS tetq) THEN 22423,00 T 1 

@ 4 3 TYPE 13 REFERENCE ALSO EXISTS AND yee REFERENCE IS noT PRESENT — 22423200 T- 037893 lq® 
_ ae SE . : re 
5 22423400 038010 4g 

e CUDEGVERLAYS 22423500 038032 «| @] 
j SEGDICTESEGNO! ¢ CAP COUP) 2 AMOMCFTE IFS 22424000 0382!0 48 
a ee 22824500 7 03848; c 

. - 22425000 7 O3849, . 1@ 
a ae Cee Shes oe ea ae : 22426000 51 
INTRNSCINO¥s TST OT} © C*P(OUP) €MOMEFTCIE 22427000 5 

@} FORGETSPACECFRONT)3% | 22428000 1 @ 
: PCAWAKENsOEL» TRUE )3 22429000 
i ee a9 ae 55 

©  fy@ 

22429300 
@ @ @ 


om nw mom OT FF WY — 


Data Documents/inc. 


s * a a 3 * 7 yi 3 
oD 5 & a &G & & an oa 


EXO OF OVERLAYS REVISION OF MAY 31% 1967aee 


PROCEDURE CHANGEABORT(X)3. VALUE X3 REAL. X3% 


h 


REAL SPACESTACK3 
SAVE PROCEDURE FORGETSPACECLOCIIS. 


DISKWAITCASLCE ]#2102 ESPOISKTOP+1 93 


ARRAY AL*]» Bre) 33 
REAL Je Tse 


Ae (MCSPACE(210)1)821018'38210); 

SLEEP CCTOGLEJs ABORTMASK)3% 

LUCKTOGCABORTMASK)3 

DISKWAITC@AeLCE Js. OsESPDISKTOPS; : 

WHILE CALO]®=XCLOCK#PCRTR) ) GEQ aC DO MIDNIGHT? 
AL1] «© DATES 

J © 3xXPIMIXs% 

ACJ] © MENT T © ALU42) © O78 


BeJARROWCPIMIX]3 — ZCANT WATCH YAR ano LOSE CONTROL: TOO, 
atge90) © BlO1; 


ACJ+91] « BL115 
ACJU+92) © X&BC(S)C1P25%23)3 
-18BO+PIMIXJeUSERCODESPAMIxd3 


rote Ute ale 


arate 


VALUE LOCs4& 
REAL LOCs& 


REAL BaBACKsFeFRONTsLINN* Xs Ts SIZESS 
Loc « wPCeLOC) INX O #232 . ee 
Cpe MEBaCKe OL Ke M Heber. #LEO OR 
CFeMCFRONT#LINKs [CF J))6 CFF I#L0C OR LINK<O THEN 
PUNT(3)3 %® INVALIO LINK 


MELOCJ*LINK: ercoteys% ; 
MEF JeMer) & TF 13%. 
NCT@MCFRONT#2 3 1eMETI 4(X*MEFRONT#I DICT ODE 
MUX¢1J¢T% 

__END3% 


ae) eee 
THENS: oe 
2 BEGINS 
MCBACKI+BaCT*MILOC), [oF}) Ect ci 
OMETJEMETI€ BACKECTFISR. 
MEBACK +4] ¢M BACK #114 SIZEeTBACK™2) (CTF I}4 


8 i, Sens sR a rea ee ae oes 
MOELOC+21]¢AVAILs¢ 


MELGC+iJe(TeMCavAILI) aCSIZEeM(LOCI.,tck Jmbucee UcTE 


23500900 


, Basar 


22430000 


22900000 


START OF REL SEGMENTS DISK 


¥OLTAO0 
22902000 
22903000 
904900 
22905900 
22906000 


2907000 Tt. 


22909000 
22910000 
29 000 


22912000 


22913000 T. 
944000 © 


22915000 
22916000 


22918000 
22920000 


22922000 
24000000 
24001000 
preeeeen 


24004000 
24005000 


BOO06000.T_ 


T 
T 
T 000483 
T 


T 039323 
7Fs 039 
7 QO000tO 
ADDRESS = 
060620 


000080 
000080 


o006'4 
O00 L3 
001232 
0020%2 
00 $ 


00649 


T 
y 002310. 
t 


Ooe7t, 
o028! 


T Boar tt 
T 


vost: 


00432 
O044th 


"S1ZE# 0045 


000030 
t 00000 
T 090010 


000080 


; 
MS 

Tt 000010 — 
T 900010 


Onoa 


wORDS 


o000to 


24007000 
24007100 
007 


TCT Le 
24009000. 7 


‘a6 ayonege 
24011000 
24012000 
24013900 


24017000 
240148y900 
24019900 
249020000 


24021000. 


8220.06 


“2402 3000 


24024000 
24 5.0.04 


02800: 
24029000 


24014900 T 
246045900. 


24016000 


—O0Lot2 


VOLa 
002431 
0027 #2 
00 


(O0-930.8 
003033 
0034%2 
0037! 


OoAat2 
Pe QOee ts 
T 004330 


1 004510 


001 
Q016to | 


7 002912 
a 903010. 


7 OOMZi2 . ° 
T 


Data Documents/inc. 


3 


or 5 3 Se oo 
4 7 2 8 F- = 8 & S & Ss & : 


Ip LOCSLEFTOFF InEN IF MELOCI.ICFI>LEFTUFF THEN LEFTOFFeM(LUCIJeL FFI; 24030000 T Ouds9tO 
$ SET OM = NOTCCEHUGGING OR ChECKLINK) _ 24030100 T 004330 
END FORGETSPACEs2 24031000 T 0063%0 
SEZEs. 0066 WORDS 
SAVE INTEGER: PROCEOURE ACTSPACE(SIZg*SAVEF IF. 24032050 T O000%0 
START UF SaVe SEGMENTS BASE AODRESS = 00679 
babs ae REAL S{[ZEs BUOLEAN SAVEFS 24032100 T 0000%0 
B NKe LUC eX VoT; oe ee, 240 Q 0 O20 
$ SET site = NOTCSTATISTICS) 24032300 T dQ00OTD 
REAL SIZEFe LOS; 24032700 T 000040 
ABEL SVSEARCHsROCKABYE pSTARTADVEEARCHs GYERLAY # xx) fs, 24032800 | ononiO 
IF SAVEF THENS ATTEMPT TU a~LLOCATE AT START OF MEMORY | 24032900 T 000080 
BEGIN LINK ¢ MSTARTS& 24033000 r O000231 
SVSEARCH:% eee ee O 00 O00 ) 
If CLOC @ LINK CCFI)s0 THEN GO TO ROCKABYES 24033200 7 000382 
IF (LINK ¢ M{LOCI)20 a 24033300 T. 000543 
5 N PNG 2 NK Peo CCR OMe POO TE MN re Tae a IT Ee) 0 G00 
BEGIN 4% Sere ONLY IF POTENTIAL SPACE ADEQuaTe 24033500 T 000984 
SIZEF © "23 X © T © LOC} 24033600 T 000933 
YeLINKeCFFIJ) # 0 N 24033700 T O012%0 
If MCY] < 0 THEN SIZEFeM(CT+Y¥)44), CFFIs 240339900 T 001343 
WHILE. ei zear tect AND CYeMEX}), Citedsi Do 24933900 T O019%2 
¢ hs () ener? za 
IF SIZe > SLlEF THEN 24034400 - 002633 
BEGIN LINK « Ys GQ avee ect END» 24034200 T O027%9 
ae res oatarte ee oar 2094900 7 00298, 
OTF CY#M Eh INKeT})>0 OR Y,cCryeLOc 24034400 T 003080 
OR wey CFF I*LINK THEN 24034500 T 003323 
INK. AT *T™ UNO ONGER VALID  —_—ss_— 0.32440 es f) 
LINK © mSTART#S 24034700 T 003730 
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GQ TO SVS ARCH 4% pe Pde ot ed 909 OQ383 
ENDS 4% ca 24035000 T 003833 
TF (Sizer © OMETeLOG#L)» tre eS1ZE THEN GO SVSEARCH33% 24035100 T 003823 
MCACTSPA 3a AB 2: Fi 24035200 004330 
QKINK « MCTJ3 MCLINK41] ¢« Y & SH eTTE % 24035300 T 0046%4 
MEY) ¢ CePCOUPIISLINKICTCI4% 24035400 y 005122 
SIZEFOSIZE+DELTA THENS 035500 00533 
BEGIN MCLOC)] «© (xX ¢ *PCDUP) )€CY # LOC+SIZE+2I(CTCI3z 240335600 TF 0055370 
MEX] © CwPCDUPIIOYCCTFIRS : 246035700. T 005983 
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END34 24036000 T 006583 
END ELSE 24036400 T 006533 
Pacoacke AL RUCATE: ON SPACE AVAL ABLE” Bast va 24036150 7 006543 
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; FINALs 
“BADEXIT > 
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END STREAM3 
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er BADEXIT: 

bei SKSPAC ¢ =43 
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le PCLOCCO), LEE Is OUP). 0 THEN: 
IF LUCCPOLISH"1)<0 THEN P(XIT)3 
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“AND THE TIE UP OF CORE BY CODE NOT OFTEN USED. THIS 27997610 7 000010 
PROCEDURE DOES INITIAL SET"UP AND OTHER SPECIAL FUNCTIONS 27997615 T O000tO 1@ 
FOR LISRARYLOAD, IT REFERENCES THE LIBRARYLOAD LOCALS 27997620 T .0O0OtO 3 
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ALPHAS41>» EADO=ALPHA+1» 27997656 7 000010 
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Yowe+ys 27997680 T 000020 22 
ROULEAN BB=Y4l> BOSOO=BB4l, 27997682 T 000020 2 @ 
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 TO0RH4 Ce)» LABRIOD4{ Cad» 27997688 2s @ 
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8 $ SET OMIT = NOTCB6500L0aAD) 27997694 T 000080 | @ 
3 AB RYNEXT» BAC »F INUIT» TRYAGN BACK OADEM,F INDFILENAMES, Ey! Ti 2799771 00020 9 
8 LABEL CASEQsCASE1>CASEZS are aa 27997715 T 000080 31 
3 SWITCH SWIT#@ CA SEO, CASE »CASERS : 27997720 7 00010 1 @ 
DEFINE SKIP ReTO¢S IPELJEOREELISTART#TOGS .[u6hil#s 997725 000010 
SPACITSwWaTOGS,(45?11#sCHKLBL=T0GS,([442] ]#> 27997730 T 0000%0 
DSED= (TERM IX, CF J=P1M1X)#»SPACERS5&@1400(CIF J, 27997735 T O000I0 @ 
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rt 4 ae 
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7 . OR CNFLAGCLABL2]).L6:24) EQV "FILE" )ANOT 0)) eet T 004110 
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D 0 : ABORT 3 
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EXD} 
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END ELSE Ke263 | 28655000 T 0399%2 
STREAM( Js CUMMON®T)3 28656000 T 040283 @ 
BEGIN 265700 Ouduto 
ee OS eS LIT"CO USERB™ISIeLoc J3Sl+S14130S¢? CHR3 28658000 T O40ato 
P5429 LITMFEXECUTE LIBMAIN/DISKS COMMONS" 28659000 T O406t0 ~ |@ 
OSB DECE DSe6 LIT"ZEND yes. 28660000 Qu10%o. - 15 
ENOS . 28661000 7 041124 
S SET OMIT = NOTCPACKETS) 28661099 T Oa1ite hed 
T*TRPIMIXE 1824226) kK 324315] ee 661300 04143 te 
INDEPENDENTRUNNER (PC, sCONTROLCARD ) 5 T#192)3 "28662000 T Oytaty 19 
$ SET OMIT « NOTCPACKETS) 28662099 T O4isie 1 @ 
Te) : ; eaten Aes, es g663000 0 3 24 
GU GETONES 28664000 T 041633 ‘le 
EDs 28665000 T Qgi7%4 23 
Xcdle@i4; % MARK END OF x ORY _ oe renee ee 28666000 TT O41734 24 
Tt; rege eka od 28667900 T 041812 2 
“BEGIN a : : | 28668000 T 041994 2 @ 
dy STREAM TOsVtay 3sSPA (10 2 teary nen 28669000 0419% 2 
BEGIN ps:#14 LIT=NULL LTBRARY "35 ]#sL0C M103 28670000 T Q42283 28 
S[teS]+150S%a7 ChKs DSt=L[ Tey 28671000 T 042530 3 @ 
NOs B67200¢ 042620 ea 
SPOUTCI)3 - ‘ i 28673000 T O426ty an 
GOUTOMINITIATES OE Se i : 28674000 t 042710 p®@ 
28675000 Oae7i = 33 
TveOk"Se"T 1 e371 FE 28676000 T 0427382 
Ip J LSS 900 THEN 28677000 T O429%y 3@ 
BEGIN. 28678000 043020 36 
TESSPACE(V+1)3 | 28679000 T 
MOVE C Vea Ke TS ooo cane 28680000. 
- FORGETSPACECKX)} . 28681000 
X?sCMCTII€(V+1) (8839881073 28682000 
28683000 
28684000 
CABELCMID FID G="FILEOOO% el pls lOOv J JeL Ol Ab gaslo 28685000 
IF “LUYELABELASCRATCHCLBL )) Lss 0 THEN ABORT). ee 28666000 
STARTIMING(O218)3 ee a 28687 000. 4483 
STARTIMING(5#U)) 28688000 T 044980 
BWR TDC cede SSL aOraD Teese TENE ea0h i AUEL 28689000 7 045080 
AROW! a(MESPACE(2)1)4218138010]) | i vay es ane 28691000 T 045510 
Afontos t= tw cSPAce (300) 314900cat 381 1037 tig >t 28692000 7 O456t3 : 7 ‘had 
AROWE 1 TterMeCSPACE(900))}]2900(6!98310]3; : 28693000 T O46310 | ae Pe tel 
INDssCMCSPACEC2)]]& 2088 3821033 28694000 T Quart, 8 
Jt="2} 28695000 T 047180 e 
DUMPING S=TRUES 28696000 047220 
wes Le & eed: ss Lad. - “O47 2) 55 
EC ENDS 
eo °@ 


-Data Documents/inc. 


& 

LABELTABLE(UJ+"LBLC2)3 % ENTER FILE ID FOR OL MESSAGE 28701000 T O478:2 @ 
HSsl(MCDIRECTORYSEARCHC x XCuttJ-5)I1430Cat38:10I15 a7a200% Qanot 

' HOQTSRCePCOUP)) AND 313 28702100 T 48482 

2 IF NOLBL THEN NOLBL*FALSE ELSE | 28792200 7 O4a8612 

3 62200 7 O4BOE 2 

* PCWAITIUCLOLR&@SO00LCTF1*@400U)eDEL)} 28703000 7 049210 

5 IF DOSED Riker ae 28704000 T Oagaty 

6 H =. 70 5.9.0.0. ; 

z IF “DSED. THEN ABORT: 

8 ENDS ; eat, ) 

9 Fe PCLHE9I re 0a Bu P)eQ OR PCXCH)>20 THEN... A706S00. 7 


no] GO TO BADHOR; 28706600 


T 
287064 oT 
; 
: 


PCWAITIOCHS@5000LCTFIJ»@40°U) »DEL)S 28707000 0504314 
h2 BA F DSEC THEN ABORT; AfO8000 
d FOR K*1 STEP PT UNTIL HO9) DO% WRITE aut FILE» ROW BY ROW 2a709000-. 


IF WLK49920 THEN 


: eR HOO 


bi 
28710000 T 
T 
T 


he ~ DUMPARONS 26711200 T 0515%0 
’ IF TAPEPARITY THEN 28711300 051680 
8 _ BEGIN 2741400 0516! 
oa TAPEPARITY! @FALSES a. | 28711500 O51744 
po GO BACKS sale 28711600 051940 
11 ENO; a | 28714700 T 052180 
IF DISKPARITY THEN — 28711900 y 052110 
p3 BEGIN 28711900 T 


0521433 
SPaAClT3 A7 12000 0 
IF OSED THEN ABpORTS 28712190 T..052310 
ae 28712195 052610 
HPeHe20(829881074 a7 13900 7° Gaaeto 
PCWAITIOCH&@SOOOLCTF }»©405U)sDEL)3 28712210 T 052840 
WRITENDINGLABEL3 26712220 053084 
(DIRECTORYSEARCHC Xf JJox(J+ids O53140 
NOTDUMPEDCIF OISKPARITY THEN 35 EuSE 4303 Bo28 T O53383— 
FORGETSPACE(H)5 A < rags y 053810 - 


= 
= 


QeREeR STE SES SESE SESSES SUSE REES SASS SUS os 


BADHORS | 


qo TO NEXTs- 28712235 


| | 054083 
ENO; 28712500 054330 
00 054330 


IF ar Ela Ee THES STOPM(0O)3 
: vi 28714000. 054570 
28715000 T 054542 
00 Tt O5468 
0548930 
054880 
_O 483 
7 054853 
T. 055311 


055813 


: RITENDINGLAB 
$ SET OMIT = PACKETS 
IF LIBMSG THEN 


ea7aseo5 
28717000 


28718110 
ear re1es 
DEL. ae 8718 


20718180 1 
07 


SEGIN ERTLENT TE PEC ERTET KFLAG ne AND OFFSET INTO rire 
LOLC210f303181190% RFILEOQO © 
JT J 12840 


To0t0}*03 Weis S1ZEex,{6!10)3 a 
LOREQUESTC*(TODCHIE(X INK #500009000)4, 


28718180. 
28718182 


If DSEO THEN ABORTS : = ——— 28718190 T 059110 


Data Documents/inc. 


io 7 & & & : ae & FS so F BE Es 


ene GR? 
) e 
BEGIN WRITENDINGLABELS “OUNPOIRSF AL SE END ELSE NOLBLeTRUES 


NEXT? ehoeeaLt FILES NOW | WRI TEN 
PCWAITIOCLIM)» @4UsU)*DEL)S 
STOPTIMING(021023)3 
STOPTIMING(5*1023)3% 
SeETNOTINUSE(Us1)3. 
IF TYBRSURL OND: THEN. 
: STEP 2.4 Xe £0 a po. CREB) ale on 
“TF DIREC TORYSEARCH(- XCJ]sxCu+l)57)23 THEN xCJ+2) 220143 
$ SET OM]T = PACKETS 
_IF UNITNOZO AND LABELTABLECUNITNOJ&@214 THEN 
os a sinter UR TENDS HET 144 - ie 
$ Por rhe ae oe es > 
1 : ae - 


ENDs % OF LIBRARYDUMP. 


PROCEDURE LIBRARY ZEROS 
BEGIN oy: 
OMMON== 


REAL TYPEsSEGs leveKs Nip Genome Te THING? ZEROING) 
ARRAY SC*JoxC we] sKSULTC*¥ J sBUFFADKE*),1IODCe)-HU¥)5 
ABEL GETON eLO0P >» WATE» ARIS 
DEFINE DSEDm(TERMIX, CCF ISPIMIX)#3. 
Ketttee eee te Te TERE. CE REE CLE LEAL LLL tk. 
SUBROUTINE ~ TASEGMENT3 
BEGIN 
SEG#=5(29]; 
0) KWA Se ] Oe SEG) 


“FORGETESPDISK(SEG)s 
. peg ess 
“Pehle i A. EN 


See re eee rrr ry mr reer reryT rere Teer TT eer 
SUBROUTINE ABORTS 


° N 


TF ZEROING THEN 
HiddebsstelteL, 


O1SKRAITCTRING. CCF Js30e THINGS LFF J)S 


eco) OF PrLATEs 


CCT e Tee Se CTC CELT TESTS STC CE LOTT LITTLE CTL LILI T ELT 


JOREQUESTC(™1OD(WIJ& 5t40sels | 
100 ew aee a LSS Seen 212¢T ELSE 512+63) 


> PER EPRP REPRESSES RRS ESE ESE ERR SREP REECE SE CELE SERPeeEeeSE e 


28718192 


28718200 
28718210 
28719000 
28720000 
28721000 


000 


38723000" 


28724000 


29726000 
28726999 
28727000 


28728000 
28728001. 


s7o9000-. 


28730000 


28800000 


START OF REL SEGMENT? OTSK Al 
28801000 T O000T0 


o62si3 


wORDS 


T 059480 
037510 
T 060583 
060523 
T 0606714 
T 060733 
0608! 
T 060913 
T 061013 
T 061631 
T 9622!0 
_ 062230 
T 062480 
T gaeeui 
SIZES 0627 
000080 
ADORESS. = 


28821000 7. 
28821500 


28822500 : 


28823000 
saasanoe 


zaazuasd 


Seeraoc 


28826000 © 


28832000 


28832500 


28834500 


seeaesie 


BANZO00. T Onnooto 
28803000 tT Q000%0 
28804000 7, 000080 

____ 28806000 T OQ000%0 | 
28807000 TT 000040 
28808000 T d000%O 
2ABOGOOO “= OH008O 
288190000 T 9000140 
28811000 T 000180 
ABL2000 O04 O 
28813000 r 0004%4 
26814000 7 00580 
(28815000 0008 
28816000 7 000680 
28817000 T 000680 
BALBOO0 


“903540 
eetas 


002413 


00706 


O02at3 
002382 
So26F3 eee 


Data Documents/inc. 


A 5 a * « * 3 . Be = TE 53 3 > 


SUBROUTINE ZEROAROW; . 28835000 T 003432 @ 
5 8A 00 00 me 
1 NLt*Hl els *NO, UF SEGMTS/ROW 28836000 T 0035!0 . 
2 QtaHtKs9 3 NOTSK AOGR OF ROW 28636500 T 003610 1@ 
4 #INDEX OF SEGMTS 28837500 T 003894 
5 28838000 7 003910 |@ 
6 *SWAP BUFFERS 8B 2004020 
a. ; IFN GEO "NL THEN RSULTETDveRSULTETT OR IOMASK ELSE 29839000: oo4ors. 
8 LOOP! 103 28647000 t OCo44ato. = © |@ 
9 WATE S. COMPLEXSL EEPCCCERS b CLew)) AND TOMASK #0) GR DSED)3 28848000. + 004630 : 


10 267181668 ACCIDENTAL ENTRY AT PiMIX 


" IF DSED THEN ABORTs 28849000 00542. 1@ 
h2 WeIF CRSULT(O] AND RSULT{1) AND [OMASK)Z0 THEN jou 2850000 005740 


CORSULT EI] AND: TOMASK)#0)3_ ae e a - 28651000 s290 ‘ 
IF NeNt THEN GO TO: LOOrs% ROW IS NOT FINISHED . - 2a852000 7. 3 J1@ 
EXSLEEP SULT A 1OM 0) oR vs = 28852100 oC { 


ACCIDENTAL ENTR¥ AT PIMIX. 
IF DSED THEN ABORT; 


28848000 


266852200 
A a = aleke 
Lasstusiussanensdacatauatussuneuunauninatwatnhawatienan 28854000 


SE SCMS OC ACEC Ie) U2 ka007 1963 he A apse : : 28855000 7 -¢ 75 ‘ tiled 
Oe 3} () . ; BHS6 Cr O08ats os oe 


0088t0 
ee 


28857000 
28858000 


TYPES =SCUMMONe LFF J3 
$t29]14COWNON CF 1} 


28860000  gggsto. ey ; 
28861000 009384 | ee py 


{fF DSED THEN “ABORT? 28863000 opests 
a I>26 THEN GETASEGMENT3 . 28864900 
13:25 ; : 
KtvetiteSt laid or we . 28866000 7 

Stedeos | : | Pgs ane | 28867000 T yt se ® 
SCpepe2e) 281 4. tae ¢ TORE , AAKAHOO t ' ee 
Pepe ESPACE UU ecrataeii cd: 28869000 
RSULT#=(2 INX 100)818(8238240]; 28870000 
BUFFADR$=(4 INX 100)84(6238310)3 BR71000 
TOOCOTS@CBUFFADR INX 0)410883611078305146%2)3 eS 28872000. 
ATOCELT LOLS Ee EAR INX lab d ebatl teria es dale 28873000 . 


042582 
Q12631 
‘ O oe 


28876000 
28879000 


FEROINGI 814 
ull sadn dole pO & 


CTORVSEARGH(KEVTONEVS1345)17€30;809811097 
N J93 THEN GO ARD# 


*P(DUP))&3(43! i ee 
QLSiHAITCTRING CCF 12307 THING, CFFI)3 


28682100 
28882200 
28882400 
BAH 30D00 
24884000 
idee 
£00 
Tre 
28886000 


RITE QUT rahe ROW BY ROW. 
NST OF mC O 3 


ee jaa 


ENDS 
HCG}.C4382]'203 & NO LONGER SENSITIVE OR BEING ZEROED 
; 


jj 
e 


“28890000 T O16at3. 


Data Documents/inc. 


fi a ar, a , Es 72 nS ee <n << = 
on 5 5 we & a F x 5 i? o 


GC INITIATES 26891000 T 0169381 
ENOs ¥ UF BRARYZERU a PB AGINON 7. .- 0769S 
SIZEe 0170 
$ SET. OMIT = NOT CAUXMEM) : ve : 28999999 7 00000 
) N RRORMES D BY ERRORFIXER F ORTION 33 ON) 70 0900000 p000tO 
TYPE QUT A PSEUDO= TERMINAL MESSAGE s IT DOES ABOUT THE SAME 30901000 7 000010 
THING AS THE FIRST a OF TERMINALMESSAGE 5 30902000 T 0900%0 
PROCFOURE FERRO RME 1A PES REA P tet aoe 09903000 000040 
ae START OF REL SEGMENTS DISK AppRESS = 
“BEGIN iareaee S)ADROBF »SAWNS 30904000 T 0000%0 
eee 09605000 TT. 860080 
Tee C 30906000 T 000080 
BF eGETOEAGE (109 0702429 30907000 T Q9000%O 
SD*PRICPIM] 0908000 000 
NTLeSDCOIS. 30909000 T O005%1 
AORERUESEIDIWES? 81) « OF Is 30910000 7. 000610 
FOR Sei STEP 4 Ut NT 00 0911000 0008 
IF CSaeSOCS], C18%153)>1023 aND SASADR AND SptSI>0 THEN 30912000 T 001010 
IF MCUSA*1].C18815]*SA2AD0R THEN GOL; ae tT O015%2 
«03 a O00 00 $o. 
ka SD*CMESPACE CTERMSGSZ))J2 30915000 T 902283 
: ADReADRMSAR ? | ate 30916000 T 002644 
DISKWAIT¢C#(CSO INX O34 TERMSGSZ 3 ] : ied = 0917000 00 
NelF TY¥PE=1 THEN 11 ELSE IF TYPE= 2 “THEN 9 ELSE iF TYPES, THEN 30918000 T 003180 
7 ELSE IF TYPE#S THEN 13 ELSE 53 30919000 T 003583 
RB} REAM(M#(SDENS 1, Jef JAREPIMI Xo Q] ]¢PIMTX> Sp AOR» X52 BF)S bates 3092 3983 
BEGIN Srey SreS+2; O56 CHR; BFeDIs DIeLOc Ms Sr#Sr+t; | 30921000 T 004313 
O1*D1+73 DS*CHR} DIeBFs DSem- CHRS “Dse8 LIT" BRANCH "3 30922000 7 0045%4 
i +5. ; ose . r ee A 59453000 O04 
SteSle1; DS¢7CHRS USeL[T" ="; ae PIMIx3 30924000 T O0049%0 
OSe20EC3 BFeDys VyeD"25 OSeF ILLS DyeBF; 30924500 T 005044 
X(DS¢5 T™™, S =3 Sle_oc S$ DS*4 DEC} DS¢S Tw, A 3; 30925900 00513 
OSe4 DECS BFeOLs OleDI eq} DSe3 FILLs 30926000 T O054i2. 
a oleprs Dlepl<13;3 sae FILLD3- . 30927000 T  O058ta 
“DIeBFS OSe LITE ‘30928000 7 9g056! 
END} a 30929900 T O057%4 
FORGETSPACE(SD)3 30929500 1 0057!2 
SPOUTER (BF? Or ERRORMSG D5 30930000 T 00584 
END ERRORMESSER} 30931000 7 O059t0 


PROCEDURE ERRORFIXERC TYPE): VALUE TYPES. “INTEGER TYPES 


COMMENT LOUKS FUR RUNeTIME=ERROR ACTION LABELS IN AL GOL PROGRAMS» 
AND HANDLES THEM» RETURNING SNE IF NO LABEL GIVENS 

bent ARRAY AITURJSPRIOC HIF ne 
NAME... ADORE 
REAL Ie GOTs. ADRS ADORS GABLES. 


CHECKSTACKSPACES 

IF TYPE #2 THENZOVRFELW 

IF JARCPIMIxe2),0381) THEN 

TE CPRTCPIMIX#@5174ND @©20270 THEN - 

» BEGIN I*MCADREPRTCPLMIX28) INX O13 

_  @TREAMCE@ CT INX 09410305103 27eG0T+fG0T))3 
BEGIN SlelgSJeSle2s01¢014+63;0S¢2 CHR ENDS 
IF GOTe645%3)#5 THEN MCAOR™3)©@77777777777773 
MCADR™2I¢@7777777777777773 
reas PRTEPAMIX#@5 a ekaS te T6023 


31001000 
34002000 
314903000 
31004900 
34005000 
31005010 
31005050 
31005400 


31005320 
34005330 
31005350 


TULL 350 


31005200 
31093380: 


S1ZEs 0060 
31000000 tT. 000 
START OF REL SEGNENTS DySK 


0'0 


0o0Bh2 


- 901140 


wOROS 


00712 


WORDS 
00714 


WHILE CAIT#PRTD CAITNDXJ),.PBIT=0 00 31007000 T 002833 @ 
MAKEPRESENT PFRI ALTNOX] NX QO 31008000 09313 


1 TeAITLOI] 443 31009000 003610 

2) OO 1¢1"*1 UNTIL CCGOT* sel AAP vhs Rd geaetalgbal AND C ADR, ECF) aeeaes O03712 

3 = : : 7 : 

4 If GOT TREN &® WILL REINITIATE THE GUY» SO SET HIM UP 34012000 004333 

f BEGIN LF CLABLE*MC ADReMOMJ)40 THEN 31013000 pe 

6 F 4B 0 0 OO4 

7 TF LABLE.BLKCNTRSC(PRTDL16J*(LABLE eMOMFO))THEN 31013100 oo4ati 

8 : REGIA IF PRTD CCURBLKCNTRIJ>LABLE ,BLKCNTR THEN 310140900 005483 

7 a N-PRIO a RAL KCNTA Af Bi KONTR ; O415000 7 005833 

10 ASR} 31016000 T 005682 

ie END3 TF CADDR*L ABLE. MOM)=0 THEN = ees T 0057380 

NZ BLE ~=MOM¢ADDReP D) 0 MOM SPs 05 

; ADOReADDRAAORE 3323301513 31017200 

(14 $ SET OMIT #* PACKETS : abi reo: 

hs RRORMS HES : pi eto Seas ee 

ie $ POP UMIT 31017 aii 

7 . EHAOHNE SPENCE? . 31017220 

8 PRTO PR bE N no ars 0 ole 

a MAKEPRESENT (LPRTDLLABLE s(CFII]« CCF 123 310147400 T 006783 

20) DO UNTIL GC ADDREHUNTCADORE1)) 201233543 31018000 T 007081 

¥ ADDR CL] eMECPRTO *.{8] INK NOT 933 = O19000 O07. 

2 ACDR C2JeMCPRTD (833g0c¢10%1082)8@ 31020000 T 007683 

P CLABLE)(18218215]8PRID CCLABLE)e(CFII033333:15 8 31021900 T 00/933 
J PRTIp L8JeP(pUPsLOD) RC ADDR INX 2)£33%33%45)3 _ 313022000 tT 0082!0 
S GO INITIATES ; 31023000 + Oo8sia 
sor. : END}. ENDS© 31024000 T 008St0 
5 Pp | _END ERRORFIXERS 000 7 Ooasto 3 
§ $ ee 0086 WORDS 
: PROCEDURE JOBMESSCMIX,Q,A5B,C50)3 VALUE MIX sQsAsG5C,D32% 32000000 i 0000%0 

AR S . N B, K ADDRES = 


REAL MIK*# Qe Ar Be CaDs® 


320001;00 
COMMENT # THIS PROCEDURE CAN BE USED. TO “BUILD ANDO SPOUT A MESSAGE 


32000110 


000040 
0000%0 


a 


THAT 19 JO BE. PRECEEDED BY A <JO0B SPEGCIFIER> WHICH IT 32000420 000070 
BUILOS AUTOMATICALLY FOR THE MIX GIVEN3 32000130 T Q000!0 
BEGIN REAL BUFsTié 32000200 T O0000%0 


SE OMIT = NOTCPACKETS 000249 000030 


LABEL EXIT). 32000280 T 000080 
IF © GETSPACEC9+000)42)5 need oe 32000300 000010 
T. ; 32000400 
F=SPACE(30)7D1SKWAIT( #19 30703 32000800 
STREAM(CMSMC7410+5XSYSNOJoF S=MCT4#1145xXSYSNOI BUF )3 32000510 
BEGIN OSt2LIT"OMMFSTI=LOC MSSIESST41509387CHRS 32000520 
ee OOPOL TTT EA TET ROSE US TUPLE TOHRIUS ENOL IT" «: on"; ~ 32000530. 


ENDS. | 32000540 

: FORGETSPACE(T)sTtS(BUF42)8403094513I1% 32000600 
END ELSEX 32000700 
IF JARROWCMIX)#0 THEN 32000750 
BEGINS STREAM(CeOiRe IF (T+ PRYOR(MIX])<O THEN T ELSE T 32000800 
“Tg © SARRONEMINISMIXGA © 0180 THEN JAREMT Xs: 0 32000810 
32000812 


NX Op 


003280 
003330 
093333 


2 my StS _Rd 0. DE : 
DI ¢ DIe6s Ds + 5 FILL O1 BUFS OI « a oET EE: . seooieod 
OS « LIT "8"5 Ste v3 ge001 100 
If SCa"+" THEN 


i ot a °c al De 


7 me 0 a 7 n a a mS = TS 


END ELSES a — 32001200 7 003710 


BEGIN S$] « Sb413 US © 7 CHRS DS © LIT "/"3 32001220 T O0037t4 | @ 
¢ si+iz 2 + alls Q Q 0036 
oe ENDS - 32001260 T 003893 le 
DS « ae Hens ST uae MIXd DS * 2 DECES 32001300 7 003813 2 
SCce DU. nl 23. © 2 LER S N01400. eR CEE 3 


“END STREAMS 32001450 


T O040%0 le 
T += POLISHs 32001475 T 004033 : 
UMIT = NOT PACKETS) Se ee ee ee eT 29 O04 13 
“END. ELSE. : ~¥ NO SUCH MIX 32601850 7 004421 7 
BEGIN FERGETSPACE (BUF )) : 32001575 T OOM1tt |@ 
Q £x AE 22001400. 1... 00428 8 
ENDS 32001625 T 0043!0 
STREAM( ACC AIeZ¢00T)3 % 32001700 7 004380 1@ 
OS ¢ "me 2001800 O044% 12 
FSC # "4 ae | 32001900 7 0048%0 "3 
GIN TALLY + 7) 81-e Stop 8 | 32001910 T 004583 @ 


OCL3 IF SC = "O" THENS | 32001920 7 O046ty 15 
BEGIN TALLY « TALLY + 634 SI] ¢ Sq + 43 | 32002000 T OQ4?780 | e 
END ELSE JUMP QUT)3% 32002050 T 0047 t2 Ww 

18 


LYS D3 «¢ Z CHRS% 


32002090 T OCO49ts 
32002100 tT 005030 no @ 


ee 9002200. O050%- aq 
32002300 ¥ 005033 eS 
EXIT! 32802350 T O0052!2 cj @ 
AD —_ stipe ne Sica Sian Bi ed ie Nate cote coche a Aa ae : ! $2. 24 
: S1ZE*% 0053 WORDS 2 
PROCEDURE. MIXPRINTCQ)S VALUE. Qs REAL OF 32100000 fT 000080 2 @ 
3 START Of REL SEGMENTS DSK ADDRESS = 2 
3 COMMENT THIS PROCEDURE INVOKES JoBwESS TO THRE THE JOB SPECIFIERS 32100010 T 0000%0 2e 
3 CF EACH ACTIVE MIX3% 32100020 T O000!0 7 @ 
8 2100100 000080 30 
2 EP y UNTIL MIXWAX DO” | . 92100200 tT Goooto | | a 
é OTF VARCTe*) £00 THENE : | 32100300 T O00ato fe @ 
BEGIN JOBMESSCI20,+09"09%00"0)5 1 #1 ENDSs | 32100330 71 0003to __ 
IF NOT T THEN NULL MIX 32100400 T 0009%2 
BEGINS STREAMCT®T#GETSPACE(2,0,0)4#2)s DSelILIT " NULL MIxeMsx 32100500 7 001030 1 @ 
SPOUT(T @ Q¢9:9:9105% 32100600 T 0015%4 ad 
“END NULL MIX? ? “32100700 7 do17%0 37 
END MIXPR fo Cou Aa eae a 300 T O047K0 9@ 


ZEs 0018 


$ SET cuit 3 NOTCDATACOM AND OCSPO ) 34999999 


0000t0 0 

PROCENURE DOLITTLECOK»T»AsB0Z)3 VALUE To» Ae BS REAL OKeT?arBed3 36001000 000080 1@ 
START OF REL SEGMENTS D SK_ADORESS = a2 
3600: / T 00008 : 4 

36003000 } 000080. a®@ 


ERN. Xs CFIMPIMIX#R : 36004000 Tt. 000010... eS 
IF OK THEN GO &3 36005000 

Lt FILEMESS( as geNCOJs NCLIoONC2IJeNC3]oNC4I 3 36006000 
Xone Tare els aa a QR Sen Of OS )3 36907000 


"26882100 


= DS THEN. NOT @ THEN IF NOT NHYSLEEPCT) THEN GO Ls | : 3008000 r oo17t2 ss,  @ 
t iT 6X: Ca Cs A ATMS A Haat U Ee geet . 3600900: “on oe ; one 
END OF DOLITTLES 


Sanat 


5. 
: 7 | ZE® 0024 WORDS ® 
REAL PROCEDURE FINDOUTPUT(MID»F Ibs REEL» CDATEs CYCLEs TYPES FORMS» 000010 
sl @ 
fi : 90200. ORO hy 
BEGIN INTEGER GOTL»GUTT»GOTa» GOT Ps GOTC 37003000 tT 0000%O ee 


g * 2 * is ‘ = a a 5 TKS = x 53 = x 
oe 40 a S & a g KR 
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3 a + a 7 5 + a aS 3 3 


REAL Us 
LABEL EXIT» SW» ON» OWT» ARQUND»s OUK 
REAL MID@MIDs RFAKE OUT COMPILER 


1 

2 $ ser OMT = NOTEPACKETS) 

3 

4 REAL SUBROUTINE DSEDs DSED*TERMIX,L33819IP{MIX3% 

° LABEL CP»MT»SUsPPsCKFMsDOITOVERS xP 

6 DEFINE PNTOG=(TYPE=QO OR TYPE Q@ 20)#3 

i SWITCW TYPESW$CP» ROUND# MT» SU» ROUND» SUs ROUNDs PP» PP» MTS “P 

8 REAL SUBROUTINE PRINTERS ® 

9 BEGIN IF LABELTABLEL2Z0)]50 THEN BEGIN Ue2ds PC4) END ELSEX 
10 IF LABELTABLEL21]=0 THEN BEGIN ve2i13 P(C1) END ELSE PCQ)s% 
4 PRINTER*GOTLeP3% 
be ND PRINTER3% Se ene ee 
" REAL SUBROUTINE PTPUNCHS% ae | 
ta “BEGIN IF LABELTABLEL26]=0 THEN BEGIN Ue26s PC1) END ELSEX 

15 TF LABELTABLE(29]50 THEN BEGIN Use293 Po) END ELSE P(ods% 
N6 PTPUNCH*GOTPEPS£ 

7 END PTPUNCHS® 

8 REAL TisT2eTasa ae nee 
9 REAL SUBROUTINE PUNCHS% 

BEGIN IF LABELTABLEL22]#0 THEN BEGIN Ue22sPC1) END ELSE PCO) 

1 “PUNCHEGUTCeP3 

END PUNCHS$ 
D3 REAL SUBROUTINE MAGTAPE3% 
BEGIN IF NOTCGUTL OR GOTs UR OTe) THENS 
|: BEGIN IF T1#0. THENS 
bel BEGIN FOR UeO STEP 1 UNTIL 35 pos 
. LF CMULTITABLELU QV..Ti)sNOT O.THEN? 


IF LABELTABLE[U]<0 THENS 

| ROCTABLE(U ]« C8:6)=P1IMIX THEN’ 

CT3*PRNTABLECUJ)I<O THEN’ 
IF MOMCT3,015¢253"3) INX 5),04191) THEN’ 

BEGIN PLDs GO OwT ENDS 

NOS 

FOR UeO STEP 1 UNTIL 45 00% 

IF LABELTABLECU]=0 THEN BEGIN P(1)5 


wS 3 


oS 


GO OWT ENDAS 


OWT: MAGTAPE*GOTTePs3 

END MAGTAPESS. 
SUBROUTINE BAUFMS 
BEGIN 


ZBUILD AND SPUUT BAD FM MESSAGE * 


TLeGETSPACE (100050) +23 
“STREAMCA*TINUCUD sMXePIMI xe TL 23 
“EGS okt LAT “INVALIO INPUT UNIT "3 

OC MX3 DSe2 DEC) DSe2 LIT"F M3 


RRHR 
%RHR 
RRAR 


ean As SJeSt+3s S¢3 CHRS ZRWR 
DSeL IT “ems DyenIeds DSeF ILLS *RHR 
NDS SPOU = ARKR 
af LABELTABL CU1¢@1143 READY*READY AND. CUeNGT TWwOCU))3 
ce prelia Sabhee AND us Bah katulasit chabert AND Ys .. SRHR 
WN ne: y: 


REAL SUBROUTINE BKUPTAPES & 

BEGIN IF NOTCGUTL OR GOTC) THEN 

__FOR Used STEP UNTIL 45 
Tir SLELU} Ea 9 


PCO)3% 


37903190 
OO4Qndo 
37004100 
37004499 
TUGRoVI 
37006900 
370079000 
O 


37008000 


37009000 


37040000 
37011000 
37012000 

(} 90.00 
37044000 
37015000 


37016000. 


37017000 
37018000 
37019000 
37049400 
37019200 
S701 4% 300 


37019400 


37020000 


37022000 - 


37023000 
7024000 


37025000 


37029000 


040000 


379031000 


37032000. 


370339000 


37034000. 


37035000 
37036000 
37036400 
37036200 
37036300 
37036400 
37936500 
37036 
37036800 
47036900 
oheze 
37037100 
37037200 
) OO 


37038000 
37039900 


37041000. 
37042000 


OnIA00 ©. 


37044000 


37026000 


37027000 
379028900 © 


00 + 


"000080 


001910 


 O025t2 


O04gia 
004843 


005010 


005333 
0056t2 


goToto 
‘boris 


000030 ] 
000080 


000040 
OOOt 
0000%0 
000283 
00023 

00dat3 
000233 
000330 
0005%2 
0009%4 
001030 
OO10%s 
001140 
00 $ 

001731 
001870 
00188 

eee. 


002350 
0023i1 


002430 


002683 

oz2a10 
0029%3 
sae 


TETeet 
ogre. 
004340 
004350 
004410 
Qo483 


00498 
004933 
005050 


oos2t1 


005732 
0058%4 
O059 
0060114 
0064390 
U086 
006683 
0067!0 
006830 


00; om 


007712 


Data Documents/Inc. 


@ 
& AROUND! BKUPTAPE*GOTBeP; 37045000 7 007733 
AI7046000 ad 0078 
; $ SET ‘Omit = NOT (PACKETS) ’ 37046004 7 007813 
rd) OTE TYPE>L AND TYPE#4 AND TYPES6 AND TYPE<15 THEN GO SOMEWHERES 37046020 - 007833 
ROUNH? F TYPe=1 GR TYPEsq OR CTYPE>16 AND TYPE«<19) THEN 2 m) 37046040 0086! 
IF PRINTER THEN BEGIN KIND*13 GO CKFM END3 gP 37046060 T 008933 
@ IF TYPESO OR (TYPE>20 AND TYPE) THEN 37046070 T 0093%0 
IF PUNCH THEN BEG IND«6; M ENDS Pieaeee Boe ~ 37046075 0095! 
TF TYPeEs4 OR TYPEs6 OR. rYPeEEE OR TYPE#18 OR . 37046080 7 O099%0 
@ CTYPE: GEQ 20 AND NOT TYPE4(4641]) THEN 37046090 7 010293 
BEGIN. Tl¢03. T2eIF TYPE. GEQ 20 THEN "PUTMCP " ELSE "PRTM a FOULATOO O16 04. 
T 300 1222123425464473 37046410 7 040910 
@ IF BKUPTAPE HEN GO THERES ¥P 37046120 7 010933 
F_MAGTAP %P 04644 _O4113 
CLAIMyt BEGIN HL TE TABLE OIE TET LABELTABLELUJe*T33. =P 37046160 + O113%0 
@ b4. fg oe ee ~RRRMECHe TWO CU) OR -RRRMECHS xP 37046170 7 O116ty 
1P REELSO THEN REEL 4s. 37946475. t 011810 
TleGETSPACE( 102080) 443 %P 37046180 T 012080 
rd] STREAMCULSTINULU Js NS SPRNTABLELU]¢ £30818)» 37046490 7 O1zats 
A¢REEL sBeDATEs Ce CVCL ErO+OrPNeTYPE GE@ 20 379046192 T 032430 
eee Fae T hs 37046394 7 012513 
er BEGIN, pge12Liq" NEW PBT ON"S SI*LOC Us Slesl+s53 “P 37046200 t O12683. 
2 -PNCDODTS DIeDI™Os PSeALIT™UT"S Ol]o)3 | 37046205 7 012970 
P DS*3 CHRIDS*25LIT%e LABEL OPBIMCP OBACK*UP"S xP 37046210 - 0131320 
@ PNCD*DI3S DIe©DIT143 DSe*2LIT"UT"; DIeD)s 37046212 T 043483 
2 SI t= .OC az OS t= 3 DECI sisi ete SOMO BLY OL 368 3. 
ae STISS [4330S FS5CHRIS [12S 747901590 [4130S taC YRS 37946217.T O137%4 
°F oy 15¢0S%92 rie eh doaad eoaee al: N3 o7aeeed0 “T #013882 
one OS#SS DEC oe O,soio 
Pay ENDS. : %P 37046240 7 014081 
e al PCWAITIOCTs&806% 388 40]850 2484523) 209U)s0EL)S xP 37046260 T 044089 
ane — POUT(T1"2)3 37046270 T 044410 
alee TAS CLUAL bee 7375. ig 37046280 T 0145145 
Or. PCWAITIOCLTL]? Onur» DELIS %P 37046300 T O14740 
‘ HER LABELTABLECUJe¢£135)4@203 KINDe73 GO E xP 37046220 014832 
< ENDS ENDS xP 37046340 T 015232 
eo} IF CTYPE GEQ 15 ANO TYPE LE@ 18) OR TYPE GEQ 22 THEN 37046350 - 015680 
86 046260 01583 
Py s SET Out * NOTCPACKETS) : 8 37046369 7 015981 
OF BEGIN : fae | | 37046450 T O4DOty 
x "T OMIT = NOTCPA KETS. 046459. O89 
; T3bsNEXTCONUM(L)3 37046470 TY 015984 
@ T2ss0013 — 37046480 T 0146082 
NDS 37046490 1648 
—KINOEBL23 05 0% 37046500 T O16194 
@. " STREAM(T36 12,0471 taut #SPACE C2005, , 37046520. 7 062!1. 
. N 370468390 1.016610 
; DSe8 LITt"O@+le O1a"spSe24 LITron; 37046540 T 
@ DS837 LIT"B4O0000"SDSI=10 LIT™O"S 37046560 T 
SIts_OC T3sSI#=Spo4s OSt=24 CHR3 37046580 T 
STs 0c. tay mate CER ~ : "97046590 T. 
OF | Ona | , 37046600 7. 
2 -ENDZ. iy ay a : 37046620 7 
$ SET OM]T # NOT CSHEREDISR 37046624 T 
@: MUTL+#SJ¢MIDOCTYPE GEQ@ 22)(384781)3 &% CP BK UP TOG 37046630 T 
; Go EXIT 37046640 T | 
Ti Ou660 F OfBRt 
é 56 20 THEN "  ” ELSE Tb 0286) 
PM)ICL2I396t12)... 3704 Tr i. 
e QCIF TYPE<2 THEN ® " EL IF TYPE GEQ 20 THEN 37046700 T 019110 


"PUT" ELSE "PuT")C308350818)> 37046710 7 019432 @ 
C\F YPE<2 HEN "RQDO hdd LS "om RAD" )»aMI De , 046 () 019462 


1 REEL sCDATE sCYCLE)3 REPLYCPIMIX]§ e"VWYSVOUC3I6%84236)3 37046740 7 0199%2 
2 COMPLEXSLEEPCCCIF (TYPE*6 AND TYPE420) THEN IF PNTOG THEN 37046760 7 020380 
3 _ PUNCH ELSE PRINTER ELSE 0) OR REPLYLPIMIX 37046770 fT 020330 - 
4 >O ORCIF TYPE>1 THEN BKUPTAPE OR MAGTAPE ELSE 0) OR 37046780 020330 
8 DSED))3 1Ff DSED THEN GO Xs 37046800 T 020380 
6 36007000 ACCIDENTAL ENTRY AT OSED 
? IF NOTCGOTS OR GOTT OR GOTL OR GOTC). THEN 37046820 TT O224!13 
8 BEGIN IF NOT WHYSLEEPCVWYSVOUL 36942%6]) THEN GO wai 37046640 Y 022613 
9 IF PNTUG THEN BEGIN UeREPLYCPIMIXI,CFFI3 GO CP ENDS 37046850 Tt. Og29ta 
to OuKIg: TYPECIF CLeEREPLYCPIMIxX) CFF IJ)#1 THEN 4 ELSE xP 37046869 7 O24239 
iM IF U=2 THEN 1 ELSE If UF3 THEN 6 ELSE 153 37046880 T 0245%2 
n2 REPLYCPIMIXJ¢03 GO ROUNDS ¥P 37046900 02503 
n = ENDS REBLYCPIMIXJeos xP 37046920 T Oa52t0 | 
4 IF GOTB THEN GO THERE ELSE IF GOTT THEN GO CLAIMT ELSE 37046940 7 O25344 
| “IF GOTC THEN KINDes ELSE KINDed3 246950 Oosato . 
8 7s CKEM: IF FORMS THEN: *%P 37846960 T 025882 
7 BEGIN sensi es MULTITABLECUJ «MIDs xP 37046980 T 025883 
8 TIL p e 000 026230 
9 . VRY&VOKE S142 06) EVOULSOIMZIGIaVFWL24 IO IGI» (37047910 7 026212 
we : eae EMETINUCULES 2 F901 LO2) "ROD "sM10)3 37047020 7 026513 
1 . NTéSvok | O47 00 O268 


MDSLALELT AOCe I TEVUL AG TAGE EAU «GOT CURO; %P 37047500 
iF NOT ee? TKEN iF NTOe ee. vee THEN 37047600 
N A 


“BEGIN: BADFM; Go RGUAD END ELSE 37007610 7 027914 
BEGIN EAREUS ABLE FU Fe@ei 0s a ZRHR 37047625 7: OpBato 
"4 : gz! ; : () 450 OS BALO 


x 3 Th 
c=] 


i 


GO EXIT} 
Ee ELSE BEGIN REPLYCPIMIXJe©NTOS GO QUKIOS ENDS %RHR 


x O47700 
SOMEWHERE? re NOT FORMS THEN GO SW3 37047800. Tt 
DOLETTLECFAL SE VNYEVFMES6 142463, "#F RQD"s0eMID)3 WIsNTO, CFF YB 37048000 


37047660 
37047670 


Data Documents/inc. 


g + * a y . . a a 5 gy 53 Ry 


Os9ett 


IF U LSS 16 THEN 


37048200 
IF oes C121] TREN ELSE GO TO SOMEWHERES 


diets 


Swt G0. TO TYPESWLTYPEIIS 
Crt TYPECIF Usi THEN 24 ELSE IF. Us3 “THEN 20 ELSE 

aoe ‘F UsS THEN 0 ELSE 224 REPLYLPUMIX)¢03 
PPS DOLITTLECPTPUNCHs VWYs"#PP RQD"*0sMID)s GO X3 
37046800 ACCIDENTAL ENTRY AT oe 


37056000 
ae oir 


GO ROUND 


“FOR UeQ STEP 1 UNTIL 31 00%— ne) a 47097000 7 ORETIL 
TF TINULUT, C30818I8TI THEN: Go ‘ONsa fi 2 ae 37098000 7 032840. 
% ; . GO TO MT. : é : 2 ne 9; V0 1 0 
ONE DOLTTLECLABELTABLE[UI=0°VWY>"#,, arSEVECIECIECSE 37100000 T 033243 
37985000 ACCIDENTAL ENTRY AT Q 
"RQD af PORE: GO Xs . =a : : 00010 03393 
: MT TleMIos% Poser SEh ee ke Ln aR a 37112000 7 034340 
Oe a ee | he 97113000 + «034343 
“37200000 -ACCIOENT AL” ORY MGV ARE UO ee ou esate 
IF ‘DSED THEN GU TO XS 37121000 T 035080 
IF (TLePRNTABLECUI,£15315))40 THENS 37122000 7 035483 
BEGIN FILECLOSE(CT1&3(18233%15])3% | | 37123000 7 035 $3 
37125000. 60to - 
BEGIN KINDCUNIT(CUJ (13413 re 37173000 1 036212 


Data Documents/inc, 


7s <a Ry Th =. 3 3 
oh 2 Go & 


LABELTABLECUJ¢"FIDS MULTITABLELU]eMIDs32 


ROCTABLECUJEPCDUPsLOD&REELLI4$ 343101 CDA 4t313 on 
a —  ACYCLELG1 9419723 
ENDS EXIT? FINGOUTRUT SU 
END F rNDOUTPUTs3 


REAL PRUCEDURE FINDINPUTCMIDsFID»REEL sCDATEsCYCLEsCOBOL UL» OF »MODE »FN)3 
— oe STARI 
WALUE MIDsFIDsREELsCOATEsCYCLE,COBOL, OF »MODE » FNS 
@EAL MIDs FIDP REEL» COATE* CYCLE» COBOL UL sOF »MODE*FN 3% 
eh 7 


ae 


a iat be Ra det See "a 


REAL REO SOLS 
INTEGER Se»COUNT; 
N R USASJ= 
ARRAY FPBeLOl+)s or 
LABEL LOOK» SEE*#SRCHOUT: 
ABEL. STAR TeWhYs SXITs Xo Ys READAL, _Ag ELFREWSEXIT;? 
LABEL ONNsDUNSFAILS 
DEFINE UNLABELED = ULa; 


REAL SUBROUTINE: DSEOs “OSED*TERNIX, ee 


UBROUTING. CHE. CKTERMT % LET CALLER ATI No HIS RESPONSIp 5 
BEGIN 
IF BeEy THEN 


Tr CdARTPUMIXe07 EQVY “"LIGMAIN') NOT Oo AND 
CJARER INDY 8, ces MOISK *)ENOT OO. THEN 


Wien ys 
GO TO EXITs 
3 


0 TO IN 


—Np;. ~ CHECKTERMTX 


REAL SUBROUTINE SEARCHI2 
BEGIN COUNT¢OS IF NOT DSED THEN 
$ SET UMIT = NOTCPACKETS) 
$ SET OMIT = PACKETS = 

BEGIN IF. CLOtRYARLPUMIX e625 ren) cee a2 THEN HI $2L0. ELSE 
: ‘ BEGIN HItstots03° GO TO FAIL? ENDS 
$ POP OMIT 
LOUK$ FOR UeLO STEP 2 UNTIL HI 00% 

IF (LABELTABLELCU) EQv FID )=NOT O TENS 
Jo TP CMUCTITABLELUT EQV MIDIENOT 0 THE! 
TR UCY *#ROCTABLELU])« tiderOJsREEL) OR CREEL «O) veo 

IF (Tg f24ta7ISCDATE) OR CCOATE#O) THEN’ 
IF (T1eC4127)CYCLE) OR (CYCLESO) THEN® 
. BEGIN 

SET OMIT = NOTCPACKEIS) 
Te WS oe cS TERN TVMGRONT SL. 


PRUAKEHTD 


SET OM]T = TRE 
IF LO = HI THEN IF couNT = 1 THEN GO SEE ELSE 
F LO=O THEN [TF (LUSSJAW(P4M 1X6 pgcenes 23 OR LO= 24 
THEN ALi al 0 ELS Oo TO” ve [ae ee ; : 


| 924) END oe eye 
IF LO#23 THEN BEGIN LOS® Of HI2=,55 END ELSE GO TO DUNS 


ad! 


37174000 T 036583 
4100 0366! 


37174g00.y7  O37083. 
37175000 7 0373%0 


WORDS 


AKOO i 4h it 6 
S1ZE® 0375 
37177000 T Oo00!0 
A DISK ADDRESS 2 007 
37178000 T 0000t0 ~ 
37179000 7 00010 | 
BUOUO . Oo0070. -. 
37180100 T OC00t0 
37180200 + 000080 
£0300 T OG00%0 
37180400 7. OC0otO 
37180500 T 000010 


37180600 Tt. 000080 
37180650 T 0000!%0 
arate ae T 000030 

$0 
abteteos T 0000t0 


37185300 oy Googts. 


JOO 


rer T paoaiG 
37185330 T 000380 


37485350 T O004%2 


T 
(37165360 7 000643 


0009 
Q0009%3 
001083 


37185380 
371865390 


a4 


47499080 
37195200 
37195350 


‘it~. 


37195400 T Q0057%4 


37185410 7 001! 
37185420 T 0015 
37186000 1 0015! 4 
37187000 T 001690 
37187099 0018! 
37187999 T OO1aty 
371486000 T OO18ty 
37188400 1 02212 Be 
37188101 T O02at3 
37189000 T 002433 
37390000 7 002610 
37191000 1 Od2713 
37192000 7 003010. 
74193000 T.- 
37194000 T 
37195000 T 
37195009 7 
s7iea0s0 8 


GQ TO LUOK3 37195450 Tt 006082 ] 
DUNS If CYCLE, (1:1) THEN & PBT 9550 006120 


BEGIN 37195550 7 006183 
rF COUNT#O. THEN IF FI0.C1853<3 THEN 37195600 o062'y 
A. Bi ’ +514 3719! 0 On6 


LO+03 Heiss GO LOUK 
ENO ELSE FID Cissle13 
10 z T> 


37195700 
ead 


0068%0 
007080 


ENO} ererets 
ia COUNTO THEN wakes 37196200 072i 


oo ~ @m FW F WH = 


007483 
QOo76ty 


IF NOT CUATE«C1#1] THEN & NOT LIBMAIN/DISK 37197500 
bi FOR GUeO STEP 1 UNTIL 15 bos 37198000 


44 


99000 VO7BIO 
IF (ROCTABLELU],(adt17]"CDATE) OR (CDATESQ) THEN 37199300 OO7983. 
a TF LABELTABLECUI>0 THENS 37200900 0082t3 


B N HUNT «COUN : 201000 OOBg 
ne ; P(UsXCH)3 37202000 T Q086!0 
END ELSES 37203000 T Q086%2 
ROCTABLELUI AR36J= THEN? 000 00863 
IF CTLEMEMCPRNTABLELUJ« 15915}=3] INX 5}3).C4191) THEN 37205000 | 0088132 
; IF T1.C43$4) OR The sep ape THENS - 27206080 7 0093h2 
BEGIN COUNT* COUN ND 207000: +- OD AS: 


SEES 37207500 T 010083 
END; 37208000 T 010083 

7 SRCHUUT: 208500 01003 
S - SEARCHES*COUNT?203 | 37209000 T 040033 
: END SEARCHAS et : 37210000 T pages! 
8 REAL SUBROUTINE RESEARCH; . | 37210100 T 010232 
& BEGIN . 37219150 fF 0403%0 
> $ OMIT = NOT PACKETS 37210470 040330 


PCSEARCHI, | ( 
OO PCDELD UNTIL (COUNT HSCOUNT#ED LSs 03 °37210250 010410 
RESEARCH*S3 37210300 010642 


END RESEARCH | 37210400 010780 


37210200 r 010380 


37210990 O107%4 
REAL SUBROYVTINE REEDS & 37211000 Q41O78: 
BEGIN IF CHICWAITIOCT,+LO€@3770 188 33t15)0U) AND ©367)*40 THEN aa: 37212000 


IF CHT AND £040 THEN 37213000 T. 
TQ OTINUSE(Y20)) STOPTIMINGCFN21023)3 37214900 | 

COMPARITY "s"ON ,og “&TINUCUI(24%30318)5% 

MID»PID»REELsCDATE CYCLE) 3% 


37215000 
37216000 


37248000 7 (rae 
37218100 7: $0 
218200 7 04124 


STOPTIMINGCFNs 102393 37218300 
CHECKTERMIX;3 37218400 

; 37219900 
37220000 
37221000 T 


‘SUBROUTINE SEARCHCOMs & FILE SEARCH FOR COM 30 


37221100 

BEGIN P(UEL)$ 37221120 
F_NOT SEARCH THEN Us®"1 ELSE | | 3 4o T 0 
"IF COUN’ jise EGE: os ar2e1i6o Te } 


Gs fF Ss 2 ee 3 


37221180. 
: 54o00 


COUNT#=IF CUUNT>8 THEN 8 ELSE COUNT; 37221220 T 01350 


3 ESS <a 5 ~. KY 
on © & 5 & oe ¢ 


Data Documents/inc. 


a * * 0 ry a a . a 5 aS - Th RS 3 3 
ep NM > & em oO GS & S & 5S @ & e G 


WHILE CCOUNT#=CUUNT#1) GE@ O DO 37221240 T 013783 e 
BEGIN UseP; 372212600 + O140t0 
IF TA THEN © 37221280 7. O,d4O%e 
BEGIN - 37221300 7 O14083 |21@ 
: TytsOs MEAD. £90848) S2TINUCU). 1 30!48)3 = 221320 01448 
AtsAel13 37221340 0145%2 
ENC ELSE 37221360 014633 |@ 
im } ae ‘ BO 01463 
UTRGeLs MOAT CLI2¢18] se TINUCUI.C30818)3 37221400 O14741 
“one AENDE ae 37221420 T 045182 |@ 
ewbace : 7 _ Fontan eS aia 
Ure; 37221460 T Q4152%0 
ENDS 37221480 015310 |@ 
ee ae eee gree SS 37221520 Oy53t2 aa 
aoe ae 37221990 015343 |@ 
2 oe ew a : : 959000 Oy zk: 
LF UL<O THEN SEARCHUGM ELSE 37222100 015632 
a JL THEN GO TO WHY ELSE & 37222500 T. 035980 hed 
ARCH THEN% 37223000 01593 
WHY? BEGIN FILEMESSO"#NO FIL" * OP MI pe FI p*REEL*CDATE?CYCLE)s 37224000 016284 | 
: FIRSTUSVOKGVNYE3644216 JAVULC3O14256 JavILC24e42tols 37225000 7 0465%0 ® 
OBOL THEN ee ee iene ee 5050 - 0468! 
FIRST? =f [RSTACVOFXOF)L IOP aa! 6 J&CVFRXULICI2#4236)3_ 37225400 016980 
REPLY[PIM]X]eeF IRST&LL24784)3 37226000 017384 | @ 
COMPLEXSLEEFCRESEARCH OR CREPLYCPIMIX)>0) DSEOQ)S 37227000 T 0475%3_ 
37113000 ACCIDENTAL ENTRY AT DOSED : oe ee: 
CHECKTERMIX; 37228000 
_IF § THEN S*SEARCH ELSE. _ 229000 
BEGIN IF Not WHYSLEEPCFIRST) THEN GO TO WAY; 37229500 
Ik CT@teC 71 :=kEPLYCPIMIX))eCFFJ) GTR 64 THEN % IL 37230900 
BEGIN STREAM(T21); % MIO/FID 37230250 | 
BEGIN ‘Sytetai 37230500 049382 eee 
Lit SytsSyers oF. scenyn THEN GO TO LL3 37230750 049383 2 @ 
bs SjitaSy+ T2tas 7231000 0194% 
END3 37231250 


O183%4 | @ 
O1B84t0 

0186389 
018981 1 @ 
019220 


ta f4a4 abe 


T O95%4 
T2tsP; 37231500 T 0495t2 @ 
NAMEIDCHIsTo2)s MID3sshIs NAMEIDCHI,T2)3 37232000 T 049630 : 
NAMEIOCHIeT2)s FIOIFHLD 37@32250 T 019883 
FORGETSPACE( Tl. cepyel)) 37232500 T 020032 — | , a @ 
RE a 37832750 T 020g! “fos 
END; 37233000 7 020283 
IF T1=VOK THEN GU TO Y3 37233250 T 020283 «|@ 
If NOT CILt=TlelCFISVIL) THEN : 37233500 020410 
“BEGIN Uteeie = | 37233750 T 020 
 REPLYLPAMIX] $803 37234000 T 4@ 
2 GOTO ERPS os as 37234250 T 
EN 37234500 T r 
GNCABELED+=LAWELTABLELU¢T16[ 16215 )#@3443% 37235000 T @ 
P(U)3 37235400 7 
COUNTER. Pe 37235250 T 
eta LABELT ABLE(U]20. THEN salt 3 : 37235900 fT e 
BEGIN MULTITABLECU]ssMIDS 37235750 7. Ogi4as 
LABELTABLELUI2=F IDS 37236000 T 021680 
END ELSE 37236250 7 Og17%4 s1@ 
BEGIN MIDS=MULTITABLELU].[6#42)3 37236500 1 O217%4 
oS ATR ACAREETABEETOT, ERERETS 37236750 T. O220to.. 
poe : 37297000 t Oaz2ty 1@ 
-37238000 Y O222!;. . : 
37239000 1 Oz22ty ee 


Data Documents/inc. 


4 a = G 5 5 7 < ie > cy 3 ~ 


END3% 37Z40U00 T OZ2a82 @ 
JUNT> HEN 0106 O07 3 
‘ SXIT3 BEGIN FILEMESS(™#OUP = S"FIL -"sMIDsFIDsREELsCUATEsCYCLE)s 37240200 T O224%, . 
2 WHILE SERON ES COUNI TA TAC DO ae 372460300 7 ¢ 
3 4 N ¢ * ® Ra. ‘* , TA 4 O OG |: ae 3. 
4 IF CTLi*PRNTABLELUJ. (15315])40 THEN 37240500 TY Oz231%2 
5 FILECLUSE (16120168 3 $151)3 gener T 0234%0 
6 Nut 
7 ~ GEGIN Si6ks S1+S1453 pSe8 wit * ouP ON "3 a7aa0g08 
8 ra O$¢3 CHRI- OSRURT ks 37240900 T. 
9 XeDl 3 37240910.) 241%. 
No ENDS 37241000 r O24230 
ie TieP3 7 O2e42eh) 


37241010 
37241020 


lf U232 THEN IF CIDROWLU =32)20 THEN 
“ “STREAMC(OKeCTOTABLE(U = = 32s2)0T4)3 
BEGIN: olepieis pS*6 LIT "aDECK "3 


O2428 
O245to © 
Ozdaty 


37241030 
37241040 


# #LOC 0 +43 DSe7 CH se snal De teal - nS0 Tt. OpKoto 
s ENv3 37241060 t O250%4 
7 SPOUT(S)3 37241100 T 025082 
3 N > i 025 4S 

Ae REPLYCPIMEX] 8s @VWY8VOKE 36 242 5678 VIL039074286)3 37241300 1 025410 


NS 


COMPLEXSLEEPCOSED OR idol Vi aa ; 37241400 T Og57%2 
CHECKTERMIA3 37241500 026444 
IF CTIPSREPLYCPAMIXII C3315 )sVIL THEN greats? so 
BEGIN REPLY[PiM]X]¢Q3 
If TALCRF) > 64 THEN GO.SXIT3 “37201825 026843 
Poy 1815227 . 7 37261530 | O70 


END3 | 37281850 T o271t3 
IF NOT WHYSLEEPCVWYaVOK( 3624226] QVIL (3084286) ) THEN 37241600 027433 
__ BEGIN St=SEARCHSGU SxIT END} 37241610 027433 
sili UL iia tates STARTS 37244700 T Og77tO 


ENDS : | “a : -—s«472a1eod y Op7e3. 


37241810 J 027813: 
: CRBELTABLETUSFT. [tS 368203 37241900 027813 
i IF NOT UNLABELED THEN 37242000 02861%2 
Be BEGIN FPBSSPRILPiMIxXs3)3 37242400 T 028280 
; FPBCRFRJS=4I07 . ae E . 37242200 es 


4) 


oS 


APPBLENOAISSRIOS. 0 8c es 37202300 | 


rePerTM 
37242800 | 


IF U LSS ee 
IF wiDAD THEN 
T i 28 

53738 | ie , 37244000 T 
ichiesd INK. 5), c30tadei Ft Py r 37245000. 


GOOG 


“RRRNECHeTWOCU) DR RARWECHS 


STARTIMING(FN® UD} 37248000 T 029713 
Lu aaa OR IL GR cYCLe,C191) THEN GO nee 37248500 T 03900%2 
d+¢ 2&1 Cassatt &MOD r2i34 3 7A4900 030330 
ae pee 37B850000 tT 030610 
: se 37251000 + ga08tt 
meOO 0 — 
j N SRST WALTIETeaDODGOOGOC: Oud} Go READALABEL ENO ELSE 37253000 + 031211 
BEGIN SETNOTINUSE(Ul1)4 FORGETSPACE(T1,£33215))3 37254000 T 031680 
STUPTII 37255000 T 


0314a!3 


NGCFNe1023)3 GO TO START ve 


“37255400 T 032323 


IF 4 SC=DC THEN TALLY?#1 ELSE 


BEGIN SIts71s IF 4 SC#DC THEN TALLY38#2s ENDS 37255500 T 032413 @ 


_-PRIEP IM 1Xs 3] FP BerM (JID aC LeETRENG (81388101 5% 37 1 002616 
FPBLFNO4]¢03 FPBLENS3]9(24412 6058 


37281000 
37282000 
37283 


Ooaais 
004323 
004630 


37284110. 
37284120 
37284130 


BEGIN 2 as gh ree on 
s AE ANCRURDCTADLETUToT107 [OTs DF=RUCTABLETU 
CeSROCTABLECUJeC4L&87],TIalFPBCFN 

BEGIN SItSLOc kspSi=3d 


#23193 
ECJDS1=5DEC5DS t= DEX 


© 
@ 
7 1S TALLYs | 87255700 T 03251 
i 37255800 T 032680 
@ |: 1taP)>0 THEN usasiTaPecTs. COFIUSASL*2+U90); 37255900 T 0326%,  l@ 
1 LCM+OeF ¢OeReOeDeOrCeOt Set NX )39 6000 0330to. Leb 
BEGIN SIS} DI*LOC MA DS*2 WDS$ DSe3 OCT#S 37257000 T 033233 | ‘ 
© Dst=5 OCTsDSt=2 OCT | 37258000 T 033383 ‘/@ 
_ 9000 3 6 
YGLE OR CYCLESO) AND CPCKCH)eCDATE OR COATESO) ANDg “37260000 7 0334;2. ae 
@ | HIBREEL OR REEL®O) AND CCP CXCH) gav FIDJ=NOT 0) aNp% 37261000. T | le 
| CH) E@V MID)SNOT 0) NX 37862000 - ve 9 
BEGIN FORGETSPACE(Tle £33%15))3 T1#@3400000053% 37263000 T 0343!9 10) 
e | LOCOsTL+REEDS GO TO EXITs% 37264000 T 0346%0 1@ 
END3% 
eae If FIRST THEN GO REWAS : 17266000 T n3 
eH. LE Orse6o} OO UNTIL: CFIRSTSEREED)« Cwetils DO UNTIL REED. f4984)3 37267000 T @ 
IF 4 20 THEN DO UNTIL REEDs[42t1) ELSE FIRSTI=REEDS 37267050 T. 0357t0. hs 
\¢@403 GO READALABELS 37267100 T 036212 16 
® END53 | , 37268000 T 03633 hd 
EXIT? FINDL 7 37269000 03633 18 
5 END FINUINP ? ee | : 37270000 7 036483) | "9 
@r Ce ee eee |  $tZE™ 0366 WORDS 21 @ 
PROCENURE STARTIMINGCENeU)) VALUE FNeUB Real. FNeuss% 71000 T D000 0 2y 
; | . START OF REL SEGNENT} DISK ADDRESS » 00747 27 
@: BEGIN AKRAY FRB(*I5 INTEGER Iyu5% 37272000 T 0000t0 1@ 
; f) : 34 eee Teen 3000 Q000%0 24 
| 37273100. Tr 000281 a 
@ re | 37274000 1 0003t0 2 @ 
& re 2 f i 1) HEN : 5000.7 000820 2 
3 i ee T Net Tere OR FPALFNez)« [81104 NEO RocTaseec¥) £1440) 37276000 YT 000830 i 
:@ F: THEN 37276010 + OO11t2 1 @ 
8 A - : ~ TR LNG OE N 10 00 ie = 30 
rem 37277000 T- 001513 Be a 
s@ , : | (37277999 T 001980 : | @ 
| $ POP OMIT 37278001 T 002033 
@r $ SET OMIT = NOT SHAREDISK 37278099 T 002083 @ 
pe __MOV RUN PBCFN + : R200 0020 36 
| “FORGETSPACECFPO,L338151) 3% og ae 37279000 T 002340 = apa 
eo NEOECPAMIX*1)*NDXI6 eas | : 372791400 1 oo2ate | 9@ 
oe! 
‘ ( 
® a 
OF 1@ 
10! sy 
| 37285100 5 
i BEGIN FPBLFEN+4J©I+CLOCK+PCRTRDS LeF PRLFNG3 14[3616 J 1i 37285200 s|@ 
; FPBFN43, c2dir2ieP (DUP). [24 pea eee ANOELS C198312))3 37285300 
aes aes TE ae amet 
@ Fs "ATINULL) F T 
57 tijade0s0 3 5 
372859400 007333 
@ e 
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n Oe >. Th 3 Sh ~ x. 3 3 7 


Cee ree 


END EAD ENUL TIMINGS 


REAL PROCEDURE Be ee ere ee nearer tn ray % (SHM) 


¢ A ; y 2 ee : a 
REAL preety peao en aa % se 
ena Hl w)5 


INTEGER 13 
REAL Ta Ve 


BEGIN TCA DIV HLO]eL30#12))xHLO},L42#6)3% 
If HCO] LEQ Tts(IF HELJ=0 THEN O ELSE T DIV Hc1J) THEN 


IF HeTts1+40)=0 THEN | % NEW ROW NEEQCED. 
IF 10 THEN GO TO EOF ELSE % Ba ON A READs 
IF 1022 THEN LE 


SEE Ce MIOsFID»*h&LLCTF))» DEL) 
ELSE % NOT IN DIRECTORY, 
BEGIN 
IF (VI@FpB3,.01895)) GTR 0. THEN % EU SPECIFIED % CSM) 
Vas CIF. aN GTR 20 THEN 0 ELSE. #y) ELSE x (SHM) 

he. 3TR OC THEN & SP SP ) & CSM 
Via(IF V GTR 2 THEN O ELSE Vv) ELSE 

V3=03 %& NO SPEED OR EL SPECIFIED 


X (SHM) 
END ELSES 
T#O3% 
 DESKADDRESS¢Ti% 


END OySKADDRESS& 


PROCEDURE SETNOTINUSECUPRNLIT VALUE UP RAEI REAL UsRwLi 


37285500 T 


O076%4 


37286000 T 000080 
START te REL SROAEN SS 


reece 


37266300 


37287250" 
37287500 


37289000 


gee Oce 


“37201900 


grertaey 


37291600 T 


37291800 

92000 
37292200 
ad td be 


a6 Oty 


37292800 
pi ads 


37293220 
37293230 
* tii () 


37293250 


37293260 


37293330 1 
STESACOG 


37296000 
37297000 


eee 


START OF REL SEGMENTS DISK 


A DEL Ds 


__RRRMECH|CCT+TWOCU)) J Pe CCLenoT 
READY*READY AND 13% 
IF RWL THEN 


BEGIN Sl¢S3 SjeSi+5s DSeLIT nee} DS¢3 CHRSS 
OS€6 LIT " RW/L "3 SIeLOC MS SleSto13 
OS*7 CHR} DSeLIT " *3 SIeS1+1} DSe? CHR: 


Flare tie = 


te 
OOLOl2 


001242 


0017%2 
002083 


ooa1t 
002389 
OOaéi>s 
002883 
aa 


“O0ssts 


003512 


0039!3 
003983 


coon 


DORESS s 


37306000 T 0 


37312000 


- 37314900 


37314100 


37315000 
37316000 


37317000 


001088 


OoLate 


0028%2 
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a + . AA n nS Se ks 53 3 > 


SPUUTC US 
ABELTABLECUJ+@2 143 
END E, SE LABELTABLELUJ+@1143 


37318000 T 002883 rd] 


ten BL ILB LOO FT _O029%3 


37319000 t 003033 ‘ 


MULTITABLELU] ¢RDCTABLELUI +0; 37319010 T 003494 |@ 
IF U<16 THEN PRNTABLE(UIJ*0O 3 ; ae 3 9020 003612 3 
END SETNOTINUSE; 37319100 T 0039%0 4 
SIZE 0040 wORDS |@ 
PROCERURE BLASTa(U)s ees 0000 Q0dQatO 6 
fr START OF RE, SEGMENT? DISK ADDRESS = 00754 
VALUE Us REAL UF 37321000 Tt oo000 |@ 
. ous os N00 O0COto. 2 
REAL Il-X3 37323000 T 0000%0 ba 
BOOLEAN SUBROUTINE CHECKIQ: 37323100 T 0000%0 1@ 
b N ee ch ie de eae OO erere 0 12 
CHECKIOVSCIVSUNITCUI),C536340 OR CIeC141] AND 1,0134514034); 37323300 T 000410 
END3 37323400 7 000533 @ 
Hi DU THKEN. COMPLEX "EP ONO As 0.3 424000. 7 N00K10 ns 
37241400 ACCIDENTAL ENTRY aT CHECKIO . 
IF [el16%1)] THEN ® SKIP I/O IN PROCESS 37326000 T 001434 j@ 
3 N_ILS=ENFLAGCLOCATQ K3= ; i SPAT OOD T 00153 . 
LOCATQUE(X]4{FF38=@777775 37328000 7 001743 1@ 
UNITCU]e(CFIEaXs 37329000 T 001983 i 
wae wr Na ke ek en a) ae te Se O00: j . z 
UNITCU] C5343) 2% ¢nuT 0)4018%30)3 37331000 T 002433 e 
WHILE CI 8el, CFFID¢@77777 one) 37332000 T O027%1 oj @ 
BEGIN RET LOSPA ot esata oi oes tT Ou298 24 
~~ TSSNFLAGCLOCATQUELIJ)3 37334000 7 003233 
END: ~ 37335000 T 003410 21 @ 
ND BLA 7 3733600 OG 36D 2 
SyZE= 0037 WORDS 28 
PROCEQURE BULLOLABELSLAGLE sMIDsFIO,REEL »CDATE sCYCLE,PFACT,»PTINsBLKQUE 9g 37337000 T OcCooto of @ 
START OF RE EGMENTS DYSK ADDRESS = 90756 i 
BSIZEsRSIZE DIS 37338000 T  OOdOtO - 3 
VALUE LABLE»HID,FID,REELsCOATE sCYCLEsPFACTsPTNSBLKODE> 37339000 T OCGddt0 | 21 @ 
BSi7ee RSI +3 Oo0 Lereremae 3 
ARRAY LABLEL#13% 37341000 T 0000%0 
REAL vost Wnetes DACOATEACVCLEPENGCTAUTNEELAGDED 37342600 T OoC00tO 1@ 
SI ZEs RSI 000 0000:0 6 
BEGINISTAEANCO*EPFACTIIT. BEGIN Steps CSTCTETY DS«3 OcT ENDss 37344000 T O0000%0 3 
PFACTS+CALCULATEPURGECPFACTII& 37345000 7 060433 a @ 
STREAMCS¢CMID IJ eLABLED 3% 37346000 1. 0003%0 __ ps 
BEGIN DS¢8 LIT * LABEL “s SleS3 DSe2 WOS;g 37347000 T O004%4 40 
DS+3 DECS OSe5 Bes OSe2 DECS SleSI#33 DS¢5 CHRS% 37348000 T 00060 |@ 
pSei4 LIT "O"; pS*5 DECS STeSI473 DS¢CHRs% 37349000 T 000734 a2 
DS¢5 OECH BS#5 DECe US*1l LIT "Ore 37350000 t Oodloto 4 
ENDS 37351000 7 OOte%, 4@ 
If CHSIZE+LAB bE« 031022910 THENS. 37352000 T O0l212 4g 
STREAM(JeJARROWCPIMIX]>De[LABLEL10]) 3% 37353000 T O014t?2 
BEGIN SI*ys SLl©SI+#13 DS*LIT " "3 DS*7 CHR3% 37354000 + 0016%2 «| @) 
SreSI¢1s OSeL IT "/"s DSe7? CHRs 12°0D5e2 LIT " "5% 37355000 T 001733 a2 
END ENO GUILDLABELIS : | | 37350098. 0019%3. 49 
. S1ZE® 0021 WORDS 1 @ 
~g SET OMIT # PACKETS ane. 37350999 T.,Q000!80.° | 51 
PROCEQURE FILEMESS(1*Kome FoRobet 3 37357000 Y 000080 6 
START OF REL SEGWENTS DISK ADDRESS = 00757 «| @ 
ALUE leKeMsFeReDeC3 os 37357100 T O000t0 6 
- REAL aSoNe Rahat yey. ae 37357200 7 O00010. ~ 55 
$ PO fact 37357201 7 G000t0° 1@ 
Se Se Tl 37357299 1 000010 
BEGIN REAL Doct h 37359000 Tt O000tO 


Data Documents/inc. 


g a * * y a ° =. zs st ny 


ME ee ier ae 
S M( AR 


ae Stetl 

IF $Ca"e" THEN BEGIN TALLY #13 OS#LIT eg Slesl#l END ELSES 
BEGIN €§ avgn AEN Of te cere 4 

OS*7 CHKS DS¢LIl " "» LeDIsx 

2culeLOu 23 IF 8 SC¥0C THEN BEGIN DIe#Ls SleSie75 pSe7 CHRIS 

r) w 9 ND) 3 

DYeLs SieST413 OSe7 CHRS OSeL IT " "3 LeDiss 

3¢COTe Loc 23 IF 8 SC¥OC THEN BEGIN Dleys SI#Sle8; DSe7 DEC; 
net We ef) DleDple?s D0Se6 F i 


DIleLs OSeLIT ™ 


ooaonr none wry = 


“ZeTALLY3 


END FILEMESS3& 


, Ce SI*LOC 23 bresiee a 

ay TP SC8"O" THEN BEGIN Sleds SteSte13 sas CHRs OS*LIT "73% 

; Le ot¢ Se FR DS# tL. tat 3 3 eee 
16 > STeLOC PIM{Xs OSe2 DECI 

ue Leols Ol*pl#23 DOS*FILUs Ole END; 

3 OS¢LIT Mes % 

9 

po” free. THEN BEGIN a alae aL ad FERMENALMESGAGECHL ENOs% 

1% “SPOUTERCL2 Oe TYPE 

22 


PROCED RE FILL BUFFERSCCURRENTs! INAL COB NR)» 


Per VALUE. CURRENT»FINALs COBOL» NR: 
py REAL CURRENT» FINAL »sCOBOLsNRS 
‘a BEGIN ARRAY LOCAT(*)3% 

INTEGER Ip Jake D5% 


i INTEGER FIRSTLOUC= Je PREVLCCS ‘Ke CURLOC=DS 


an REAL TaLOCATS . 

bal REAL Til iy) ve hy lagen 

Ba} ae REAL NFetitis | cle 4 MUST BE AT THE TOP UF THE STACK. 
Pe LABEL LINKs 


REAL BSIZESCURRENT*N=F INAL*USCOBOLs ALPHASNR3 
IF sabhassi2 INE\ 
BEGIN | oS 

P(NR™ (COBOL GTR os 


* INITIALIZE NF 
OWOL THEN | AL URRENT? Q Pye Oa: 
JeFINAL 033815 SK SCURRENT. C33215)3% 
De2eCNoT CURRENT) (1382281134 
LOCAT«M{K+D)3 NReNRw1s% 
FOR lel STEP 1 UNTIL NF DOs 
BEGIN: TOREQUESTCFLAGCFINAL) CURRENT LUCATI 53 : 
ATIJ*MrLOCaTl 201263 261 io NO. DR: TOMASK ) 5% 
rE a COBOL THEN 
IF [#4 THEN IF PCFINAL,(C 385] 9UF)=6 OR PCXCHI87 THEN 


“SLEEP (LOGAT go £3431301+ 1OMASKI 


 ¢MCLOCATI IN SSTEIE 
LOC Ns SI * BUFs BACCCSI « SI44)3 
eee rae GO OWT; 


# Ste2) D1 ¢ Dle13 


NOIVO4(SI « SI-323 SI ¢ S[m32)3 SI * SIN) Sy ¢ S143 


37376000 
37377000. 


FOUC . 


37394450 


37360000 


37362000 


37363000 


fy O07 
37365000 
37366000 
f a OO 
37368000 
37369000 


70000 | 


37371000 
37372000 


37379000 
37379500 
80000 
37361000 
37382000 
SB 3000 


37384900 T 
37385000 


START OF REL SEGMENTS DySK 


37385500 

7FTRAOOUD 
37387000 
37388000 
37388100 
37388200 
37368250 
373898275 
37388300 
37388400 
37388500 


37 389000 
osha se 


37393000 


a6 é f) O00 *- 


37394025 
373940580 
94100 


37394450 
37394200. 


37394260 


37394280 


37366700 | 


5730808 T 


eee 


T meray 
T OOS! 
ofeler a 2am 
O00B8%4 
000924 


001670 
Seats 


poten 
O019TO 
002013 
002133 
O022%4 
QQ $4 
T 002383 
T 002410 
OO244: 
0027%0 
a dee 0028 wORDS 
000030 
ADORESS = 00758 
0000to 
ofeeeeR ae 
0000t0 
0000!0 
00000 
000040 
000080 
000070 
0000%0 
0000%0 
0000%0 
0002h4 
0002s s ae 


4-4 


met tle at a 


r “gpnsae 
OO1A1% = 
T 002183 
T O022%% 
OQ26%o 
T Q02710. a 
T Oo2gts. 
T 0035%4 
T 003633 


TIE fy 


GO UN; 37394460 1 004334 @ 
wos YiV64(S] ¢ Sji+3 3 SJ _¢ Sy+ ; ¢ SJ+Nes sched ___ 37394500 1 Q 3 
ON: D1 * LoC Ls 08 ©* 4 OCT} 37394550 Tr O04584 : 
OWTS. } | ' : 37394560 rT 0045383 :/@ 


NO: REAM: 94400 D045 | 3 


T1lo«© P3 37394650 T O046%0 ¥ 

IF PCDUP)®C OR PCXCH)7T1 THEN TERMINATECPIMIX€108CCTFI)3 37394700 7 O046t2 |@ 

ENDS io tee Senne 9480 005020 6 
IF eng THEN STREAMCNRe TeMCLOCAT JeLOCAT 33% 37395000 Tt OO0SO!O ? 


BEGIN $16L0caTs Sl#SI+gs DSeNR WOS3% 37396000 T 005393 |@ 
: Sle 3 DSeNDS END34 : 397000 y OO5uia 5 
CURRENT « ecu Cle215]s3% 37398000 T 0655%2 
FINAD sD ASt1 ote yd 9% 37399000 T 005984 |@ 
END END as 37409000 QO061iq 


37407000 T 
37408000 

37408000 | 
37406000 


BEGIN 
TeALPHAQULLEE A216)! OR M3% 
FOR JTeN@1 STEP =4 UNTIL O DO% 

BEGIN MUALPHAL 1©CCURLOC?GETSGACE (BST E64 (21 382 58e: 


006344 . 

006383 W@ 
0066106 E 
OO70%4 


$ SET UMrT = NOT( BREAKOUT) 37406099 OO75%4 \@ 
If FIRSTLOC#O THEN FIRSTLOC#CURLOCS2 7 407000 00758 18 
a “Mette ©O03 MOVECBESTZE+1,CURLOC+4sCURLUC+2)3 37408000 Oo7784 19 
LINK? MECURLOCIEFLAGCT2@CPREVLOC42)(18133315]33 37412000 oos]t, pd @ 
) MECURLOC+BSIZE+SJ¢FLAGCTIOCPREVLOC#BSIZE+1I018%33315]3% |  —=«-s«_—o3 2413000 008530 21 
PREVLOC*CURLUC$2 37414000 0089%4 2 
END3% 37445000 0090%0 3 @ 
ee , BRO 37416000 T 009082 24 
END END FILL OR GET BUFFERS: - | 37417000 7 0093! 2 
| : fe oe 8 | | SIZES 0094 WORDS | @ 
g REAL PROCEDURE FIL EHEADERCMID »FIU,NROWS »SIZE pBLEN,RLENS9)3% ee 374148600 T. 000010 
2 4 7 START OF RE, SEGMENTS D1SK ADDRESS & 90762 28 
3 VALUE MID» F IDs NROWS» SIZE>BLEN*RLEN? 93% 37449000 tT OQ000!0 oj @ 
3 REAL MIDsF1Us% eas 0000 0000%0 0 
8 ~ INTEGER NROWSs SIZE*BLEN*RLEN# 53% 37421000 t GoodtO 31 
7 BEGIN REAL QsLPERSSPERS ARRAY T=GC#]i 37422000 T 900080 | @ 
NTEGER NusRieliews 2s 37422100 T  O0000!0 3 
$ SET OMIT = NOT ShAREDISK 37422199 7 000030 | 
LABEL TIFILL*EXIT; 37422300 T 0000380 3@ 
SPER¢(BLEN*29) DIV 303% he te 37424000 000080 36 
IF Se€4276]20 THEN RLEN+BLENSS 37425000 1 000333 37 
$ SET OMIT © SHAREDISK 37425499 T 0006%4 ad @® 
_ QteS,61383)3 ° 37425500. T 00068 39 
$ POP OMIT 37425501 T O007%2 : 
$ SET OMIT = NOT SHAREDISK 37425599 7 O007!9 1@ 
LPER*BLEN DIV RLENS% 37426000 t 00073 «a 
“IF (NROWS+S1ZE 80 THENS | 37427000 1 000813 4 
BEGIN. 37428000 7 001080 | 4@ 
“EF CNL aS SECURI YCHECKCMID oF ID» JSERCODELPIMIX]9@)) LSS 0 THEN 37428100. 49 
SET OM]? = NOT SHAREDISK 37428499 T r 


GO TO EXITS 37428300 
SET_OM]T = _NQT Tea 


37429000 7 0013393 ‘9 
! | 37429099 1. 0015%2 | 1@ 
37430000 O015!2. 5) 
TTP CLAeTCOl: C1%14)])=0 THEN L1e303 37431900 0017%0 
R1*TLO) 63081213 37432000 0020%4 | sj @ 
W_eni DIV Ri» TQ) (4216 1x30 4+N1 MOD RUxL43 00243 
: | TT rr 


30 + RLEN@1) 


“37437000 t OC34t2 


TtFILL? ee DIV SPERDX SPER? 


A SSO aS 
op © & e g S me es = G 


. 
TCA]P=C*PCDUP) 24001184721) UR 13 37437500 T 003730 ® 
D ELSE 49000 004030 
1 $ SET OMIT = SHAREDISK 37439999 T 0040%0 
2 BEGIN Tr=W oR (GETSPACE(30*85194@360000700002)3 «37440000 7 cO4at0 
3 REA 3 N 60(DSe4 | "a" NOS 2 _ sar noo Ont 
‘ $ POP OMIT 37441001 7 004583 
5 $ SET OM]T = NOT SHAREDISK 37441099 T 004533 
6 TL3]*XCLOCK+PCRIR)3 37441500 00453 
’ TL7] #oehs | 37442000 T OO047I9 
8 TELD set (OTR CoS Zee CLPERes DOTY LPER)x SPER; 37443000 T 004910 
9 9} NROWS3 bHanoco 00% 
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T O054!2 
i TL) *SPERSLPERCIC#36112 JABLENTIS 33215 JARLENCLI34a14 ys 37446900 T 003482 
2 Ff HE AD R ¢ NF AGC ait a 000 00583 
ie EXITS oe 37447500 7 0060t0 
bps END FILEHEADERS 37448000 T 0060!0 
5 ZEs 006 
8 PROCEQURE PURGEIT(U)4 VALUE Us INTEGER Us’ 37449000 T 00000 
7 . STAR’ OF RE, SEGMENTS DISK ADDRESS = 60765 
8 BEGIN ARRAY LABLEa=+ile)i% 450000 T 00000 
: REAL RCW#40e EOFS 423% | 37451000 T co00!0 
REAL. MSCWae23 me 37451500 000010 
1 P(020)3- ae 000 tT Ooooto .- 
PCWAITINC @4200000000s6377+U) s DEL); 37453300 7 0000%2 
LABLE* CMEC GETSPACE(102020)42)) g10[83 38210) 45(24%4523) 5% 37454000 1 000280 
i BUILDLABEL (LADLE »O0"x%s1,0 9150 sPRNTABLEL 3018 j,00,0)3% 37455006 0006! 
s PCWAITIOCLABLEF@37700000#UJapELIF& ae 374956000 001140 
§ EOF +O 17370000000000003%. : 37457000. T Oo1gis 
§ PCWAITIOCLEGF I> @377000002U) sDELII% 74568000 | 
oe FORGETSPACE(LABLE 2633315) )3 37463000 T ae 
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i ; “syaee itd 
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ae . . mats At#}3 37504000. 
PL : FORGE’ 505000" 
0 INTEGER NB» NBR$ 37506000 
REAL I? aKa Ti 37507000 T. 0000%0 
5 ; O8000 
37809000 T 0005 
37319000 008. 
Na i od ae peat age! : 517000: LO! 
NBR&sRb DIV act 37512000 001224 
IF RL NEQ BRL THEN 001482 
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3 


FOR 1510 STEP | UNT _29 D0 
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oe AES. f ae 
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® END3 37921400 T 003283 e 
Tes (KisJs3 =) +nNBRxe03 eae ee ee ee OU. T. 200404 
AGAIN IFCNTIPSNBR DIV. J)80 THEN GO TO DONES 37523000 7 O035t2 1 
® TR CNT@4@NB OIV-NTI) GTR 19 THEN GO TO DUNES 37524000 t 003783 . \21@ 
IF NBR MOD JsO THEN. eee OM as ct I, ces so5000 O04aDtO 3 
BEGIN IF (NT3:=NTIXNT2#NT]) LSS 1 THEN 37526000 T 004144 ‘ 
e BEGIN Kteus T8=nT33 NT4tanT2+1 ENDS 37527000 T O044:0 |@ 
_ENDS ; eee, BOOd OO047% 6 
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FOR It340 STEF N NTz Di ee Sia. ot See, 32000 7 0054%Q 12 
BEGIN IF CNTLtSHCTI*RLY GTR O THEN 37533000 T O0055%0. ! 
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ENB3 37536000 T 006553 i 
e FOR KtSNT4 STEP 4 UNTIL 19 DO ALKI8#03 37538000 T 006880 |@ 
MAXROWS 1S NIS%=(NT42420 )4+NT4 -N MAXROWS 2=QT53 > 338500 OQ7 2! ‘9 
3 FORGET: IF NB+i NEQ@ NBR THEN. CE gO ita : a 37939000 T 007633 ; e 
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2 BSR Oe wie Macatee ene De ae Me O.0 0085 24 
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2 PROCEDURE BSat CERORENCAL HAGE VALUE ALPHAS INTEGER ALPHA} 38000000 T O0Qa0to aif 
:@r START OF REL SEGMENTS DISK ADDRESS = 60769 24 @ 
g i BEGIN REAL RCWS+QeMSCwWsHe;5 : ee 3a001000 000020 i 
3 REAL I0M=[QMASKs TOMASK=e1;_ 3a002000 7 O000010 me 
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KIND 4+9*MOpE a+ 10s0TRECe+i i» FORMS3412. CO ROL e413, aan JR004000 po0ote 
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REAL MFIps+21,Flp=+223 INTEGER REEL St23,COATEs+24eCYCLES+253 38007000 0000t0 36 
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| LABEL AGNS EXIT? " : 3aG09100 Ff Onn0tN ane : 
ARRAY HEADER#+30[*]3% 38010000 T O000tO ‘ 
@ REAL TOGe+313% 38010100 T 000080 |@ 
SUBROUTINE QISKSETUP3% _ 38011000 rt 000080 _|e 
~ BEGIN IF STATE etwety THENS = 38012000 7 000110 = ‘ 
@ | BEGIN | 38013000 T 000123. 4@ 
: ot IF NE GARCRGOLA4 TEFL MEL RECENEADERGRSO. 38013100 7 QOOgty 5 
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CPTIGNAL « NBUFS = 43 
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END3 
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END3% 
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IF (NBUFS@1)40PTIONAL THEN FIBLCIO], C3311SIJeMCAL PHA) 3% 
FORMS*¢(FORMS*FIB7 MOD HEADERLO).030312))xRL ENS 
SLEEP COMCALPHAJ Js [OMASK )3% 
IF COBUL 2 0 THEN % NOT COBOL 68 

IF FIBLL3] eC22t,] THEN MEALPHA] ,C33?15] ¢FIGCLOTINX 1 ELS 
MEALPHAI.C33215)]¢FIBC16).,0332 15] +FORMS 413% 
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START OF RE 
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INTEGER NBUFS3+e oF NUMS+3eRLENS +4 eT YPER+Ss LO Rt 6s BLENS+ 7 oURt ae 
KINDS 4+9* MODES 41 Oe 0 TRECS41 ie FORMS 4122 COB0L=413> 
UNLABELED S414 ,0P TIONAL a+15 ¢CNICTL +163 
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ARRAY FIB=+26(*] sFPBs4ez7[*15% 
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ARRAY HEADERS +30C#]3%- oe 
REAL TOGP4313 
“REAL. USASTANTIs RHEADSHEADERS 
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BEGIN | 
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FILEMESS(="PARITY "o"GN cee METINUCUJL 24830118 )5% 39105700 T 003110 
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@ END REEDS% . | . 3a106400 7 0039%0 "7 
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@ » METASALPHA*2I eM OR CGETSPACEC CT 1eMCT12,.(8210] 449291 44) 38107000 TF 005630 1 @ 
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s@r 7 ‘BEGIN IF (UeFINOINPUT CMF IO*F los REEL* CDATE* CYCLE COBOL? UNLABELED» os 38113000 7 OO72Iy 22|@ 
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On. ELED THEN BE 38124500 7 O12010° «@ 

qo oe If D- NOT. FIBL16) " 2 THE? eu Bpie5000 7 OLers2 | 
. BEGIN TF ONGT STATE «C4021 THEN BEGINE 3a125500 T O4123%1 ee 


Vata Vocuments/inc. 


GS a Ry Tk = Th s) >. > 
a Ps g ie op 3 J 
8 Be Sn u Soe F 


Gis 2 fey 2 Fes 


T1*583Cf23246221] OR MSE 

MASK¢QO3 REEDSS 

MASK + a@60; OO REED UNTIL Taeld2ra73 
DU REED UNTIL Teeth ebay: a 

“MASK € OF REED; END 2% 


ENDS 
CNTCTL€14 LABELAREAsS% 
TYISNELAGCMCALPRHARW2)] 233 
“IP DIREC THEN. TAPET Ls t8110J~ i INX TAss 
“ MASKS2@403 REED? 
STREAM(Y #80 8X $@05X1350-X23e007teT1)3 2 
BEGIN ODIssLoc x3 DSt=24 LIT *VOL HOR HORDEOF {EOF SOV] "3 
DItSLOc xs 
_6OCTA Ve aE Yi? 
TST wes 
If 4 Scaoc THEN 
JUMP Of 0 
TALLY? 203 


Be 
He 
ENOJ - 
uae CUSAS It =P 20. THEN 


IF MET1 INX 6], (24: 6J=4 THEN 
BEGIN 

MASK©@6030 9 
nod Milica 1. OR Mp 


END: 
IF T2 NE@ ©40 THEN ou REEO UNTIL T2, C4281) ELSE 
Fe 1h IN RE 


=e ei 
IF KIND=9 THENS 


BEGIN UNLABELEU*CNTCTLEL i a 


DIRECEOs%. . a PaEy 


END. ‘ELSES 
_IF KI _Th 


NOSLL THEN: oe ee 
BEGIN T1i*C1DROW(U= 327, (18315); 
CrUROQW[U" pede C168: est)? 


COND Weanimaee 
IF BLENC1O THEN BLEN#10; 


i if CNIS non 

IF NOT FIBC18],C1%1) UR P THEN 

a GETBUFFERS(BLENs NBUFS>Us ALPHA)S. 
GO FIND3 


Uss303 KINDt=133 


38126000 
O400 


38127000 


38127500 


f£O OOO 
38128500 
38129000 

812950 
38130000 


38130500 


38131000 
38131500 
38132000 

‘eke 


“38133000 
(3133500. 


R1P3GOOR 


38134500 
38435000 


a ala 


fa 


+4 


38136000 7 
38136500 7 


38137500 
qaredode 


381396067 


38139500 7 


38141000 


38140500 


28141500 7 
38142000 7 


4+ 4h ot 


0125314 
0 3 


oats 
0143s. 
014510 


(044740 


0150%2 
01593 


OL5144 
015442 


ae 


* 
015253 
015320 


04530,” 
Sod neee 


015784 
0160 %1 


38142500 1 0 01 


Seer: 


eee 


38146500 7 


2e157009 


38149500 


Saiesaoo74 0184 
rape ee 1823. 


3atnbood T 
(36148500 F 


9000 ¥%. 


getters 


36181000. 
Sraiee a 


38151900 T 
38152000 


"38157000 


~Oaiito 


O2t2te 
Ogigs 


O217%4 


Data Documents/inc. 


. a Fj z5 5 * & wo a a 3 TB Ky TK x ~. 


FIBCI3Z]eLis¥Je NBUFSe2; 
[BCi8)t=¢ +P , &CBLENS=ALENDE 33 
IF epi TREN ae . 


oe 
ie 
a 
-_— 
tent 
te: 


“BEGIN. ee ih 
oS R AMGA ERE TM 1D» Ne tel ae. 

BEGIN 

Sle LUC MFIDS DIe© LUC as : 

2(Ce S]s 8CIF SC20 THEN IF SCS9 THEN TALL Ye TA - 


END?. 


FiDe Ps 
MFIO¢PS 


N . 
2 . “MCALPHAS2)¢ O8MFIDCOP4S 9G 7RFIN014 31448473 
ee PCPRRCWLOTCI]-0sRDSe Oe xXCH»P&PCCTF JST) 
END CTHER FILE OPEN INS 


GER ALPHA; 


PROCEDURE OTHERFJLEGPENGUTCALPHA)S VALUE ALPHAS IN 


: A uae : ‘ Pan 
INTEGER NOUF S= +2,FNUM=+3,RLENZ yar TYPES +5e10=+6sBLENZ+7s,U=+Q» 
A etd Gillet eg an +11> Aue =+12sCOB0L= +13- 
os INA = 6 
REAL Tieei7e122416eMaSkay19> STATES 4203 nana 
REAL MEIDa¢21 sf 1D e922 Ca eoags REELa¥23,cDATES+24 scvcLEs+255 


INTEGER ACCESS = +28,FIB7s oa 
Ane HEADEG= +30L*13 % 

R ( 
REAL USASI=NTI>. RHEADSHEADER} 


LABEL” UPS*FINDsUCN+ PBS 5 
JpoHD pm : : JPEN 9 


BEGIN 
Tis=CQPNMESS ANU CCT1Ls 


COPNMESS AND UE SOLE E 
$ SET OMIT = PACKETS 
IF Th THEN 


=JARCP1IM1X»0))>0 OR 


$ POF OMIT: me 
, BESIN NT2ts0> 
IF U<,6 TREN 
aaa ee Cae Ee C30tial> Dt=(€NTel))3 


a eaten tie 
TINUCUJ (0830%218]» NT@s FPBCFNUM)» FPBCFNUM4+1 J, 
IF «INQ=2@ OR ano S? THEN PCREEL+COATE) ELSE 


meee REEDSR 


IF (Te AND NOT MASK 40 THEN 
‘§ : cL 


38161000 
34461500. 
38162000 


: ELSE JUMP OUT ELSE JUMP OUT} Sye Sr4+4)3 
Sle 63 Ce TALLYs OS¢ c OCTs TALLY® Of Sle LOC FID): 


SEGNENT3 DSK 
38200100 tT 


START OF RE, 


ARK A As 4 ie PA sy 


BEGIN IF (T2*wAITIOCTysCMASK OR @4O)RO3770CTFJ2U) AND @367)%0 THEN 


38157500 
6 


34158500 


38159000 


950C 
38160000 
38160500 


38162500 


38163000 
38163500 


38164500 ’ 
38191500 
38192000 


38192500 YT 
SYées 0243 WORDS 


3A 200 
34200300 
38200400 


38200600 
34200700 


A2OO BOD 


38200900 
38201000 


38201200 


38201300 


38201500 
8201606 
38201700 


38201900. 
39202000 - 


39202100 
38202200 
38202300 


38202400 7 
Agenesoa 


3202. 
39202700 
38202800 
sa202200 


35903200 


38203400 


38203900 


38201800. 


38203500 
39203600 

38203700 
uo 3g203800. 


T 021883 @ 
$ 
T O225%4 ' 
022680 1@ 
022617 3 
T QO228:2 ‘ 
T O228%2 |@ 


022930 
Q230%3. aie 


023330. |@ 
‘Qa34a4taq - 9 

T O235%0 po 

tT 023512 /@ 


6 $0 
~0236%0. 
024010 ha @ 
O2Z4o0to . 15 


O24e80 Je 
17 


we 
ADDRESS « 
000080 2) @ 
F000 t 4 : 21 
T 000030 23 
tT 000010 od @ 


T 000010. 25 
+ 900080 zd @ 
onevelat ie “2 
T O000%0 et 
T 0000%0 1@ 
§ 
T 000OtO 
T OOoGtO 
T 000130 
T G001!9 33 @ 
T 3 36 
tT i 37] 
TO 4@ 
i 
40 
41 @ 
42 
4: 
4@ 
at. 45) 
T OOlett : 
y 001294 7) @ 
Ooty 
ETE . 
Ee ay aC! y < 1@ 
T ! 
T 002210 51 @ 
T 
2 i 5 
t «| @ 
@ °@ 


Data Documents/Iinc. 


= % A ry 


IF TERMIXeCCFISPIMIX THEN 
BEGIN STUPTIMINGCENUMs 1023 
GO TO INITIATES 


SETNOTINUSE (Us ¢ 


REAL SURREGTING CNTLBITS3% 
CNTLBITo*TOMASKEMODE 21 : a7 44 JQDIRECC22147 11 ]8CNTCTLCZat a7 Lj 
&Uro4t 


SUBROUTINE LABEL EABE RSS: 
Ties A=21]¢M. OR GETSPACE My BY O] 1442 4 
BFL LCSt 38s LOJRCNTLBI1S(£18218815]3% 


PCRCWs NSCW» STFS 
: aT STATE: C4iti] THEN% 
BEGIN UeFTBL15),C25%5I3% 


BEGIN T2*=sFPBCFNUMtSJ3 % SAVES COPIES FoR BACK UP 
IF cui SF INDOUTPUT CMF ICsF IUsREEL»COATEsCYCLEsTYPE 


TPORNSSKING))>40 THEN 
BEGIN FIB(14), CIPS ey 
+ NELEM> 3 OID A 
[F MCPANQT(*0) THEN MLU+2] *USERCODELPIMIXJ3 
MCU+3]¢XCLOCK+PCRTR)S 
T1SsSPA 30); 
 MOVEC3S0sUsTLDS 
blaape aie adhe ae 
BEG STi aLOc DATES0Ss sBOcTe Oli sOl -8ipSt= 
MUTi#iJeCXCLOCK#PCRTR)I&(MET1#3)) [6230318 )3 
MCTA+4)2= ORSYSNOL4246:2) 41729472133 
MCT4+5J) eC #PCDUP))A1L2:3 474 J}; %*ABORTEO PBU TOG. 
RE. AND: PATACON PRR Ee ne 
PCO)F 


Treon 


~ Th 3 eS 3 ~. 
ie ee s: t3 J 


NUT CRJE AND DaTACOM) 
MCTIL+6)] ¢PCXCH)3 
MEUPLIP=SEUFCIF TYPE NEG O AND TYPE 
whan enscren eee eee 
ie FORGETSPACE(TID3 — 
PACKETS © i : el 
IF PBOREL OR GPNMESS THEN 


S§ 20 THEN 
eee ee eee 


se erereemeuet Te TYPE GEQ 20 UR TYPESO THEN "PUDsgee” 
ELSE: WPBD ‘ ) 61024 
QUT. Ma £30130 ale. 
MEIDPFI02020000. ee ae 
CPBDREL OR OPNMESS))3 
OTARTIMINGCFNUMsU416)3 
FPB? aide LYE @ STARTIMING MAY HAVE MOV 
SE Co ee ee as aa 
96 


SESESERE 


END EL 


\ 


‘BEGIN 
STARTIMINGCFNUMSU 3% 


Cee Tera ee) & WATCH OUT POR: STARTIMING, 


a 


HEN UNL ABELED¢1 34 
PRNTABLELUJ«C15215]*ALPHASS 


GCI. “KINDSIOR KINDS7OR KIND#12THEN®20ELSE Ostartaatel: 


38204000 
R 4400 


38204200 


anzoasag: 


39204500 
oe 


38204800 


39204900 fT 


Bz OUD 


38205100 
Se aed 


38211500 


38212000 


38213000 
38213500 


38215500 


38216000 


i. 66 a 


38217000 T 


38217500 T 
B00 


38218500 


36219000 
38219500. 


3a220000 
38220500 


#' 
R 000 


38221500 
39222000 . 
38222500. 


38223000 
38226500 
38227000 


38227500 - 
38226000: 


aR 


38229500 
348230000 


3890500: 
38231000. 
299231500 7 


38232000 
38232500 
38233000 


eee 
38234000 


38235000 


38235500 


39238000 


228600: 
38229000 


Ree i Pee ee} 


ee oe ee 


003433 @ 
00 30 


003ata 


003910 


004210 


004230 


00 , 
— 004940 


o054t0 


DOS4620 


006133 


007180 
007380 


— O11ate- 
OVigts 
011994 


012110 
012410 


O12180 


0155'0 


Data Documents/Iinc. 


oS 


f 8 


5 SS 5s F 


a 7 ee ee 
m g IS 


Less 


Past 


GO FIND; 


ENDS END 30236500 T O157!2 e 
END 2A : a ——_48232000 T _Q1a7t 
IF KINDS6 THENS Sen | : : 38239500 7 015782 ' 
BEGIN BLENtetOs i e : 39240000 7 015881 » 1|@ 
FIBI16)#8¢*P (DUP) ) BBLENC CTC) RALENECTFI&BLEN $15)3 a2u0s00 1 04598 7 3 
MODE*DIKEC*CNTCIL¢O3% 32241000 7 04630 ‘ 
END ELSEA 38241500 T 046413 |@ 
F_K NO=& HEN & pares R242000 016433 6 
‘BEGIN HOUR SOLMER CoN TeTL e039 38242500 T 01466t0 ? 
: 36243000 7 016814 © |@ 
mee NOT COBOL THEN MLALP As 1#081508238%1,073% —_ A243500 046at4 ah : ‘19 
END ELSES 38244000 T O172%4 No 
IF KIND#12 THEN | 3ez44500 T 017254 1@ 
BEGIN TYPEe]F (TYPEZO aNpD TYPF<20) TH 223 000 O,7 a8 
MODE*OIREC+OS FIG(13].C1s9 JeNBUFS@CNTCTLELs FIBCI3},£1039)613 39245500 + 0177313 
BLENCIF een teens een thd ELSE if ee al ic ELSE geen? 38246000 T 048510 @ 
“EM +f cK J¢ts IHeh&G50G _ 0489 f 
eer arey 33247000 T 049510 is 
DISKIOCRME ADs +T1-75 411 JARCPIMIX26 I, (cr 3)5 38247500 T 019782 |@ 
MPALPHA, +2> aes er ime N8 
“pyerieleceptbupsiacTisajLoT Cla yTASSO)ECTRID 39246500 T 020390 4 
BL Lele (#PCOUP) GBLENECTCIOBLENCCTF 1€BLENLO38 3311533 38249000 T 020612 9 @ 
TREAMCDET Le: NoeB LITMAN 9 021010 a 
“FIED J« (FF I+ CMCT1+91 J¢F IBS 16 CFF ]SIL 18 s47 tly yels 38250000 T 021333 2 
SLEEP CLRHE ALJ» IUMASA 3 38250500 T 022030 23 @ 
ADERT= CME 92181 38:10 38251000 7 0224: 2d 
HEADERL7 GI] @MF IDS 38251500 T 022333 2 
HEADERE7S1¢F 103 | 38252000 T 022510 2 @ 
“HEADERIB7I¢FORMS3 4 Ce eee 2600 “Og268: 2 
HEADER(B8 ]t eT ee ae % COPIES 38253000 T 022782 alle 
HEADERL761¢ABSCJARLPINIX901)4 38253500 1 022911 10 
HE A C77 1ep BS ¢ ARCPIMIXs1))3 2254000 | ‘ 
END ELSE OE Ge : 39255000 T 023414 1 @ 
IFoK cash Ake agp Ee ees 7 38255500 02341 I 
BEGIN TYP Ta CTYPEZO ANG YPe<20) THEN 6 ELSE 20; 38258000 T O235%92 
IF SvPBY THEN SAVEWOROt#TWOCU) OR SAVEWURDS 38256500 7 023933 1 @ 
GO TO PBS, ae ke 38257000 T Oza4g? : 
END ELSES. | ear ae en 39257500 T 024314 fs 
IF KINDB2. THENA 39258000 t 024344 a @ 
BEGIN IF PRNTABLELUJ2Z0- THEN. Goto. DONEx: 38256500 T Opaat : 
CNTCTL*MUDEs 3 38259000 T O24éto r 
END ELSES 30259500 T 024784 «|@ 
IF_KIND#8 THEN 3g260000 T 02473 i 4d 
=" WEABEL — “3260800 7 Wade : 
34261080 r 025081 1@ 
-_EN 8 it 36261500 7 02541 45 
IF UNLABELED THENS 38262000 fT 
BEGIN IF COBOL THEN% 38262500 T 1 @ 
BEGIN MASKeO3% 38263000 T ; 
rs 0: THE LePAUCETOOOUNT REED END ELSE 38263500 T is 
TH 38264000 1 - | @ 
BE 38264500 T 025933. ga sl 
IF TYPE < 20 THEN 38265000 T 026084 s 
BEGIN. 38265500 7 0261380 s4@ 
Hi EADERL7 3}+€15401760001000004F 1BC51tFTC1j 38266000 1 5 
we 4 ; 00 y+. [58 


ae a 26 £ iM A ee 
3a268000 tT 0269%2 


Data Documents/Inc. 


e 
r EwD3 3az08500 1 027140 e 
PND 8269000 QZ 
' END ELSES | : 38269500 7 27180 
@ BEGIN IF COBOL THENS 38270000 T O271t0 
3 BE GLN AL PHAS PCOUP st ODIRCNTLE 83153 3n270800 Q 
: IF U<16 THEN’ , 38271000 T. 027583 
eo): STREAMCNEPRNTABLELU], C30818)sDeMCALPHA#2))33% Se2 71500 T 027432 
6 : N Stel oO Ni DI *+DI+533 OS¢ D ND > 3 N00 028020 
7 END ELSES 38272500 028140 
@ : BEGIN IF REELsO. THEN REEL@43% . sper ode 028130 
"LEO. TH «13 ae 7. 0787 
No IF CDATE=0 THEN STREAMCOATEsCO*(CDATEJ])34 3027400 T O¢8532 
ey BEGIN SIe¢LUC DATES SleSI+33 DSS OCT ENDS 38274500 T 028783 
2 -ABELARE A; 8 5000 0O2>8B% 
n BUILDLABEL CML ALPHA*2]¢MF ID» FIDsREEL»CDATE*CYCLEs% 38275500 02900 
e" FIBC4I,CIF u<i6 THEN PRNTABLECUI. oe 38276000 029350 
a5 “LSE O)sSTA Te ad7hKD ae th 
6 BLENsRLEN) 3% 38277000 T 029734. 
eo” ENDj% 38277500 T 029840 
o| MEMCALPHA=2) INX PCUUYP).£8#410))]+@3700000000000000 3% 827800 O29R%0 
; IF (PCKINOsDUP)=7 OR CPCXCH,OUPI 812 OR PCXCH)al)) THEN 39278500 030133 
6 Be IF KIND#7.. AND F1gC134.026810]%cOB0L THEN GO FIND ELSE 38279000 030510 
21 BEGIN IF TYPE GEQ 20 THEN X& “MA CP BACK*UP LABEL ca eeee _ 38879500 ° O3 0880 
2 BEGIN MEMCALPHA™2) [NX H12=FLAGCNABS(JARCPIMIX0]))5 3a280000 T 030989 
23 MCMCALPHA#=2) INX SUSE UAGCOABEE IMD Aph RECLAe St 9104 38280500 y O314%2 
p STREAMCAS=(M[MLA 3 ee ee 28100 03193 
Rs BEGIN OS%215 Lit* PUNCH BACK@UP "3 OStsL LT "g";3 39281500 T 032243 
oa  2CDSteS LITNSRRREEREM DS 38282000 T O325%2 
BT). END: AZA2. 0327 
Ps END ELSE % MAKE LP LABEL 38283000 TY O327!9 
ps BEGIN T1l!=M(MCALPHA™2]INX 3)3 38283500 T 0327382 
— DI aKIOCT2,NABSCMLALPHA*2Z)INX 1L) oll sJARCPIMI X06), 0CF))3 329400 033231 
<a MEMCALPHA®2]INX 13] SFL AGCNABSCUARCPIMIX#0)))3 38284500 033633 


 MEMDALPHASA INK: rr aga daesoi he del ue ke 38285000 
SLEEP CCT 21» 1OMASK)3 38285500 
MUMCALPHA*2) INX 3)3=113 38286000 
END3 3A286500 

MOMCALPHA*2) INX 1)8=MF IOs 33287000 035143 
MEMCALPHA*2) INX 2) 78FID3 38287500 y 035483 
IF KIND@1 THEN. MC ALPHA@2 J¢PCOUPsLOD281027%4226) ELSE aber ore) 035610 
BEGIN HEAGERCTIICCFIOIS].CFF) OR @360170100000000)4 8500 a6219 
CTYPE<20)(32247:31)3 38289000 0365384 

ETA er SURSEOD» oy ae 38289500 0367814 

p A . R290000 

BEGIN SI*Ls. ‘DSei? wos: END} 38290500 7 O37244 
ae FIBELOI, CFF I©CHEADER( 38133 go FINDS 38291000. 037330. 

: “NDE NE fo : n291800- 7: 03776 
TLeNFLAG(MCALPHA= 2))43 38292000 037730 
MASK¢O3 REEDS . 38292500 037914 
If KIND32 THENS _ anne 38293090 

5, non a ae : 382935 


Oa4is2 © 
034633 
0348%4 
O3syt2 


4) 


3 FS 8s & 


i 


32295000 
38295500 
296000 


ae a 4+ 


0385!0 


CeeETeerTess 


~GETBUFFERS(BLEN*NBUFSsUsALPHA)S ; araaycoa tt GaeeheT = 


Data Documents/inc. 


Ayn . aS KS >: ~. > = . 


aS 2SSESESE SESS E SEUTES 


FINDS: 38298000 T 039330 
P( PRR PRDOSe0e xCHer oe ; Stl ee ae, 039320 
END ‘OTHER FILE OPEN out} . 39299000 T 0395%2 
Z oe S1Z€3 0398 wORDS 
PROCEDURE D} Ke Ose< A Py WADE VALUE. ALPHAS INTEGER ALPHAsS Rea ee 000: 000020 
START OF RE; SEGNENTI DISK ADDRESS « 
BEGIN REAL RCW4+O0eMSCWze es 38356000 T 0000380 
ARRAY F [b= +14 +JoFPBe+e( es HEAQERE+3( a) 5% 3835700 000020 
xx SOD ONT AOD ANY DECLARATIONS BETWEEN *HEADER® AND "KINO" 22% WCP 38356000 Tt 000010 
‘ INTEGER HL peee ob dre paper Git Oa : 38359000 T O000t0 
BS UNLABELED S+OsCOBOLS+losIeeiisJerla, — 38360000 tT  O00030 
FNUMS413; 38361000 T 000030 
REAL MID=+l4sFlUs+15,h2416 00417 pCo4l8, FORMS=4+19sSTATES+203 38362000 7 O000t0 
LABEL Lis rL2el 37 EOFs CLEANUPS | = cade an: 38363000 0000%0 
“LABEL OBJTYPE,OUMMY3, 38364000 7 000040 
REAL STA#4+Q434% 38364100 T Q000'0 
REAL T a¢22sT254239T35+24s 1008+255%_ ee Le ae 368365000 T O000%0 
ARRAY SEGO#+26C eI) sSKELs4ee70 415% 2. 38366000 T 0000%0 
REAL T3428 ACCESS=+29;5% 38366010 T 000030 
BOOLEAN COMPGL=+303 sks ee Ta Ee 3936692 Q Be 
$ SET OMYT # NOT SHAREDISK ae 38366099 T 0000%0 
SuBROUETHE COOKOFFS re 38370700 y 000010. 
R[*0 STEP | _NB! pos Nea ete tak GS eet ty eee tes 48 
BEGIN IF NOT MEALPHA*L3. C1931) THENS 38371000 7, 0005384 
SLEEP ((MLALPHA4] ] J» [OMASK)3% 38372000 T a007!2 
: SS ce eee Ee ole coe 2 p 0.00 0010%2 
IF MECALPHA+I 3602731] THEN GO TO EOFs% 38374000 T O014%4 
END#S : 38375000 T O014%2 
0 ND OOL OF F 3 oe : He : : 2 as76000 0015.26 
% 38376500 0015%4 
BOOLEAN SYBROUTINE wRITTENGNS % PICKS yP uals ACCESSED BI Ts FROM 38377900 tT ootdet 
BEGIN J2=0 4 B A 00 0 620 
If° CTHRETB C1035 C34159) NEQ - THEN 38377400 - 001683 
BEGIN. ! : 38377600 T O01813 
ik aNBUFS = STrcPp. = LA 0 90 = ROO OO19 &: 
IF MCT] ,£4121) THEN Jisls==] ELSE TtemceT) (FF IeDs 38378000 TY 002389 
END; 38378200 T 003083 
WRITTENONS SU3 et ed a 937840 00303 
END; - 38378600 7 003134 
% 38379000 T 003182 
DEFINE REWSCOUE C471 340% 32380000 7 00313 


KRUNCHENOT CODE s L423 ilk» 38381000 
REL=COLE., [4621] 49% 38 382000 
TIMESCOQDE 4521 )#,% 9 
~LOCKENOT CODE, (4atilees 35384000 


PURGERNOT CODE,CA3t1IHRR susea008: 


_TECHSSTATE .fa6t22¥ OPENIOsF 18543) .(9984) . 3a a 
WRITBACKSFIBL13}.Cc3ti )es LASTIO@FIGC13),C4681 34> 38385500 
WRITEAF TEREOFSFIBC 13) eC 44tol#, INPUTSSTATE C4384) 83 38385600 


& START OF cope ee . SBS lapse we 3g386010 ¥ 


003112 


003142. 
(003182 


00 
003414 


7 
x ey uf ae ee +f : 38386020 7 
PCRCWDMSC TPR ROW es CWB POXCHILCT li B7000 | 
HEADER « FIBt1s}3 ACCESS ¢ FIBL4). (27135 38 388000 T 
IF COBOL THEN (38369000 T 
BE us [fF COBOL > O THEN —_ 38389100 
oe BEG IF WRI : oT 
“SO3E7900 T 00421 
F ACCESS34 iD WR PAF TEREOF? - oga 389400 7%: O0¢ 
BEGIN. “FIBt7) “¢ *PCDUP) = Ts TELL T 


00803 


$=0 TH 

BEGIN COOLORF3. tf NOT STATE,C4331) THENS . 
IF FIBCA7I<BLEN ANO STATE. (a6tays 

BEGIN RawSPAC€ CCC BLEN+29). DI 
IF. (MCRIJ]¢ME C16) )]+% 

DISKADORESSCWIDsF IU sFPBLFNUM+ 31+ oP I je 1»HEADER»s0)) NEQ 0 THEN & CSHM) 

BEGIN 


u 
ers 


on 
Cale) 
“wD 


te1aliTish SSLENSELACAE1oLe8 
PCWALTIOCELEL 6 320234 sDEL)3% 
0 


END ELSE4 
BEGIN 
$ SET OM{T = NOT SHAREDISK 
me ~~ COOLORFES ss . 
IF (FE é NEB 0208 accesses THEN Pa 
IF FI8(13),C23#1] OR NOT STATES (4391) THEN 
ACCESSI=as . 
LF CwEFIBC16]]#sDISKADOR SS MIDsF 1D sf PBLFNUMS3 »__% (SHM) 


oe cherie 


Cee ees SSeS SEE SES SESE CS Bf 2 8 


HEADERCAJ sCiibileds ENDS 


1° oe 


RAQSOUC 


38400000 
se i 


seao3000 


O00 


36405000 
38406000 
0 


38410000 


38411000. 


32411009 


3e411030 tT 
30471100 1. 


‘38451300 
36441400 1 
3 a 


441500 


38441800 


3897000 T 
38398000 T 


; seueTpoGuy: 
28808000: 


REQ F000 i 


042740 
iris 


hEADERLT] ¢ sPCDUP) = 13 36389600 1 0S0t2 e 
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4 COOLOFFs FlpC13]. c10tel ¢ 13 — 38391050 T 007742 
7 END 38391055 T Q081t2. 
8 END ELSE IF FIBCLI7J<BLEN HEN ACCESS*#43 %&% COBOLSSB 38391060 0084%2 
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CPiMIXs0) <0 AND FIBC4) 620991) THEN oer am eee ee 
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DISKWAIT C= SKEL CCF)» 300T3)5 
a 2Q 8 | N Sk O) 


OL7) [FFs 
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BEGIN IF NOT MCALPHA+I),061921) THEN? 38554000 T 0005%4 
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PURGE=NUT CODE. C43°51)4; 38567000 T 
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$ SEY OMIT 2 NOT PACKETS — aera 38568080 7 001531 - 
38569000 Tt 001581 
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BEGIN MCMCLALPHAJINX 17 JeMCaLPHAJ &CFIBCS) TC)3 38571000 tT 001680 
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s@, BEGIN FURGETUSERDISK(MET+10) +R» PBDROWSZ*Re1 3 38599000 T O41140 
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ENO} 


30606000.’ 01258 
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RssM(T+6)3 38607200 af 2 
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MCT#6]2=P¢XCH)3 


Woo: . | 38608100 7 
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$ SET OMIT = PACKETS 38609999 T 045832 é 
PBDREL QR CLUSEMESS THEN 38640000 t 04583 
$ POP OMIT 38610001 T 016084 Tle 
38610100 T 016084 


: FILEMESSAGEC CIF 7 THEN. PCPUD) ELSE PCPBD) GRC 2486324), 

ween CORE "JERCSIOPZIOIIBIsMIDoFIDs 38610200 
FI6B(7)»0*0s(PBDREL OR CLOSEMESS))3 34610250 Tf 
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ANE ELBE 38622000 T 017083 7 
cot! BEGIN T#@1737000000000000; 38623000 ¢ 017083 |@ 
JeWAITION jeP GOs) 40. OR U3 Oe hon soe ar ee RA2HOO0 : 9 

I t= SPACE(8); 38625000 T Gee 19 
STREAMCPNSSTYPE GEQ 200D%=0e1)5 38626000 T 047883 i@ 
: G N : > Ee aT Oe RAD6100 O16 O3< 12 
“OS t82allT® LABEL. OPBIMCP OBACK#UPN; 38626200 0480l2 13 
PNCOHSDIS DItaQIR14; DSbealIT*UT™s O1tsD)5 38626300 tT 018333 @ 
20COStaeL rT os : ne ee er ee ee BO26400 | 048533 i 
END: 38626500 7 018633 ty 
IF NOT UNLABELED THEN MEI+4]*MEMCALPHA=2) INX 4}6(42!6]3 38628000 y+ 048730 |@ 
MCL+3}¢Tis % MARK ENDING TAPE LApel FOR MULTI@REEL COND, ss 38628100 T 049330 ‘8 
“JeWATTIOC 188(0# 38410 }4SC21F 457374860, U)40 OR yaR 36629000 019580 "9 
FORGETSPACECT)A% oc 38630000 7 019983 1@ 
OR te nos oie tee ses ake 000. F 0200 24 
PCWAITLOC® 1000000 340000005+ BagrUd: DEL)3% 34632000 T 020380 ' 
IF (TNOCU) AND SAVEWORD)40 ThENR 38633000 7 020633 24 @ 
NOTING Us0 : Beh Da? ed eat AAI4 00 oF: 24 
“BEGINY 38635000 O210t0 25 

RDCTABLECUIE( *P(OUP) 240061816 34RC14 13811031 38637000 021230 pd] @ 

PRNTABLE IW 5)e0;3 = 8636000 7 0 & 2 

RRRMECH$ =NOT Tae AND RRRMECHS 38638500 7 021880 26 

122 [F CAUTOPRINT AND R=1) THEN NOT 38639000 T Ozz0to 1 @ 

PRINTURPUNCHWAIT(@UsTYPE GEQ 20) AND 13 a 38639100 71 Opz2at 30 

IF I THEN IF J THEN ‘SETNOT USE CU» 0) EWSE CABECTABLE TUT. CitSyisgs 386460000 T Og26to 31 

ENDS ENDS : 38641000 T 0231%2 ed 
STATE CFF J¢O3 a p6a2000 02342 3 
GO CLOSEDUTs% 38643000 + 0232%3 
PBOtt: “PRD "3 38644000 T 023384 3/@ 
Pups: mPUD "3 38644500 023580 30 
CLOSEOUT! 38645000 + 023630 af 
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PROCEDURE QTHERCLOSECALPHA)$ VALUE ALPHAS INTEGER ALPHAS% 


BEGIN REAL RCOWS40eMSCWR"2; poe 38649000 ’ t ae Gi 
ages FIQaeit+1,FPG=42C 43 MEADERM 39352. 38650000 ~  Ononse |4@ 
RX% ; NI. ADD ANY oO BARAT ONS RETWE bid ‘ Rn” AND WK 654 
INTEGER KIND=+4,NBUF Se+5eU8+6, BLENS+7 5 CODES+a> 3 3652 000 
UNL ABELED* +9» COBOL 3410» [2 41ieJB4h20 30653000 
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SUBROUUTIN O00 3% 38665000 000080 
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NK Bs 


LPAsS 


LPBss 


CRASS 
ibaa 
SPL 
eetis 
PRAIS 


eS te fs: 
aha 


PPH?S 

DCAs& 
ZIP sé 
CDAs2 
COB34% 


Poo ey 


CDOs 
COEs 


cOGs 
OHS 
cow 3 
COK3 
COLs 


COMMENT COL 
COMMENT | 


PA?S. 


44191265 
44191270 

a 
44491280 
44191285 


44191295 
44191300 
O Q) “ 


44191310 
44194315 


Aaverso5 
44191330 


44491940 


44191345 
44191950 
44191355 
44191360 
44194365 


44191370 
44191375 


44191385 


44491990 


441914006 
44491405 


44191415 
44191420 
4 25 


44491430 
44191435 


44191445 
44191450 


“H4491460 © 


44191465 
441914475 
TOV GiS 80 


44191490. 
44191495. 


GnigTeO0 


44191505 
44191510 


44191520 
aus 1835 
eT 


T 
T 


7 
T 


T 
T 


039020 
039110 
~Oa9ato | 
—O99StO ek - 


0340!0 
034130 
O34220 
034380 
034496 
034530 
03460 
034730 
0 omme 


034910 


035010 


O35 140 
0352%0 
0353!'0 
0 we 


035510. 
“035640 | 
035770 


0358°0 
03590 


036020 


036110 

036210 

G 

036480 

0365'0 
H 


036730 
0368°0 
aso 
0370:°0 
03710 


0373!0 
037410 
752 
037630 
03770 
037 8'0 
037920 
038040 
0378120 
0382%0 
0383%0 
0384tO 


038540 


0386t0 


039420 
eee 


@ —— @ 
@ 000000000446367 CUMMENT MTX» ALL SCRATCH TAPES3 44191590 T 039980 
r MISSL3 44191595 T 0400!0 ® 
R + STE N MIXMAx DOS 92000 Oudd30 
$ SET OM]T = NOT DATACOM 44192490 T 040110 
@ PROCTIMELI) © IOTIMECI) ¢ C20037 77777777777 5% 44193000 7 040180 
13Q STEP NUT DO : 461932300 04051 
BEGIN LOQUECLJt=I-13 44193400 T O4oato 
& TINUCT).{18%12)%8=03 44193600 7 0409%3 
“ND? ae 938aQ0 0 
FOR 1880 STEP 1 UNTIL. PSEUDOMAXT 00 44194000 T Oglate 
@ LABELTABLELI) ¢ OL103% : 44195000. T 041640 
LABELTA OF% #196000 O41¢ 
$ SET OmMiT = NOT DEBUGGING 44196999 042083 
r) FOR 1 ¢ 0 STEP 1 UNTIL PSEUDOMAX + 9 DO 44201110 042083 
UNTTCOD Q 7) ts O3 0 0 
“% FIND INITIAL VALUE FOR CORE ae 44201200 Tt O42aty 
rd CORE SPC, ,C COREND»LOD), CCF SPC. INITIALTZE SL ODD, (cri; 44201300 7 O42aty 
L_¢ MCNES eee ee tee sae O1400 0: ie 
WHILE I,CFF] 4 ©77777 OQ 44201500 7 0433%4 
 ) BEGIN CORE * CORE * IelFFIs 1 * MCI) ENDS 44201600 7 0435!0 
Reg OR & e KH2ZOH00 Q O&O 
$ SEY OM]T = NOT CDATACOM }.. eed og tg 4ge802004 T 0441484 
@? $ SET OMIT = NOTCDEBUGGING) ae ees . #9802105 yp OMdies 
LAY. DAVE eit : Pet esiedie eee ete oF : 
P SHLM#SPACE(10)5 44202120 tT 044380 
@} OODI=(MLAI=SPACE (483) 118483181 361 1013 44202500 T O4asty 
é mA» = 30 : 024600 0 2 
Se a DISKWAIT(#3}-A»=30*NCPNAMESEG)} “4aZ202700 T 045484 
:@ FS MOVE C2» ASLO ESXSYSNOs ASSL 4ExSYSNODS ae — -#4e02800 T O454to. 
a mee : SKWA : CPNAM AugO2o00 + O4saisa 
| STREAM(ML1=MARK LEVEL? P Lt=MC3]#®PATCHLEVEL?LL?©LOCALEVEL 44203000 T 046110 
s@} sMEMASK»NtZA+10¥5xSYSNO 44203150 T 046334 
Pa , 9 0 s 10 SHARE D 0 O46 
ee =. ses _(TENTISGETSPACES100050)02)5 (44203200 7 04643. 
or. . ca BEGIN. DSe5 LIT meHsL sd Ds _ Suapenog’ s (O467t3 
me bo OM es NOT: O09: 04682 3 
i "DSe6 Lit" WITH "$Sf*N}S1eS]a13 Se? CHRE ocaos T QO46833 
. DSteLITA/*eSIraSIeA DSi s7 CHRSDSt=6 LIT™ MARK "3 44204500 T Q470%2 
é —SLisL0c GEq " " THEN 04600 7 Ou7e2 
i SCIF TOGGLE THEN IF Sca"0” THEN SttsS]+1 ELSE DStsCHR 44204650 7, O4a73%4 
 ] , ELSE OS ISCHRDS.. OSasu IT". m5 : 44nga700 Tt - 047540 
ji Tistoc. i HE hy ee : H204750 Oule 
(IF TOGGLE THEN TF sca" THEN SlisS[+1 OStsCHR 44204800 7 O477!0 
@ ELSE DSt*CHRIS DSt=2CHRs 44204850 T 047833 
4 {) () 
ELSE DStacHR 44205050 T 0480t2 
@ [ | 44205,00 7 O482ty 
Sitalce MEMASK3 S1tzS 1463 SKIP 4 SB3 DItaol~2i 44205300 T O485%2 
@ -BCOL 820 l@as1F SB THEN DSteLIT"@" ELSE OStaLIT"R™3S SKIP SB); 44205600 T Qu86%2 
: : 906100 OAs 
A4aQé200 + 048912 
@F 44206300 7 049110 
#209330 D413 3 
44206400 7 049284 
Or SIZE® 0494 WORDS 
5 00 ¢ YVOO00 a 
55] START GF SAVE SERMENIE: ‘BASE ADDRESS a e1465. 
Or 208500 7 000080: ae 
BA OCooote. 


Data Documents/inc. 


® @ 
A=41-B=4+20CHt3e [aed e Uae S eo TE +6 ep Wte7 on Vaehs Zae9; 44206700 T QO000!0 e 
® REAL 44206750 7 000080 
NTS=4+1Qe IN Ss e+ ASTL= +] QATE= Oc= MEND= +453 ___44206800 7 _900030 
REAL” 44206850 7 OOUvO0TO | \e 
1RPassi6+ 1RPTREG17» IRPDBS=+104 1RPTUE+19» IRPBUFHH203 44206900 + O000!0 |? 
RE Sete te ole l gh este 06050 eVetelee We | 
Tis LAST» SHLNSMEND3 44207000 T O000%0 le 
@ INTEGER 44207050 T o000t0 id 
RPRTS=+21»]RPWRS=+ SK sy OCK3 seen ee hee hk Sek Oe ese eel ) 8 WOOO 8 O , 
ARRAY. DODa+23tvleci=e2ateds 44207450 7 000010 ‘le 
@ ARRAY X eWE*]S ) 44207200 7 000010 , 
SET OMIT = NOT SHAREDISK 20 ee = T 000010 Al. 
LABEL NULLINT» CONTINUE » BOMBOUTS 44207250 7 0000:0 
@ PCDELsSTF)3 44207300 r Q0O00%0 |@ 
OMIT =_h HARE OISK ee e20fag? + O0cgt 4a "4 
DISKWAIT(#As 3020 IRECTORYTOP*SYSNO)} 44213000 T 000083 ‘Je 
@ COREG CAF 14) ta TF DOL 9390 THEN 100 ELSE DOOL9I,0431443 wags a5oo tT 000283 ie 
Oe TION Apo ey Warans On0- 5 
T © O34. 44215000 T O008t2 ar 
@ $ SET UMIT = NUT SHAREDISK | _ 44216690 T 000984 : W 
’ Zit nee ‘ — . 7 Saleh eo ane 4 wal S ' I o} i. x bay 
AEURIeDESERS mon 100°} 44216910 7 OO11t1 1@ 
Or NEUPi=NEUPA(NEUPS ODOC 2} bIV. (oo tcte)@NeuPc31433115); 44216940. 7 OOL2t3 fa 
a ‘OAT se me i254 6050 OO 164 : a 
$ SET OMIT = NOT (SHAREDISK) 44216959 fT O017%4 : e 
@} % | 44239500 7 001734 . 
p %___SeT UP DISK POINTERS AND. BUILO OR CLEANQUT OTRECTORY, 9600 FP OLE a 
i : 44239700 t 001784 a 
@ F ae -EsPOIsk MAY NOT BE. UsEo ABOVE THIS. POINT 80 may THE sHAREDI Sk 44239800 T O07 ei 
' i 2 CHD LRE OR WreICH INP eo CIED O) RE 1) Ce ee eh aa, i 9O06 06 2 
fc % 44240000 T 001784 1@ 
@: STREAM(BtSOtAt=BY PASS 1=D00L 4] DI=PC, DIRDSK))3 44240500 tT 001734 
B e =o f eon oF, An24gs2o t. Ooig12 0 
P “$1becoe. Ds SI1sS1485 DS 1=WDS3 . 44240540 tT O020%, © 1@ 
@; END} Step INX OF % GET LOCATION IN INITIALIZE 44240560 7 0024140 
DTSK BU TMTEeRyPr 2 : Decetig Pl oA ; + : 
MCINTS*29ISCy! sapcours @itcgc 44240600 7, 0023%2 ie 
@r MCdds ee 44240620 T 002633 : 
6 R 2 O440 002920 36 
i FORGETSPACE CINTS)? a RETURN PART OF INITIALIZE 44240660 7 O0031%2 a7 
@» CINTS#81 + 23 eke 44240680 T 003284 4 @ 
: “LF CTeNEUPeCEFIJ*NEUPSECFI)>0 THEN __ : bu2b0K90 3s 
NEUPENEUPELOLCTCIECIOcT 5 ECTRIIXSAVE # OF EUS ON DKA, 44240695 \@ 
@ LfSNEUP NEUF S 44240700 “1 
—_ —£S4( 15 ; ie 
$ SET OMIT = SHPREET SK aaeaogid t Ooai te ‘te 
@ . oe aa2a0820 T Bonite : | 
F JeeGETSPACECI;OF 1) + yi gazageac te 
MOVECZ+ "10 J)3 4ugadg6o T 004783 8 
+ os wan 44240900 7 OoS2t0 i 
on ae ar ont ae | —Anpaggss 7 o0sst1 Je 
$ “POP OMIT . . | . 44240924 T 0058!0 5 
@: TitsGETSPACE( 200+ 001 )423 % SPACE FOR INTRNSC 44241000 T 005810 =| @ 
ACTDATES sWEEK ay hes eae! 44241450 7 00603 
te . ONG pisKe): : . ee ee 
DR OINX OF ae 
e ee @ 
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B + g a 7 3 5 5 Ry at = Th 5 
K eS & > Oo & & a S : 


% 
% 
% 


4 


oo ~~ @2 Of FF WH = 


$ SET OMIT = NOTCSHAREDISK) 


NTR CS TABLES AN K MCP, 
DISKKAITCeAs#300093_ 
SD IRECTORYSEARCHCODD #1i94+5xSYSNO172DD0 , OD THEA 


IF CNTLESMCT +4], (36%6))20 ANDO 
BEGIN Poe ee 


NTAZOCINTYPE THEN 


ere crerrr rere eenry 

DISKHATT CA" 30095 
‘ORGE T St et. A ae 

118503 

END ELSE 


% REMOVE INTRINSICS 


RINSICTABLEB DERC(TS& 
~FORGETSPACECT)3 | : . 
END’ ELSE. Go TO. NULLINTS ae 
"i 2 Vas ae 
TOTPREELauO 
IF CTSSOTRECTORYSERRCHCOODL I" 33400001" 2]217))40 THEN 


$s SET OMIT ‘we NOT STATISTICS. 
FORGETSPACECT)3 


cane Seosnkie 3]sD0DL1=2}>°15s0> 00001); 
$ SET OMIT. = SHAREUISK 


AED 


ee feta Tey 
KM AA 4 
BEGIN USERCODELID un OF 
ae ae ODDIE 3*1+9216 t2q1243 OR a 
IF T # @ ANG pDuL2) = ABORT” THEN’ 
ua She eee cee ta reeer ce se acer 


WOVEC 2080A+3249033 

DISKWAIT CA? 210s ESPOISKTOP+ 

FOR I * 1 STEP 1 UNTIL MIXMAX DO% 

IF CBeGI(3x1+92], en THEN 
B 9900 0044 


BEGIN oes 
NDISKHALTC A» 304093 


1SOD0C1) DIV 5%6) GTR 999 OR TESS 0 THEN GO BoMBOUTS 


USERCODEL]1¢SPACE(T)) 
FOR JeO STEP 4 UNTIL (T#1) DIV 30 DO 


ek eo tay 30 ELSE Ro: 


IF ¢ DIV 10000002NEUP, cor oF c<0 THEN 
GO BONBOUT ELSE 
DISKWA 0 


44242o49 
44242700 


44242900 | 
44203000 


ORS 


44244000 


44245800 


44247000 
44247500 


BOQO 


44248500 


44849000 


44250000 
44250500 
9.0.0 
44251495 
44252000 
44253000 
44253495 
, x OO 


44253505 
44253700 


Aag5a900 
44254000 
500 


44855000 


44255500 


44256500 
44257000 
44258500 


44259500 
Parner 


49261000" 
44261500 


; 62000. 


44262500 
peeeaoee 


4264000 


qaeescuc 
44266000 


— Wa267000 FO! 
“ aaaeTsao T 


O00 2%. 


44244500. 


44246000 
5 Ore 


44258000 . 


! 9n00. 


yak 


oe aL 4-4 


006434 
006484 @ 
00642 
O064a8y 
006484 
he OB 6.4 Oe 
007033 
ponae! 


4-4 


: oer 
o0B82t0 
O08 314% 
O084aty 
00850 
MOBS 10 
008934 
oo90%O 
T 00900. 
Tt. 009433 


444-44 


4-4: 


oFal®, . 
T 009680. 
tT 009610 
7 009633 
rT 040284 
e {) 


010310 
040340 
f f ) 


010380 
010380 
01.0 0. 
Tr 0406180 
tT OVO7S, 


T oineta 
T g1eer: 
; 6 
T 
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o1333 
Oger 


son 
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a -, 3 : A a 7 Sn > eS ee Se ee << > Ry 
S wo & > oO © & s: On g 


a: 


IF (CeUSERCODECTIIJ)#0 THEN 44268500 fT 016620 
BEGIN 44269000 7 016732 
xI+9 : eR ; Ne ee RE ee rat ees Me ee ‘, O146Ri0 
Te CUSERCODEL I J¢mLC41)) DIV 5x63 44270000 - O17 2%4 
FOR JeO STEP 1 UNTIL ae DIV 30"4 00 44270500 T O476ty 
2 jm 30 Eran Rea oe ereye 0.4 Bs 
DISKWAIT(CeTsB)3 44271500 T 0484383 
FORGETSPACEC(C)3 44272000 T 048630 
ENDS : Stee a 30.0 O14 
END3 : 64273000 y O1V89%0 
68 CONTINUES 44273500 1 018920 
SOME £000 . 
SyRE RUC DET +SFAULT 001 44274500 T eee 
DSe22 LIT"**a~aBORT LOG UESTROYEQDe"S 44275000 T 01492%4 
PO HN pt 2s hs ee Na y 6 2 
FOR Te} STEP 4 UNTIL MIXMAX DO ySERCODELTI+03 44276000 T 019684 
CONTINUED | 44276500 T 020082 
H A. , : PRUOOD OQ ois 
FORGETSPACECINTS)3 FORGETSPACECINTSS)3 44281000 T 020184 
GC TO NOTHINGTODO; 44282000 T O20et3 
ND} - 44440900 7 02033 
ee ” : SIZE= 0204 
SAVE REAL PROCEDURE COREND;2 | Sa5a1 000 T OQO00%O 
: ; Raiet LRT OF. i AD DRE Ss 
BEGIN REAL T# PCINII4 ENDSS 44442000 T 000010 
SIZE= 0002 
PRO DUR N NISHCAA)ZVA AABR Sas cea t9 
START OF REL SEGMENT} DISK ADDRESS s 
peer REAL RCW" 4OsMSCHarzh : 45001000 T O000%0 
RED A 30 4 Baa 2 rte aWe y, LW Zale 002000 O000fD 
REAL. INTS= z+ 1p INTSSE =INTS*4>+LASTL®INTSS* 1+LDATESLASTL* yrLUC= eLDATE+ ys 45002100 T 000080 
MEND=LO0C413 45002200 T 000030 
A RPB=MEND+1sTRPTBSIRP B+, R D6 =1Rb Les RPTUSJRPOBS+ 4500230 NO0020 
TRABUFAIRPTUsi3 Doge bali 7 45002400 rt Q000FO 
INTEGER: IRPBTS#IRPSUF +1, IRPHRSRIAPBTS#1 3 45002500 7 . 0000730 
R SLASTLeSHLUMSMENDS 45002600 Tr. 000030 
ARRAY DDD=IRPWRS*10*]»G1=0DD*1L«)s 45002700 7 0000%0 
ARRAY XaW(*]3 45002800 T 0000!0 
AB NOGOOD » COP; 5003900 0000%0 
$ SET OMIT ® NOTCSTATISTICS).. 45003199 7 Q000%0 
$ SET Omit # me cetnbavear 45003299 Tt 000080 
$ OMIT ® DAT AC 003099 7 On00I0 
SC ECHPueeheStest aGHeAURKP(XCHIECTCIA 45075590 T 0000%0 
TIMEQUTCSPACE(10) )ADATEQUTCSPACE(10))3 45075600 T 0002!1 
$ SET OMI] = NOT SEPTICTANK oe 45088990 000730 
$ SET OMyT = NOTCOCSPO AND. DATACOM )- 45090000 ry .Q00710 
WHILE FALSE 003- SFIX FOR CeRELATIVE constant ERRORS. -45092405 +. 000740 
“JF CTESDIRE TORYSE ARCHCTSYSTEM %s "L0G ‘yh 940 TREN 490921107 -000Rt 


BEGIN IFC JtsmMCl+10))=0 THEN 
BEGIN MCI+10] $y 8sQGETUSERDISK(M[I+8))3 
STR A DA ATE pAS 20a Rta 

BE GIN: St oo DATEFOI¢eLOC AsSOStee OCT? 
i LOG SOL LaBJOTE MDL 4 3051 93 CHR} 


“WET INX 1) ,C25323]1=XCLOGK*PCRTADS 
OLSKWAITCI INX O»30sIsCFFJ)3 
ENDS 


45092120 
45092430 
4509 


~~ 49092150 | 
, $50RR 5G. 
470. 


45092180 
45092190 
45092200 
48092210 


_ eaeenz2o g 


eae 
ea 
NS 


OO010%2 
0013%2 
00 83; 
. 002084 


T 

T. 002110 
T O022%4 
T 0026t0 
Q 0 2 8 a 


Data Documents/inc. 


e nt ee a 
DDL4Ja" ® 
e ODDL4I="DISKLOG" THEN Renee ; 
BEGIN DISKWAITC™A™602 302 04D 5092246 T 0034%0 
CSTE rE SOL ae Ao ee ee Seca e 
BEGIN sa ac oe aaa ea Be Seam eee ne Deal OC3940 
2 B 
. 3 OT SKWATT CAS 30093 45092270 7 004183 
‘ ND 45092280 7 O44!1 
e|: END ELSE eCreT rae TTT 
BEGIN OONLOI#=0401 ‘ 3 04582 
| FDUDELIFSME1+8)x63 45092310 004312 
e; ~ DODL a) ta"DISKLOG"sD00[9]1 843 ; ore 
DISKWAITCA 3092330 
, e300d03 | 45092340 
e| FORGETSPACECI)3 502350 os 
i LOG REET aNABS CA) 5 45492360 7 005941 
SE Jeo3 45092370 T 0060:0 
@ | $ SET OMyT = NOT C(SHAREDISK) : asdeange O446 
IF eh pe R A " ) 7 006323. 
# TORY SE RCHC*RENOTE "»"USERS ™)5))20 THEN 45093000 7 006323 
7 "BEGIN DISKwalT (= As30d)3 cae Bete VO66210 
° 8 MCP YANFLAGCMEAI}) ‘ 45094200 T 0069%0 
9 — Ki =M 45094400 T 007140 
bof ~ ; a Tra; . Ps ~O9 6. () OO 3 
a Loors va: : : = 45094800 7 007680 
: uM = NOTCDATACOM: AND R : 45095000 yr 007653 
@ - ENDS a mare? ies ne 6h 
; peeee lS ; 9400 T 07633 
bel Np Fk ¢N eee 45099600 7 007633 
ps enTEAsts# iceci ys % "LIBMAIN" praeaaacairs 09.2800 7 OO7732 
ad by | | ENTERSYSFILEC2)3 & "COCNTAL” . 45099900 7 008250 
Ps NIERSYS . "PENPR 45099910 T O082%3 ~ 
XtS(M(GETSPACE(302090)+42)16 099920 OOR3!2 
@ I 90)+2)]) Soravaaia00) 
ho OGLE*TUGLE OR ABORTMASK us ‘ 45101000 T O084!4 
40 THENS Aiba ian eas 45102000 T 008810 
or. ; “BEGINS nn — 03000 D089 
af ray 2 FOR 1*20 STEP 4 UNTIL 24 6b: . 45404000 T 009083 
: PCWAITIO(@4000100000s077791)» DEL 45104100 rT 009181 
r LDATE?SGIC1)3 : Seo BORE DO9 Ar 
FOR 1 ¢ 1 STEP 1 UNTIL MIXMAX DUS 45105000 tT 009533 
IF _USERCODELI)40 THEN 45106000 T 009633 
@» _ BEGIN : emg 45107000 7 009959 
Jee 3x13 ee : 45108000 TF 010080 
_JARROWL IT D¢exs - . . eget sone eect yoo re 
PROCTIMELI) ¢ =C OCK=P 000 01075: 
e PIMIX «© [3% 4 CRTRITR 45112000 T OfO3%4 
XLO] © GI(U4+960)3 PERE yY 040584 
v : 00 01060 
@ |. XCD) © NABSCGILUS919)3 , roe “9-0 
«STREAM (ACELDATE) ny due 45415000 rT O108t0 
Siheatcaeecoarelesegetsyi9s 45116000 T 011014 
e IF G1(v+92]4C1423) GTR XCLOCK THEN ! O00 7 OytaE 
IF x5) MOD 4900 GTR 14 THEN Sart “1 ELSE 45118000 T O11231 
sf X€5)83¢x7$1*100 +; 65 4¢ (x p| D 000)MO0 4=0)5 9119000 tT O11484 
e} TE gent auleateatope ater ssisi000 t oyaet9 
« 2 ania zh 
Or xt3] ¢ SIts1i% 00%. O134in 
X04] © GILV+1d3% 4524000 T 013393 
Bs [7] ¢ Gilv+2)3 4525000 T 0435%14 
@ IOTIMECT) «© O38 | , aeteseee : 
a ob: o : | “7 Opaety 
| “COLOCKePCRTRD x26Kt 33% Fonte 1 O1aore 


Data Documents/inc. 


‘i y g ay y + y 3 A ~ TB Ey Th 53 ~. > 


$ SET 


373248000 ACCIOENTAL 
; $ 


SET 


OMIT = WOTCSTATISTICS) 
2 GUE CXR CEPSEACE Coa 1de0 9) 


Mi 


: “JARROWE 1260) K IN CASE LOG IS NOT ON DISK, 
SEREAMK Gy Nod PaO be SRAGECLOD 98 | 
~OStsLIT"#"3 D1 aDI¥7 $DSteL1T"/ "5 
DIsSO Te eOS SITs yo bt ele 13 


HONE "2 AKU Deft ee 
© ENDPR | | 
: SC PSEQUT CGI 93” 
GUOD 
ENDS% 
$ SET UMIT * Gres TL 
7 men. ¥ TT ar 
ee 2 NDI 
FORGETSPacE CX) Rte 
: NCKs0 THEN: : : 4 INHIB D 


BEGIN STREAMCTRSTIESPICEC IONS 
BEGIN DSt=19 LIT"#TIMER NOT RUNNINGa "3 
—OS15 et I” RE Q INHIB ITe" 
quer = sean: 


SPOUTCTS 
ae | 
IF GIVEDATE THEN 

BEGIN STREAM( Be 1eSPACE(2))3 

D "BD PLEASES" 
“SPOQUTCT)3 ae 
DATE CHES | 


VETIME THEN : 
; STAEAMCR+TeSFACE (2) 23 

¢ ne RPL Fey 
“SPOUTC I? ee 
XeLOcker51880003 pe 


KEY BOARDCOUNTER}=0} 

TOGLE*TOGLE OR HOLOMASK OR KEYBOARDMASK3 

JOWP LE ASL EP WOCK>O aND XCLOCK290 AND 
oN]T = NOT(AUXMEM) 


ATE20)3 


f\ 


MRO? =NABS(MROR) 3 
FORGETSPACECSHLM)3 
SHAREDISK 


NOTCDATACOM oR. amass. 
FORGETSP ACEC AJ 


TERMIX®STOPOB+@17773 
IF T1900. THEN 
5 N STREA 


45135700 
pa pea 


ite OL OC 


4st 35299 ° 


45437000 7 


45137001 Tt 


45141000 
45143000 
4 


45153000 
45154000 


45129099 T O145%2 
45130000 T 044582 
) a4 
45131000 7 014983 
45131100 ry 015110 
45131300 7 O155%4 
45131400 T 015642 
3 = om T # 
45131600 T 015944 
45131700 7 015982 
e. (OOO a 0160: 
45133000 T 016084 
45133099 r 016232 
() U4 Og A. 
45194100 7 046312 
45135010 T 0163!2 — 
451350390 7 O0164to. 
45135040 T 046584 
45135050 T 016832 
8 
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